Comments on: How to run Outlook 2007/2010 Rules from a button

By: Bill Hendricks

Bill Hendricks — Fri, 04 May 2012 20:33:42 +0000

Ditto on #28′s question. Can this macro be modifed to run ALL rules rather than just INBOX rules? I tried modifying the inbox condition:

‘ 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
count = count + 1
ruleList = ruleList & vbCrLf & rl.Name
‘End If
Next

… but it still doesn’t work on SENT rules.

By: Danehbear

Danehbear — Mon, 16 Apr 2012 17:25:59 +0000

Thanks!

By: D.J. Clark

D.J. Clark — Mon, 26 Mar 2012 14:26:02 +0000

Hello – I’d like to use this process to archive my sent e-mail items. I have a rule that does this, but when I create the VB routine and button as above, it does not archive the sent e-mails. I don’t get an error, but it doesn’t work. Is the routine above someone specific to to Inbox (as opposed to the Sent folder)? Thanks

By: Christopher Adams

Christopher Adams — Wed, 22 Feb 2012 20:48:36 +0000

I put the e-mails I have answered into a DONE subfolder and then use my rules on the DONE folder.

Is there any way this code can be adapted sot hat all of my rules in the Rules Wizard run on the subfolder and not the Inbox?

By: Norm

Norm — Thu, 16 Feb 2012 16:34:40 +0000

Worked like a charm. To the guy in the comment above me, you have your execution of the rule commented out! ‘ turns the line into a comment and it doesn’t execute

By: DJH

DJH — Mon, 13 Feb 2012 09:10:10 +0000

The above macro template proved very helpful for Outlook 2007 rules management (my 385+ rules are manually run at least once daily) – thanks !!

Note 1: Using trial-n-error (I’m a macros novice), I made minor revisions to add “Ready” and “Done” message boxes (see revised template below).

Note 2: To enable this macro, the Outlook 2007 Macro Security Setting may need to be switched to the following option: Tools >> Macros >> Security >> “Warnings for all macros”.

==========

Sub A_Run_All_Inbox_Rules()

‘ Macro Ready Message Box
MsgBox “Ready: All Inbox Rules will be executed.”

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 Then
‘ if so, run it
rl.Execute ShowProgress:=True
count = count + 1
ruleList = ruleList & vbCrLf & rl.Name
End If
Next

‘ Macro Done Message Box
MsgBox “Done: All Inbox Rules have been executed.”

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

==========

By: Elli

Elli — Mon, 30 Jan 2012 21:38:04 +0000

It’s working perfectly! However, I’d like to run this only on “Read” messages. Any ideas? Thank you!

By: Michael

Michael — Fri, 20 Jan 2012 14:46:45 +0000

Any solution for the 0×90020009 error with an IMAP setup? Outlook 2010 can sync with a gmail account, but neither the All Rules or Single Rule macros will run. They both work fine when I use them on my work account since that uses Exchange Server.

By: David

David — Thu, 19 Jan 2012 19:11:05 +0000

Is it possible to designate more than one (but not all) rules with this method? I’m a non-coder, but i follow instructions REAL well.

By: Rob

Rob — Thu, 29 Dec 2011 12:06:49 +0000

Hi, Got a question trying to use your script to disable only one rule. But this isn;t working, I’m complete new to this, so hope you can help. Underneath is hat I tried. Thanks in advance.
Rob
———-
If rl.Name = rulename Then
rl.Enabled = False

‘rl.Execute ShowProgress:=True
‘runrule = rl.Name

End If