Deferred Email Send!

I recently added a small piece of code in my Outlook 2010 VBA. This code will essentially delay the email by 1 minute before it is actually sent to the recipient(s). My experience from the last two days have been extremely positive regarding this. It gives me one more minute after I have hit the send button to review my mail and make any changes.

Initially I was reluctant to believe that I needed this. But surprisingly, this indeed is a best practice. It will give you a minute’s time to actually reflect on what you sent and a chance to review.

Try it!

It can be done in a very simple way. The following code when added in the application Item Send event of Outlook VBA, it add a 1 minute delay. But please Note that I am not a regular VBA programmer, and I am sure there can be better implementation of the same. The idea of adding a delay is important here, which the following code does.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Item.DeferredDeliveryTime = AddDelay(1)
End Sub

Private Function AddDelay(del As String) As String
Dim dt As Date
dt = Now() + TimeValue("00:" & (del) & ":00")
AddDelay = Str(dt)
End Function

Leave a Reply