Macro to Run Rules

Status
Not open for further replies.
S

Sue Mosher [MVP]

The code sample at http://www.outlookcode.com/codedetail.aspx?id=1266 shows

how to run all rules against the Inbox. If you want to run only certain

rules, return each rule using myRules.Item("name of rule") and then call its

Execute method.

Sue Mosher

"Kash" <Kash> wrote in message

news:E956E6F3-9EC7-4FA4-BE74-FA33EA82134C@microsoft.com...
> How can I run only specific rules in 2007?
 
S

Sue Mosher [MVP]

Code?

Sue Mosher

"Kash" <Kash> wrote in message

news:AF6DE91D-F695-44B6-A443-8351FF52C2F4@microsoft.com...
> I'm able to run only one macro.. 'Clear categories'
 
K

Kash

Sub RunAllInboxRules()

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

' tell the user what you did

ruleList = "These rules were executed against the Inbox: " & vbCrLf &

ruleList

MsgBox ruleList, vbInformation, "Macro: RunAllInboxRules"

Set rl = Nothing

Set st = Nothing

Set myRules = Nothing

End Sub
 
S

Sue Mosher [MVP]

If you step through the code in the debugger, what happens inside the For

Each loop?

Sue Mosher

"Kash" <Kash> wrote in message

news:0B6F77BD-1685-4FB1-95AC-F506CC69664D@microsoft.com...
> Sub RunAllInboxRules()
> 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

> ' tell the user what you did
> ruleList = "These rules were executed against the Inbox: " & vbCrLf &
> ruleList
> MsgBox ruleList, vbInformation, "Macro: RunAllInboxRules"

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

> "Kash" <Kash> wrote in message
> news:AF6DE91D-F695-44B6-A443-8351FF52C2F4@microsoft.com...
> > I'm able to run only one macro.. 'Clear categories'

>


"Sue Mosher [MVP]" <suemvp@turtleflock.com> wrote in message

news:O0jqT$D%23JHA.1488@TK2MSFTNGP03.phx.gbl...
> The code sample at http://www.outlookcode.com/codedetail.aspx?id=1266
> shows
> how to run all rules against the Inbox. If you want to run only certain
> rules, return each rule using myRules.Item("name of rule") and then call
> its
> Execute method.

> "Kash" <Kash> wrote in message
> news:E956E6F3-9EC7-4FA4-BE74-FA33EA82134C@microsoft.com...
> > How can I run only specific rules in 2007?


>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
P Vba script including macro appears in rules but wont run Outlook VBA and Custom Forms 6
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
O Run macro automatically at sending an email Using Outlook 11
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
B Can't run macro from QAT when emailing from Acrobat Outlook VBA and Custom Forms 0
Hudas Run Macro when an Email is received Using Outlook 4
L Outlook 2007 Macro to Run a Script From a Contact Form Using Outlook 41
Z Trigger macro to run after a new mail is received in Outlook? Using Outlook 3
D Trigger macro to run when selected email is opened Using Outlook 3
D Create a macro in Outlook to run a rule Outlook VBA and Custom Forms 32
J Can't run macro Outlook 2007 that was created in Word 2007 Outlook VBA and Custom Forms 1
M Run external program from Outlook VBA macro Outlook VBA and Custom Forms 5
J Macro to run on Open Outlook VBA and Custom Forms 2
B Run a macro Outlook VBA and Custom Forms 1
J Macro to Insert a Calendar Outlook VBA and Custom Forms 6
W Macro to Filter Based on Latest Email Outlook VBA and Custom Forms 6
T Macro to move reply and original message to folder Outlook VBA and Custom Forms 6
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
A Macro to file emails into subfolder based on subject line Outlook VBA and Custom Forms 1
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
S Visual indicator of a certain property or to show a macro toggle Outlook VBA and Custom Forms 2
L Modifying VBA script to delay running macro Outlook VBA and Custom Forms 3
S Macro to extract and modify links from emails Outlook VBA and Custom Forms 3
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 8
S Macro for Loop through outlook unread emails Outlook VBA and Custom Forms 2
Globalforester ItemAdd Macro - multiple emails Outlook VBA and Custom Forms 3
S Macro to extract email addresses of recipients in current drafted email and put into clipboard Outlook VBA and Custom Forms 2
witzker HowTo start a macro with an Button in OL contact form Outlook VBA and Custom Forms 12
witzker Macro to move @domain.xx of a Spammail to Blacklist in Outlook 2019 Outlook VBA and Custom Forms 7
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
C Macro to extract sender name & subject line of incoming emails to single txt file Outlook VBA and Custom Forms 3
L Macro/VBA to Reply All, with the original attachments Outlook VBA and Custom Forms 3
S Macro to move “Re:” & “FWD:” email recieved the shared inbox to a subfolder in outlook Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
S Outlook Macro to move reply mail based on the key word in the subjectline Outlook VBA and Custom Forms 0
Eike Move mails via macro triggered by the click of a button? Outlook VBA and Custom Forms 0
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 4
U Macro for reminders,tasks,calendar Outlook VBA and Custom Forms 4
V macro runs slower on startup than after Outlook VBA and Custom Forms 3
N Macro to move all recipients to CC while replying Outlook VBA and Custom Forms 0
A VBA macro for 15 second loop in send and received just for 1 specific mailbox Outlook VBA and Custom Forms 1
G VBA Macro Using Outlook 4
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
R Macro Schedule every day in Outlook Using Outlook 0
L Moving emails with similar subject and find the timings between the emails using outlook VBA macro Outlook VBA and Custom Forms 1
Healy Consultants Macro to remove inside organization distribution list email address when reply to all recepients Outlook VBA and Custom Forms 0
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5

Similar threads

Top