Delay Outlook mail sending - MikeSel - Downloads, How-To's, News, Reviews & Rumours

Home » Delay Outlook mail sending
https://www.mikesel.info/delay-outlook-mail-sending/

So today I was approached by an internet friend of mine Richard Tubb, he had a bit of a challenge for me. As a keen Ms Outlook user, he wanted to see if there was a way of delaying all emails that he’d composed and hit send on during the weekend to arrive on the next working day.

Of course, Ms Outlook has the built in deferred delivery time function.. However, setting that manually each time could easily become a bind. So that’s where this little Outlook VBA Snippet steps it.

The code checks to see if today is a weekday upon sending the email, and if it is either a Saturday or Sunday, it then finds the date of the next Monday, and sets the deferred send option to that Monday at 7AM. Of course, should Richard be sending mail through the week, Outlook will simply ignore the code. Simple really :)

EDIT: So Richard came back to me with a second request, to delay mail sent on a weekday by 30 minutes, I have now adjusted the code to suit.

If you find this code useful, or think you have a better way of doing this, drop me a line in the comments below!

Cheers
Mike

Home » Delay Outlook mail sending


  • Anonymous

    Mike – a *big* thanks for taking the time to help me here, and share the code as you have. Hugely appreciated! This will have a really positive effect on the way I use e-mail!

    • http://www.mikesel.info/ Mike Hudson

      I shall always expect a delay in your response should I email you in future 😀

  • Aron Gahagan

    Very helpful, thank you! I often Send too soon, so with a 5 min delay I can avoid the “oh no!” factor when I’ve forgotten something. My only suggested improvement would be:

    If Weekday(Date, vbMonday) > 6 Then strDeferUntil = Date + (8 – Weekday(Date)) & ” 08:00:00″ Else strDeferUntil = DateAdd(“n”, 5, Now)

    Item.DeferredDeliveryTime = strDeferUntil

  • Aron Gahagan

    Very helpful, thank you! I often Send too soon, so with a 5 min delay I can avoid the “oh no!” factor when I’ve forgotten something. My only suggested improvement would be:

    If Weekday(Date, vbMonday) > 6 Then strDeferUntil = Date + (8 – Weekday(Date)) & ” 08:00:00″ Else strDeferUntil = DateAdd(“n”, 5, Now)

    Item.DeferredDeliveryTime = strDeferUntil


Page 1 of 11

Looking for something?

Use the form below to search the site:

Still not finding what you're looking for? Drop a comment on a post or contact us so we can take care of it!

Categories

* = required field

powered by MailChimp!