Nur ein Makro ausführen, wenn eine E-Mail geöffnet ist

Question

Ich habe ein Skript, um E-Mails zu verarbeiten. Benutzer können dieses Skript mit einem Formular deaktivieren.

Ich möchte, dass sie nur das Formular verwenden können, wenn sie eine offene und fokussierte E-Mail haben. Also, wie kann ich überprüfen, ob die CurrentItem in:

objApp.ActiveInspector.CurrentItem 

eine E-Mail ist und nicht ein anderes offenes Fenster?

Answer 1

mit Postsendung zu arbeiten, die offen ist und den Fokus hat, Verwendung Active Methode

Beispiel unter Druck blies, wenn Item 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 

ist