如何在 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

^{注意：我还没有时间对此进行全面测试，可能存在错误。原来的想法在这里找到。}