Как вы можете запустить правило в другом магазине?

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 Правила Теперь" и выберите нужную папку в браузере "Run In Folder"

UPDATE:

Пробовал переборе все мои магазины, и у меня есть три магазина. ExchangeStoreType - это один 0-первичный почтовый ящик Exchange, один общий обмен 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, пользовательский интерфейс и выбрать этот магазин

Answer 1

Вместо использования Application.Session.DefaultStore используйте Application.Session.Stores для доступа к магазину, о котором идет речь.