Current Selected Item in Outlook

[Gintaras]

Can test only with Office 2003. Works.
Macro Macro1931

Code:

Copy      Help

;/exe 1
typelib Outlook {00062FFF-0000-0000-C000-000000000046} 9.2
str foldername="Temp"
Outlook.Application app._getactive
Outlook.MailItem msg=app.ActiveExplorer.Selection.Item(1); err out "no selection"; ret
Outlook.MAPIFolder froot=app.GetNamespace("MAPI").Folders.Item(1)
Outlook.MAPIFolder fdest=froot.Folders.Item(foldername)
out fdest