Vba outlook事件新邮件（newItem）

我正在使用outlook 2003

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

---

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

此示例代码应放在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

---

如果你认为没有办法，你可以告诉梅坦克。我已经成功使用了一个虚拟邮件，我将检查您的代码Dim outl As Object Dim mes As Object Set outl=CreateObject（“Outlook.Application”）Set mes=outl.CreateItem（0）mes.Display（False）mes.Close 1不客气，上面写着“Msgbox newinspector”创建新邮件时，您应该输入执行任何操作的代码。您知道获取“移动邮件”事件（将电子邮件从收件箱移动到MyPriorityFolder）的方法吗？是，但您可能应该打开一个新问题，我或其他人可以回答。office 2016/o365的问题是，如果我打开一个现有项目，而不仅仅是在创建一个新项目时，代码也会被触发。知道怎么做吗？