In VB Script- copy all inbox messages to a hard disk folder

18 Jan

Const olFolderInbox = 6
Const olMSG = 3

Set objOutlook = CreateObject(“Outlook.Application”)
Set objNamespace = objOutlook.GetNamespace(“MAPI”)
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
dtmTargetDate = Date
Set colMailItems =  objFolder.Items

Set objItem = colMailItems.GetLast()
(“[ReceivedTime] <‘” & dtmTargetDate & “‘”)

objItem.SaveAs “C:\test\MailMessage.msg”, olMSG

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: