在 Outlook 2010 中，如何在辅助邮箱中收到新邮件时触发宏？答案

【问题标题】：In outlook 2010, How do I trigger a macro when a new mail is recieved in a secondary mailbox?在 Outlook 2010 中，如何在辅助邮箱中收到新邮件时触发宏？
【发布时间】：2014-03-17 20:42:24
【问题描述】：

我的 Outlook 配置文件中有两个邮箱，每当我的辅助邮箱收到新邮件时，我都需要执行脚本。

【问题讨论】：

标签： vba outlook outlook-2010

【解决方案1】：

您可以使用在 Outlook 后台运行的一段 VB 来监控您的文件夹。然后在 VB 代码中，您可能可以做任何您想做的事情。

首先右键单击您的功能区，“自定义功能区”。从“所有选项卡”中选择命令，并确保将“主选项卡”中的开发人员添加到功能区。然后在您的功能区开发人员选项卡中，您可以单击“Visual Basic” 在概述中，您可以看到一个名为“ThisOutlookSession”的 Microsoft Outlook 对象。在这里我们可以放一些代码，当您启动 Outlook 时会加载它们。

我们将创建一些基本的东西来监控文件夹中的传入消息以及如何处理它们

Option Explicit

Private WithEvents SecondaryInbox As Items

Private Sub Application_Startup()

    Dim Ns As Outlook.NameSpace
    Set Ns = Application.GetNamespace("MAPI")
    Set SecondaryInbox = Ns.Folders("Name of Secondary Inbox").Folders("Inbox").Items
    Set Ns = Nothing
End Sub

Public Sub SecondaryInbox_ItemAdd(ByVal Item As Object)
    On Error Resume Next
    ' Do something on item add event..
    If TypeName(Item) = "MailItem" Then
        ' ...
    End If
End Sub

【讨论】：