Outlook VBA: запускать все правила из макроса

Question

Я попытался автоматизировать запуск набора правил в Outlook 2016 через VBA со следующим кодом:

For Each Store In Outlook.Application.Session.Stores
    If InStr(LCase(Store.DisplayName), "myemailaccount") > 0 Then
        For Each Rule In Store.GetRules
            Rule.Execute
        Next
    End If
Next

Эти правила связаны с учетной записью IMAP, и я запускаю их, поскольку учетные записи IMAP в Outlookобновлять только, когда вы выбираете их в качестве текущего почтового ящика (или, я думаю, один раз в час)

20 правил, которые я выполняю быстро, когда использую встроенную функциональность «Правила / Выполнить правила / Выбрать все».

Однако, когда я запускаю вышеупомянутый макрос, это занимает очень много времени.Я подозреваю, что происходит то, что он обновляет папку «Входящие», когда каждое правило выполняется и, таким образом, происходит в этом случае 20 раз.

Есть ли какой-либо способ запуска «Правила / Выполнить правила / Выбрать все» непосредственно из VBAиз CommandBar или остановите обновление папки «Входящие» при каждом выполнении.

Спасибо, Энди