![]() |
|
#1
|
||||
|
||||
![]()
The problem is that your rule will run after any macro you send. It would be better if you scrapped the rule and used a macro to apply the delay, Using Outlook's ItemSend you can prompt for the delay. Put the following code in the ThisOutlookSession module.
Code:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If TypeName(Item) = "MailItem" Then If MsgBox("Defer message?", vbExclamation + vbYesNo) = vbYes Then Item.DeferredDeliveryTime = DateAdd("n", 30, Now()) Else Item.DeferredDeliveryTime = DateAdd("n", -30, Now()) End If End If End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Forcing a section to skip numbering | Wild Bee | Word | 4 | 02-11-2021 02:32 AM |
Help please..My delayed email is no where to be found | Mrs. Lewis | Outlook | 0 | 04-03-2019 12:54 PM |
WHY are my outgoing email messages being delayed? | sue1201 | Outlook | 0 | 05-18-2018 10:05 AM |
![]() |
Quadrillion | Word | 1 | 09-04-2011 06:13 AM |
Forcing Appointments in Outlook Calendar | malakingaso | Outlook | 0 | 03-01-2010 08:29 AM |