Stop Rule (not turn off) that Delays Outgoing Items

Status
Not open for further replies.
A

adavid

New Member
Outlook version
Outlook 2010 32 bit
Email Account
IMAP
I have a rule that delays outgoing items by 3 minutes. The code below works great at turning off my rule. However, if the rule delaying the mail is turned off the mail stays in the outbox for the full 3 minutes. I want it to send immediately upon the rule being turned off. Any suggestions?


Sub SendNow()
Dim olRules As Outlook.Rules
Dim olRule As Outlook.Rule

Set olRules = Application.Session.DefaultStore.GetRules
Set olRule = olRules.Item("DelaySend")

On Error GoTo err_routine

Dim x

Dim OutlookSendReceiveWasPreviouslyDisabled As Boolean
Line1: OutlookSendReceiveWasPreviouslyDisabled = Application.ActiveExplorer().CommandBars("Standard").Controls("Send/Re&ceive").Controls("Send/Recei&ve Settings").Controls("&Disable Scheduled Send/Receive").State

Line2:
Application.ActiveExplorer().CommandBars("Standard").Controls("Send/Re&ceive").Controls("Send/Recei&ve Settings").Controls("&Disable Scheduled Send/Receive").Execute
Line2b:

If OutlookSendReceiveWasPreviouslyDisabled Then
MsgBox "SendNow Enabled."
If olRule.Enabled = False Then olRule.Enabled = True
olRules.Save
Else
MsgBox "SendNow Disabled"
If olRule.Enabled = True Then olRule.Enabled = False
olRules.Save
End If

exit_sub:
Exit Sub
err_routine:
MsgBox Error$
Resume exit_sub


End Sub
 
Never mind, true to form I figured it out right after I posted. Here is the working code:

Sub SendNow()
Dim olRules As Outlook.Rules
Dim olRule As Outlook.Rule
Dim mySyncObjects As Outlook.SyncObjects
Dim syc As Outlook.SyncObject
Set mySyncObjects = Application.GetNamespace("MAPI").SyncObjects
Set syc = mySyncObjects(1)
Set olRules = Application.Session.DefaultStore.GetRules
Set olRule = olRules.Item("DelaySend")
'If olRule.Enabled = True Then olRule.Enabled = False
'olRules.Save
'If olRule.Enabled = False Then olRule.Enabled = True
'olRules.Save
'Set olRules = Nothing
'Set olRule = Nothing

On Error GoTo err_routine

Dim x

Dim OutlookSendReceiveWasPreviouslyDisabled As Boolean
Line1: OutlookSendReceiveWasPreviouslyDisabled = Application.ActiveExplorer().CommandBars("Standard").Controls("Send/Re&ceive").Controls("Send/Recei&ve Settings").Controls("&Disable Scheduled Send/Receive").State

Line2:
Application.ActiveExplorer().CommandBars("Standard").Controls("Send/Re&ceive").Controls("Send/Recei&ve Settings").Controls("&Disable Scheduled Send/Receive").Execute
Line2b:

If OutlookSendReceiveWasPreviouslyDisabled Then
MsgBox "SendNow Enabled."
If olRule.Enabled = False Then olRule.Enabled = True
olRules.Save
syc.Start
Else
MsgBox "SendNow Disabled"
If olRule.Enabled = True Then olRule.Enabled = False
olRules.Save
syc.Start
End If

exit_sub:
Exit Sub
err_routine:
MsgBox Error$
Resume exit_sub


End Sub
 
Status
Not open for further replies.
< How to choose from a list of templates in a shared drive folder | Contact Page 2 Combobox via Registry >
Similar threads
Thread starter Title Forum Replies Date
T "Words In Recipient's Address" Rule Causes Outlook To Stop Processing Rules Using Outlook 3
Victor_50 Problem - Google Workspace will stop "unsafe" access to Outlook end 2024 Using Outlook 3
L How Stop Outlook Nag Messages Using Outlook 1
G Stop Outlook 365 adding meetings to calendar Using Outlook 1
L Emails being archived when I press the A key accidentally - how do I stop this? Using Outlook 0
P How can I stop Outlook 365 duplicating the posts? Using Outlook 1
J how to stop junk emails from *.onmicrosoft.com ? Using Outlook 2
A How to stop user form from disapearing once mail window is closed? Outlook VBA and Custom Forms 0
D Outlook 2016 Outlook Error Msg "The operation cannot be performed ..." How to Stop it Using Outlook 4
Y Outlook 2013 Stop Outlook from automatically assigning categories to Tasks Using Outlook 0
D Any updates or fixes that would make this code stop working just moving emails to another folder Outlook VBA and Custom Forms 1
F Outlook 2016 call to Stop Timer Event Outlook VBA and Custom Forms 4
S stop calendar date reverting to today Using Outlook 7
B Contacts just stop syncing, yesterday... Using Outlook 4
O Stop more than one person responding to an email? Using Outlook 1
A Can't stop Outlook.com from setting reminders on appointments? Using Outlook.com accounts in Outlook 3
D Stop meeting acceptance notifications Using Outlook 1
J it goes like outlook has stopped working, a problem caused the program to stop working correctly, wi Using Outlook 2
makinmyway Research Pane in Emails Turns on and Cut Paste Keys then Stop Working Using Outlook 5
J How to Stop OutLook from being Installed Using Outlook 1
A Exchange 2003 how to stop accepting EHLO and AUTH commands Exchange Server Administration 2
M Outlook 2010 IMAP rules occasionaly stop working Using Outlook 4
C How to stop iCloud calendars opening by default Using Outlook 8
icacream outlook 2007 - how do I stop spacing when I hit return ? Using Outlook 4
T Outlook 2007 SSL selfsigned certificate how to stop security popup everytime? Using Outlook 10
Y How do you stop double booking? Using Outlook 1
Commodore Why some RSS feeds stop getting updates? Using Outlook 12
N Rules stop running automatically Using Outlook 10
S Stop mail checking Using Outlook 5
M Can you stop "Microsft Office Outlook is synchronizing folders"? Using Outlook 2
C stop messages to personal folders Using Outlook 2
M Why rules stop running automatically? Using Outlook 1
J Stop Outlook 2010 from showing face pictures in From/To/Cc/Subject box Using Outlook 2
S Shared Calendar Need To Stop Receiving Other Peoples Reminders Using Outlook 3
R Stop Double Booking Rooms Using Outlook 3
C stop facebook? Using Outlook 16
A How do I get Outlook to stop adding a "+1" in front of a telephone number that has an extension. Using Outlook 13
L Outlook inbox is "always in front". How to stop that? BCM (Business Contact Manager) 1
M Stop Search folders from disabling every 1-2 days? Outlook VBA and Custom Forms 3
N VBA Procedure (or Macro) to Stop Outlook from Closing? Outlook VBA and Custom Forms 2
M Stop ribbon item tool tip text from wrapping? Outlook VBA and Custom Forms 2
D Stop automatic opening BCM (Business Contact Manager) 1
C How to stop replies in thier tracks Outlook VBA and Custom Forms 1
A stop outlook reminders generated through BCM BCM (Business Contact Manager) 3
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
HarvMan Outlook 365 - Rule to Move an Incoming Message to Another Folder Using Outlook 4
B Modify VBA to create a RULE to block multiple messages Outlook VBA and Custom Forms 0
D VBA - unable to set rule condition 'on this computer only' Outlook VBA and Custom Forms 5
CWM550 This rule has a condition that the server cannot process? Using Outlook 1
A rule name into message - how? Outlook VBA and Custom Forms 5

Similar threads

Back
Top