outlook事件newMail（newItem）

Question

我正在使用outlook 2003

我在创建新邮件时搜索了一个获取事件的方法（当创建新邮件的窗口时）

注意：我搜索各种方式将菜单添加到新邮件窗口）

Answer 1

此示例代码应放在ThisOutlookSession模块中。重新启动Outlook，每当您创建新电子邮件时，您都会看到消息框。

Private WithEvents objinspectors As Outlook.Inspectors

Private Sub Application_Startup()
  Set objinspectors = Application.Inspectors
End Sub

Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
  If TypeName(Inspector.CurrentItem) = "MailItem" Then
    MsgBox "newinspector"
  End If
End Sub