Como faço para adiar a entrega de e-mail por menos de um minuto no Outlook?

Question

As regras do Outlook permitem adiar a entrega por um número inteiro de minutos. Existe uma maneira de configurar o Outlook para se comportar como a popular extensão do Gmail que atrasa a entrega por exatamente 10 segundos?

    

Answer 1

Se você estiver disposto a usar o VBA, faça o seguinte:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Const defaultDelayInMinutes As Integer = 0
    Const defaultDelayInSeconds As Integer = 10

    Dim timeToSend As Date
     Dim mi As Outlook.MailItem

     On Error GoTo ErrorHandler

     timeToSend = Now + TimeSerial(0, defaultDelayInMinutes, defaultDelayInSeconds)

     Set mi = Item
     mi.DeferredDeliveryTime = timeToSend
Exit Sub

ErrorHandler:
     MsgBox "Application_ItemSend: " & Err.Description
End Sub

^{Nota: Ainda não tive tempo para testar isso completamente e pode haver bugs. Idéia original encontrada aqui .}