Skip to main content

Except using visual recognition which is opening the outlook then visually selecting the specific email, copying and pasting it to the respective folder, the following basic Vb-script can be used with the "Run Script" advanced command to save the messages as well as carry out more actions in a faster and smooth way. The .txt file of the code is attached.

 

<<< ***

Set outlook = createobject("outlook.application")

Set session = outlook.getnamespace("mapi")

session.logon 'optional to use

olMSG = 3

Set objMailbox = session.Folders("Insert your email address here")

Set objFolder = objMailbox.Folders("Inbox").Folders("Important") 'this reperesents Inbox/Important folder

 

For Each m In objFolder.items

If m.unread Then

m.SaveAs "C:UsersKryonDesktopEmailSource.msg", olMSG

end if

Next

 

session.logoff 'optional to use

 

Set outlook = Nothing

Set CaseTitle = Nothing

Set session = Nothing

 

WScript.Quit

***>>>

Be the first to reply!

Reply