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

Question

我正试图将侦听器添加到我的主收件箱和另一个名为"AssignNumber"的文件夹中。当邮件进入我的主邮箱时，我会编写MACRO，侦听新邮件，然后对该邮件进行处理。另一方面，对于我的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中。