Stop Rule (not turn off) that Delays Outgoing Items

Status
Not open for further replies.

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
 

adavid

New Member
Outlook version
Outlook 2010 32 bit
Email Account
IMAP
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.
Thread starter Similar threads Forum Replies Date
T "Words In Recipient's Address" Rule Causes Outlook To Stop Processing Rules Using Outlook 3
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
W To stop outlook 2010 to open my browser at file:///C:/Users/username/AppData/Local/Microsoft/Windows Using Outlook 1
G How can I stop duplicate e-mails being sent to my sent folder in Outlook 2010? Using Outlook 2
N Stop accepting connections for sending e-mail from users not having a mailbox Exchange Server Administration 6
D Outlook 2010 - Tasks - Stop using "To-Do List" Using Outlook 2
M when I save my messages it saves images as attachments . how can I stop it ? Using Outlook 16
A How do I stop automatic e-mail forwarding? Using Outlook 2
P After window 7 idle for few minutes then outlook 2010 stop send and receive Using Outlook 2
G How to stop Live mail from getting my Outlook mail Using Outlook 2
D Use of outlook blocked by stop symbol Using Outlook 2
A stop Outlook 2010 from downloading email with IMAP settings Using Outlook 1
F how do i stop my emails from leaving the outbox the moment I hit "send". Using Outlook 2
W Outlook 2007 stop sending mail, can receive but not send email Using Outlook 2
B Using Oulook and have 2 accts. Admin acct gets other acct email as well. How do I stop? Using Outlook 1
J Stop details info reply from Exchange 2010 Server of undeliverable message to external recipent Exchange Server Administration 2
F Stop Address Auto Save Using Outlook 1
M Can't stop the new mail beep - already unchecked play sounds box. Using Outlook 1
A How to stop .pst getting email repeatedly ? ( outlook 2010 ) Using Outlook 3
B Stop read receipts from being requested when i send emails Using Outlook 1
C how do i stop calender reminders? Using Outlook 1
R Emails Stop Exchange Server Administration 21
J Outlook 2007 - How Do I stop Most Messages Getting Marked As Spam? Using Outlook 2
J Appointment times automatically moved 2 hours when I changed time zones...how do I stop this? Using Outlook 1
Y How can I stop incoming mail but keep the old mail? Using Outlook 1
Similar threads


















































Top