How can I increase/faster outlook VBA Macro Speed ?

Status
Not open for further replies.

nbm1515

New Member
Outlook version
Outlook 2016 64 bit
Email Account
Office 365 Exchange
Hi

Can someone help me with following code to increase/faster outlook VBA Macro Speed ? Currently It taking lot of time run all email rules and getting process slow.



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
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
In general the performace is better if you forego the progress dialog. Instead, simply display a MsgBox when done. Also, joining the rulelist string could take one or more seconds for 1000 loops. Since you run all rules, why not just say that instead of listing all the rule names?
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
J Increase font size of message body Using Outlook 5
C Increase Outlook 2013 message window row height Using Outlook 2
O How to increase Font size in Outlook 2013 Using Outlook 1
A OL 2007 problem - sudden large increase in message size Using Outlook 12
M Increase "Move To" List Length Using Outlook 3
J Can't Increase Outlook 2007 PST size Using Outlook 2
S Configure Increase Outlook 2007 PST size limit Using Outlook 1
S RBAC for Mail quota increase Exchange Server Administration 2
B Emails come back saying byte size is too large for attachments. How do I increase the allowable byte size? Using Outlook 1
R How To Increase Text Size Permenantly When Viewing Emails? Using Outlook 6
A Outlook 2003 - Increase number of calendars that show up under "Other Calendars" Using Outlook 3
P how to increase size of mail box size to unlimit in exchnge 2010 Exchange Server Administration 2
L unexplained public folder size increase Exchange Server Administration 7
S Increase the size of distribution lists in OWA? Using Outlook 2
M Exchange 2003 User mail Delivery Size increase Using Outlook 6
R how to increase the font size in folder names. Using Outlook 1
T how do I get mail files to OPEN faster? Using Outlook 2
1 Faster Initial Loading Using Outlook 1
K Microsoft Outlook - How do you get your incoming mail off the browser and in your inbox faster? Where is the send and receive setting Using Outlook 1
D Faster way to Backup exchange database? Exchange Server Administration 6
B how do i make outlook perform faster ? what addins do i need? Using Outlook 2
S 64bit DC's - much faster for Exchange? Exchange Server Administration 2
M Outlook 2016 Outlook randomly unhides from taskbar Using Outlook 0
X Using Outlook 2013 and Outlook 365 Using Outlook 1
V Date and/or time error in Outlook Form Outlook VBA and Custom Forms 0
D Sending email from Office 365 alias in Outlook Using Outlook 4
B Spam folder not showing in Outlook Using Outlook 5
ThinkToday Calculate reply time of outlook mail Using Outlook 1
M Microsoft 365 Outlook keeps requesting password on Local Account Using Outlook 1
I Outlook 365 - import/attach PST file that used POP3 Using Outlook.com accounts in Outlook 0
e_a_g_l_e_p_i I think it may be time to upgrade from Outlook 2010 Using Outlook 3
K Outlook 2016 Outlook, Chrome, and Clio Using Outlook 5
O Outlook tasks - Add text column with multiple lines Using Outlook 3
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
HarvMan Outlook 365 PST Report Using Outlook 1
V Upgraded Outlook Using Outlook 1
J Outlook 2010 Outlook/Win7 Client logging Event ID 36887 Using Outlook 0
R How to get the Items object of the default mailbox of a specific account in a multiple account Outlook? Outlook VBA and Custom Forms 0
T Why does outlook 2010 convert only some forum notifications to plain text? Using Outlook 2
M In Outlook Calendar remove the buttons: 'Today' and '<' (Back a day) and '>' (Forward a day) that are below the Ribbon and above the calendar display. Using Outlook 0
J Moved many emails to Outlook external folder, need to delete on Gmail server Using Outlook 13
P Scheduling a meeting in Outlook Outlook Wishlist 4
I Error saving screenshots in a custom form in outlook 2016, outlook 365 - ok in outlook 2013, outlook 2010 Outlook VBA and Custom Forms 5
R Outlook 2019 Using Outlook 0
N Outlook Has Become Sluggish Using Outlook 14
HarvMan Outlook 365 Calendar Using Outlook 12
A calendar invites sent from Microsoft Outlook to Mac Outlook is not working Calendar Printing Assistant 3
L Outlook 2016 Contacts missing in Outlook 365 Using Outlook 1
R seperate read layout to design in outlook 2016..Help!! Outlook VBA and Custom Forms 3
A Outlook replies not using "delivered to" address in From Using Outlook 1
Similar threads


















































Top