Outlook — выполнить все правила

Я хочу запустить все свои правила Outlook с помощью одной кнопки и получил следующий код с другого сайта, но он генерирует ошибку: Ошибка времени выполнения -2146664191 (800c8101) Ошибка автоматизации

у меня есть 22 правила в Outlook, но код будет запускать только первое правило, которое называется «MKG». Если я не закомментирую строку «При ошибке возобновить далее», она, конечно, запустится, но затем запустится только первое правило «MKG». Код падает на этапе NEXT с ошибкой автоматизации. «Для каждого rl в myRules» кажется правильным, но NEXT не сработает без сообщения «Ошибка автоматизации». Может ли кто-нибудь предложить изменение, чтобы Run работал полностью?

    Sub RunAllInboxRules()
    Dim st As Outlook.Store
    Dim myRules As Outlook.Rules
    Dim rl As Outlook.Rule
    Dim count As Integer
    Dim ruleList As String
    
    On Error Resume Next
        
    ' get default store (where rules live)
    Set st = Application.Session.DefaultStore
    
    ' get rules
    Set myRules = st.GetRules
    
        ' iterate all the rules
    For Each rl In myRules
        ' determine if it's an Inbox rule;
            If rl.RuleType = olRuleReceive And rl.IsLocalRule = True Then
         'if so run it
            rl.Execute ShowProgress:=True
            count = count + 1
            ruleList = ruleList & vbCrLf & rl.name
        End If
      Next

    ' tell the user what you did
    ruleList = "These rules were executed against the Inbox: " & vbCrLf & ruleList
    MsgBox ruleList, vbInformation, "Macro: RunAllInboxRules"

    Set rl = Nothing
    Set st = Nothing
    Set myRules = Nothing
    End Sub

Я искал помощь по этой проблеме, но не нашел ничего, что могло бы решить проблему. После публикации этого вопроса я установил тот же макрос на компьютер моей жены, и он работает отлично, без каких-либо ошибок. Оба компьютера работают под управлением Outlook 2019 Desktop под Windows 10Pro. Это наводит меня на мысль, что где-то на моем компьютере отсутствует или поврежден файл. Однако мой компьютер без проблем запускает другой макрос Outlook. распространенной проблемой, по-видимому, является что-либо с циклом, например, для каждого > NEXT или Do Until или Do While > LOOP, поскольку даже очень простой макрос с NEXT или LOOP приводит к «Ошибке автоматизации = цикл не инициализирован». Есть идеи, какой файл может отсутствовать или быть поврежден?