只有在打开电子邮件时才运行宏

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