Archive | VB Script RSS feed for this section

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