Запускать макрос, если есть открытая электронная почта

Question

У меня есть скрипт для обработки писем. Пользователь может отключить этот скрипт с помощью формы.

Я хочу, чтобы они могли использовать форму только в том случае, если у них есть электронная почта, открытая и в фокусе. Так как я могу проверить, что CurrentItem в:

objApp.ActiveInspector.CurrentItem 

Является ли по электронной почте и не другое открытое окно?

Answer 1

Для работы с почтовым отправлением, который открыт и имеет фокус, использование метод ActiveInspector

Пример подул на печать предмета если деталь Mailitem

Option Explicit 
Sub Item_Info() 
    Dim Active_Item As Object 

    Set Active_Item = Application.ActiveInspector.CurrentItem 

    If TypeOf Active_Item Is Outlook.MailItem Then 
     Debug.Print Active_Item.Subject 
    End If 

End Sub