vba - 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