Code: Select all
archive_folder()
archive_folder()
{
try
oLApp := ComObjActive("Outlook.Application")
catch
oLApp := ComObjCreate("Outlook.Application")
Ns := oLApp.GetNamespace("MAPI")
olArchive:=Ns.Folders("[email protected]").Folders("Archive")
olBounced:=Ns.GetDefaultFolder(6).Folders("Bounced")
bounced_sorted:=olBounced.Items.Sort("CreationTime")
for item in bounced_sorted
{
msgbox % item.subject A_Tab item.CreationTime
msgbox % item.body
; item.Move(olArchive)
}
}
Code: Select all
for item in bounced_sorted
Code: Select all
for item in olBounced.Items