Outlook VBA macro to execute all outlook sorting rules in multiple accounts.

RunAllRules.vba

Sub RunAllRules()
 On Error Resume Next
 Dim accounts As Outlook.accounts
 Set accounts = Application.Session.accounts

Dim account As Outlook.account
rulesDone = ""
rulesError = ""
For Each account In accounts
    rulesDone = rulesDone & account.DisplayName & "("
    rulesError = rulesError & account.DisplayName & "("
    
    Dim rules As Outlook.rules
     Set rules = account.DeliveryStore.GetRules
    Dim rule As Outlook.rule
    For Each rule In rules
        rule.Execute
        If Err.Number <> 0 Then
          rulesError = rulesError & rule.Name & "(" & Err.Number & "),"
          'rulesError = rulesError & rule.Name & "(" & Err.Description & "),"
        Else
          rulesDone = rulesDone & rule.Name & ","
        End If
    Next rule
    rulesDone = rulesDone & ")" & vbCrLf
    rulesError = rulesError & ")" & vbCrLf
Next account

MsgBox rulesDone, vbOKOnly, "Completed rules"
MsgBox rulesError, vbOKOnly, "Error rules"

End Sub