Getting Date Received/Date Sent from the Outlook Object Library

[jwestmore]

Hi Everyone,

I'm trying to pull the date sent and date received values from e-mails in my Inbox using Vb's Outlook object library. Anybody have any idea what the syntax is for something like that? inbox.items(i).???

Thanks!
Jon

 

[paulbent]

Dim objApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim objFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem

Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderInbox)
For Each objItem In objFolder.Items
 With objItem
  Debug.Print "Date sent: " & .SentOn
  Debug.Print "Date received: " & .ReceivedTime
 End With
Next

Set objItem = Nothing
Set objNS = Nothing
Set objApp = Nothing

Paul Bent
Northwind IT Systems

http://www.northwindit.co.uk