我正在使用 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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)