Question

我正在尝试将监听器添加到我的主收件箱和另一个名为“AssignNumber”的文件夹中。当消息进入我的主要收件箱时，我写了MACRO，它会收听一个新的mailitem进来，然后对该项目进行处理。另一方面，对于我的AssignNumber文件夹，我希望能够将电子邮件拖到该文件夹中，一旦将它们放在该文件夹中，该文件夹就会侦听它们，然后执行一些我不会进入的其他操作。我的问题是我收听进入MAIN INBOX的邮件的所有代码都是用ThisOutlookSession编写的，我不知道在哪里添加监听AssignNumber文件夹的代码。这是我在ThisOutlookSession中的代码：

    Private WithEvents Items As Outlook.Items

    Private Sub Application_Startup()
       Dim olApp As Outlook.Application
       Dim objNS As Outlook.NameSpace
       Set olApp = Outlook.Application
       Set objNS = olApp.GetNamespace("MAPI")
       ' default local Inbox
       Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
    End Sub

    Private Sub Items_ItemAdd(ByVal item As Object)
    'do Stuff to mailitem
    End Sub

我不知道在哪里/如何添加类似的代码，这些代码将侦听我的AssignNumber文件夹，以便拖放到其中的项目。谁能帮忙？非常感谢你。

Answer 1

您可以为多个文件夹创建多个侦听器，如下所示：

Private WithEvents deletedItems As Outlook.Items
Private WithEvents mainInboxItems As Outlook.Items

Public Sub Application_Startup()

    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")

    Set deletedItems = objNS.GetDefaultFolder(olFolderDeletedItems).Items
    Set mainInboxItems = objNS.Folders("whatever your main mailbox is called").Folders("AssignNumber").Items
    'assumes your "AssignNumber" folder is a subfolder of the main inbox
    'otherwise you can nest Folders("myArchive").Folders("AssignNumber).items etc
End Sub

你可以根据需要为多个文件夹执行此操作，我只在这里使用两个，但我自己的Outlook中有近10个。

然后，您可以将ItemAdd方法分配给每个方法，例如：

Private Sub deletedItems_ItemAdd(ByVal item As Object)
'do Stuff to mailitem
End Sub
Private Sub mainInboxItems_ItemAdd(ByVal item As Object)
'do Stuff to mailitem
End Sub

所有这些代码都可以进入ThisOutlookSession。

将侦听器添加到Outlook中的不同文件夹

1 个答案: