如何针对不同的商店运行规则？

Question

如何针对不同的商店运行规则？

我可以使用...访问我的规则并从默认存储中执行它们

Set storeRules = Application.Session.DefaultStore.GetRules()
For Each storeRule In storeRules
    If storeRule.name = name Then
        storeRule.Execute ShowProgress:=True
    End If
Next

但我看不到如何针对共享帐户使用规则。

我可以通过Outlook客户端手动运行，“Run Rules Now”，在“Run In Folder”浏览器中选择正确的文件夹

更新：

尝试遍历我所有的商店，我有三个商店。 ExchangeStoreType 是一个 0 - 主 Exchange 邮箱、一个 2 - Exchange 公用文件夹 (PF?) 和一个 1 - Exchange 委托邮箱。我正在尝试对最后一个运行规则，但委托文件夹上的 .GetRules 没有找到任何规则

Sub RunTest()
Dim storeRules As Outlook.Rules
Dim storeRule As Outlook.Rule
Dim allStores As Outlook.stores
Dim myStore As Outlook.Store

Set allStores = Application.Session.stores
For Each myStore In allStores
    On Error Resume Next
    Debug.Print myStore.DisplayName & "  " & myStore.ExchangeStoreType
    Set storeRules = myStore.GetRules()
    For Each storeRule In storeRules
        Debug.Print "... store: " & storeRule.name
    Next
Next
End Sub

如果我通过 Outlook UI 并选择该商店，我可以运行规则

Answer 1

不要使用Application.Session.DefaultStore，而是使用Application.Session.Stores 集合访问相关商店。