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

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