在添加项目时，如何监视PST中的文件夹以运行代码

Question

我创建了一个名为All Inbox的PST文件，并有规则将所有电子邮件从所有其他帐户移动到其收件箱中。

我有一个宏，可以一次运行所有这些规则(Runrules(从All Inbox/Inbox文件夹处理消息(移动，打印，文件等(，但我必须手动运行它。

我想监视全收件箱/收件箱文件夹并发射我的Runrules Macro。

我看到的代码监视默认文件夹。如何指定全收件箱/收件箱文件夹？

我应该在哪里放置选项，潜艇等？全部在新模块中？

Option Explicit
Private WithEvents objItems As Outlook.Items
Private Sub Application_Startup()
    Dim objNS As Outlook.NameSpace
    Dim objWatchFolder As Outlook.Folder
    Set objNS = Application.GetNamespace("MAPI")
    Set objWatchFolder = objNS.Folder("All Inbox").Folders("Inbox")
    Set objItems = objWatchFolder.Items
End Sub
Private Sub olkFolder_ItemAdd(ByVal Item As Object)
    Dim xitem As Outlook.MailItem
    If Item.Class = olMail Then
        RunRules
    End If
End Sub

我是否将所有收件箱指定为商店？

Answer 1

您缺少的 S objNS.Folder应该是objNS.Folders("All Inbox").Folders("Inbox")

Application_Startup事件应在 ThisOutlookSession 类模块下，您也可以在同一Madule中使用RunRules sub。