Пишу макрос по выполнению некоторых действий с сообщениями Outlooka, макрос запускается по кнопке в меню.
Макрос должен работать с набором выделенных сообщений (Application.ActiveExplorer.Selection), если макрос запускается в окне со списком сообщений, либо должен работать с сообщением, открытым в текущем окне. Т.е.:
1. окно "Входящие" -> нажимаю "Макрос" -> работа с Application.ActiveExplorer.Selection;
2. окно "Сообщение" -> нажимаю "Макрос" -> работа с текущим сообщением.

п.1 работает, как заставить работать п.2? Сейчас получается так, что если в окне "Входящие" курсор стоит на сообщении "А", а в открытом сообщении "Б" нажимаю "Макрос" обработка выполняется всегда с "А", а не с "Б". Как заставить макрос работать с "Б"?

Dim objItem As MailItem
Set objItem = Application.ActiveInspector.CurrentItem
MsgBox (objItem.Body)

Сам себе и ответил...

Хотя, если какой-либо сообщение открыто, но активным является проводник сообщений, то в примере выше всегда будет выскакивать это самое msgbox, пока сообщение не закроем. Поэтому узнать, где именно была нажата кнопка можно так:

If TypeName(Outlook.Application.ActiveWindow) = "Inspector" Then MsgBox ("Открытое сообщение")
If TypeName(Outlook.Application.ActiveWindow) = "Explorer" Then MsgBox ("Проводник")