Outlook VBA：从宏运行所有规则

Question

我尝试使用以下代码通过VBA在Outlook 2016中自动运行一组规则：

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帐户，我正在运行它们，因为仅当您将Outlook中的IMAP帐户选择为当前收件箱（或我认为每小时一次）时才会更新。

使用内置的“规则/运行规则/全选”功能时，我快速运行的20条规则。

但是，当我运行上面的宏时，它需要很长时间。 我怀疑正在发生的事情是每条规则执行时都会刷新收件箱，因此在这种情况下会发生20次。

是否可以通过命令栏直接从VBA运行“规则/运行规则/全选”，或者在每次执行时停止刷新收件箱。

谢谢 安迪