Outlook 2013 - Script to Create Rule to Delay All Sent Messages by X Minutes

Will - Looks like rules with deferred delivery/delayed send cannot be created programmatically (per MS).

We ended up creating a VBA script that runs as a background macro in Outlook (see code below).  If "immediate" is in the subject line it sends immediately as usual, if not it delays send by 5 minutes.  This parks it in the Outbox, allowing users to make any needed corrections before it sends for good.

As for deployment, we push out a pre-configured Outlook OTM (macro) file.  Not the most elegant solutions to be sure, but it works for now.

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim objMailItem As MailItem       ' to hold mail item
  Dim intErrNumber As Integer
  '
  On Error GoTo Err_Handler         'Error Handling
  Set objMailItem = Item            'Set object to mail item just sent
  'If objMailItem.Subject <> "Immediate" Then
  If InStr(1, objMailItem.Subject, "Immediate", vbTextCompare) = 0 Then
    objMailItem.DeferredDeliveryTime = DateAdd("n", 5, Now)     'Delay is + 2 minutes
   End If
  Exit Sub
Err_Handler:
'Due to lack of concentration of the code writing genius there has been a bit of an error,
'  lets tell someone about it by popping up a message box with a detailed description on the screen.
  intErrNumber = Err.Number
  If intErrNumber = 13 Then
   'Nothing.
  Else
    MsgBox ("An error has occurred on line " & Erl & ", with a description: " & Err.Description & ", and an error number " & _
       Err.Number)
  End If
End Sub

Select all Open in new window