Here's the current version. It turns out my fix for the disabled Macros was wrong and I still need help fixing that. Anyone have any insight into how to make it only run disabled rules?
Sub RunAllInactiveRules()
'
'
'
' Created by James Fields
' Version 1.0 5-19-17
Dim st As Outlook.Store
Dim myRules As Outlook.Rules
Dim rl As Outlook.Rule
Dim count As Integer
Dim ruleList As String
Dim ruleName As String
' This can allow you to ignore a specific rule by the name of your choice.
ruleName = ""
' Finds the active folder
Set fld = Application.ActiveExplorer.CurrentFolder
On Error Resume Next ' Get default store (where rules live)
Set st = Application.Session.DefaultStore
Set myRules = st.GetRules ' Get rules
' Run all inactive rules
For Each rl In myRules
If rl.RuleType = olRuleReceive Then
If rl.Name <> ruleName Then ' Ignores the rule you named previously
If Enabled = False Then ' Only runs on disabled rules
rl.Execute ShowProgress:=True, Folder:=fld, RuleExecuteOption:=1 ' ExecuteOption 1 only functions on read mail, 2 on unread, and 0 on all. Default is 0
count = count + 1
ruleList = ruleList & vbCrLf & rl.Name
End If
End If
End If
Next
Set rl = Nothing
Set st = Nothing
Set myRules = Nothing
Set fld = Nothing
End Sub