Как я могу отложить доставку электронной почты в Outlook менее чем на минуту?

Question

Правила Outlook позволяют отложить доставку на целое количество минут. Есть ли способ настроить Outlook так, чтобы он вел себя как популярное расширение Gmail, которое задерживает доставку ровно на 10 секунд?

Answer 1

Если вы хотите использовать VBA, вы можете сделать следующее:

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

^{Примечание: у меня еще не было времени полностью протестировать это, и могут быть ошибки. Оригинальная идея найдена здесь.}