如何监控多个文件夹? [英] How to Monitor Multiple Folders?

问题描述

我在 ThisOutlookSession 中有代码来处理我发送的项目.它检查已发送邮件文件夹.它仅适用于一个指定的邮箱/文件夹.

I have code in ThisOutlookSession to do something with items I send. It checks the Sent Items folder. It works only for one specified mailbox/folder.

我想监控三个邮箱

我可以换行:

Set Items = AInbox.Items

它可以工作，但仅适用于我设置的邮箱.

and it will work, but only for the mailbox I set it to.

Private Sub Application_Startup()
    Dim olNs As Outlook.NameSpace
    Dim AInbox  As Outlook.MAPIFolder
    Dim BInbox  As Outlook.MAPIFolder
    Dim CInbox  As Outlook.MAPIFolder

    Dim AItems As Items
    Dim BItems As Items
    Dim CItems As Items

    Set olNs = Application.GetNamespace("MAPI")

    Set AInbox = GetFolder("[e-mail]\Sent Items")
    Set BInbox = GetFolder("[e-mail]\Inbox\Sent Items")
    Set CInbox = GetFolder("[e-mail]\Inbox\Sent Items")

    Set Items = AInbox.Items
End Sub
     

Public Sub Items_ItemAdd(ByVal Item As Object)
    If TypeOf Item Is Outlook.MailItem Then
        'Do something
    End If
End Sub

推荐答案

您可以监控任意数量的文件夹.

You may monitor any number of folders.

Private WithEvents AItems As Items
Private WithEvents BItems As Items
Private WithEvents CItems As Items

然后

Set AItems = AInbox.Items
Set BItems = BInbox.Items
Set CItems = BInbox.Items

然后

Public Sub AItems_ItemAdd(ByVal Item As Object)
Public Sub BItems_ItemAdd(ByVal Item As Object)
Public Sub CItems_ItemAdd(ByVal Item As Object)

这篇关于如何监控多个文件夹?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！