Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 08-27-2021, 05:04 AM
bashiok bashiok is offline Forcing a delayed email to be sent Windows 10 Forcing a delayed email to be sent Office 2013
Novice
Forcing a delayed email to be sent
 
Join Date: Aug 2021
Posts: 1
bashiok is on a distinguished road
Default Forcing a delayed email to be sent

Hi.

I made a rule that delays ALL messages by 30 minutes. If I click the send / receive button, the mail does not come out. Is it possible to make a macro or other rule that will bypass the previous rule after pressing the icon on the ribbon? Or a macro that will "force" an email to be sent.
Reply With Quote
  #2  
Old 09-05-2021, 07:53 AM
AlanCantor AlanCantor is offline Forcing a delayed email to be sent Windows 10 Forcing a delayed email to be sent Office 2019
Competent Performer
 
Join Date: Nov 2020
Posts: 134
AlanCantor is on a distinguished road
Default

Try modifying the existing rule so that the rule has an exception. The rule doesn't apply when messages have certain words in the message body or subject, they are marked with a certain importance level, and other possibilities.



For example, the rule will be ignored if "***" appears on the Subject Line, the message is assigned "High" Importance, etc.
Reply With Quote
  #3  
Old 09-05-2021, 09:17 PM
gmayor's Avatar
gmayor gmayor is offline Forcing a delayed email to be sent Windows 10 Forcing a delayed email to be sent Office 2019
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
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
Forcing a delayed email to be sent Forcing Margins when Read in an Email Program Quadrillion Word 1 09-04-2011 06:13 AM
Forcing Appointments in Outlook Calendar malakingaso Outlook 0 03-01-2010 08:29 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 03:08 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft