只有在打開電子郵件時才運行宏

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