Invoke all Outlook rules with the prefix `[Clean Up]`

InvokeOutlookRules.vbs

Public Sub CleanUpAll()
    Dim st As Outlook.Store
    Dim myRules As Outlook.Rules
    Dim rl As Outlook.Rule
    Dim ruleList As String

    Set st = Application.Session.DefaultStore
    Set myRules = st.GetRules

    For Each rl In myRules
        If rl.RuleType = olRuleReceive Then
            If InStr(rl.Name, "[Clean up]") > 0 Then
                rl.Execute ShowProgress:=True
                ruleList = ruleList & vbCrLf & rl.Name
            End If
        End If
    Next
    
    ruleList = "This rule was executed against the Inbox:" & vbCrLf & ruleList
    MsgBox ruleList, vbInformation, "Clean up inbox"
End Sub