Looks like this is what you want to do.
Option Explicit
Sub RunAllInboxRules()
' http://www.outlookcode.com/codedetail.aspx?id=1266
Dim st As Store
Dim myRules As rules
Dim rl As Rule
Dim ruleList As String
' get default store (where rules live)
Set st = 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 Then
' if so, run it
rl.Execute ShowProgress:=True
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"
End Sub