Outlook：更改“之前不提供”功能的默认电子邮件延迟

在Outlook中，有一个功能允许我安排我的电子邮件以便以后发送 - 我喜欢它，当我在深夜回复电子邮件并且不想看起来像工作狂。但是，它默认为下午5点 - 如果它在当前下午5点之前，它默认为今天下午5点，如果它在当前下午5点之后，则默认为明天晚上下午5点。例如，它现在是凌晨1点30分，我和Outlook正试图在明天晚上5点发送电子邮件：

有没有办法改变这个默认的交货时间？最好是，我想把它设置为早上6:30 - 这样，在下班后输入一封电子邮件，明天上午很容易安排它（点击“延迟交付”然后“确定”），现在我有打开“延迟交付”，修复时间，通常也修复日期，然后单击“确定”。

我不打算在默认情况下延迟发送电子邮件，我只是想找到一种方法来改变Outlook的假设我有兴趣在人们回家后立即发送电子邮件 - 我更愿意在他们到达之前的早晨。

解决方案： 感谢Axel的回答以及最初来自Mike Hudson的代码，我写了一个宏来完成我想要做的事情。我将宏固定到快速访问工具栏上的按钮，现在只需单击一下即可。完成任务 - 感谢您的帮助！

如果您想自己查看一下，这里有一个指向延迟发送邮件宏的链接（您可以按照此步骤将其固定到工具栏上）。我愿意接受任何人提出的任何反馈或改进建议，但这对我来说是一个巨大的帮助。

受Mike Hudson的启发，我为您编写了以下VBA代码：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Const morningTime As String = "06:30:00"
    Const eveningTime As String = "19:00:00"

    Dim mi As Outlook.MailItem
    Dim dow As Integer
    Dim time As String
    Dim itIsLate As Boolean

    On Error GoTo ErrorHandler

    Set mi = Item

    dow = Weekday(Date, vbMonday)
    time = Format(Now, "HH:NN:SS")
    itIsLate = (StrComp(time, eveningTime) > 0)

    If (dow = vbSaturday) Or (dow = vbSunday) Or _
        ((dow = vbFriday) And itIsLate) Then
        '  Weekend! Delay until Monday morning
        mi.DeferredDeliveryTime = (Date + (vbSunday - dow + 1)) _
                                & " " & morningTime
    ElseIf itIsLate Then
        '  in the evening, delay until next morning
        mi.DeferredDeliveryTime = (Date + 1) & " " & morningTime
    End If
Exit Sub

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

每当您发送邮件时都会调用子例程。在周末，送货时间推迟到周一早上。如果时间是在“晚上时间”之后，则延迟到第二天早上。请在实际使用此宏之前进行一些测试！