outlook mail tellen met datum

[Tommie076]

Ik wil weten hoeveel mails ik binnen krijg met welke datum.
Ik heb vanuit eerder topics al wel een script gevonden welke optelt hoeveel mails er in welke map zitten.
Echter zou ik hier ook de datum bij willen zien zodat ik weet van welke datum deze mails zijn.
Kan iemand mij helpen? Dit is het script zoals ik hem nu al heb:


Dim objOutlook, objNameSpace, lItemCount, lLinePos, objExcel, myFolder

On Error Resume Next

Set objExcel= CreateObject("Excel.Application")
objExcel.visible=False
objExcel.DisplayAlerts = False
Set oWB = objExcel.Workbooks.Add
lLinePos = 1

Set objOutlook = CreateObject("Outlook.application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
For Each myfolder In objNameSpace.Folders
EnumFolders myfolder
Next
Set objNameSpace = Nothing
Set objOutlook = Nothing


oWB.SaveAs "H:\test.xls"
objExcel.Quit
Set objExcel = Nothing

Sub EnumFolders(oFolder)
For Each oFolder In oFolder.Folders
oWB.ActiveSheet.Cells(lLinePos,1).Value=oFolder.name
oWB.ActiveSheet.Cells(lLinePos,2).Value=oFolder.Items.Count
lLinePos = lLinePos + 1
If oFolder.Folders.Count > 0 Then EnumFolders oFolder
Next
End Sub