当前位置：文江博客话题详情

Outlook 事件 newMail (newItem)

发布于 2024-12-13 06:41:35 字数 96 浏览 1 评论 0原文

我正在使用 Outlook 2003

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

注意：我搜索将菜单添加到新邮件窗口的所有方法）

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

等往事风中吹 2024-12-20 06:41:35

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

This sample code should be placed in the ThisOutlookSession module. Restart Outlook and whenever you create a new email you will see the message box.

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

回复收藏 0 原文

~没有更多了~