如何變更 Outlook 中延遲寄件的預設時間？

當您在 Outlook 中啟用電子郵件的延遲寄件功能（例如下圖所示的「不要早於」選項）時，系統預設會將寄件時間設為下午 5:00. 若您經常熬夜工作，又不希望同事察覺您在加班，便需在寄件前手動啟用此功能；但請注意，若未另行調整預設時間，郵件將延至隔日下午 5:00 之後才寄出。有辦法更改這個預設寄件時間嗎？

本教學提供一段 VBA 程式碼，協助您輕鬆調整 Outlook 延遲寄件選項的預設時間。

使用 VBA 程式碼變更 Outlook 中延遲寄件的預設時間

您可套用以下 VBA 程式碼，輕鬆變更 Outlook 延遲寄件選項的預設時間。

在下列 VBA 程式碼中：

您可以設定兩個時間：「延遲寄件時間」與「啟用延遲寄件功能的時間」。

例如，若您將延遲寄件時間設為上午 7:30，並啟用「於下午 5:30 後自動啟用延遲寄件」選項，則在上午 7:30 至下午 5:30 之間寄出的郵件會立即發送；而在下午 5:30 至隔日上午 7:30 之間寄出的郵件，則會排程於隔日工作日上午 7:30 後寄出。

請依照以下步驟測試此指令碼。

1. 啟動 Outlook，同時按下「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 在「Microsoft Visual Basic for Applications」視窗中，依序雙擊「Project 1」＞「Microsoft Outlook 物件」＞「ThisOutlookSession」，開啟「ThisOutlookSession（程式碼）」視窗，並將下列程式碼貼入其中。

VBA 程式碼：變更 Outlook 中延遲寄件的預設時間

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice & EWP 20230602
  Const xDelayTime As String = "07:30:00"  'The delay delivery time of emails
  Const xCompareTime As String = "17:30:00" 'The time to enable the delay delivery option
  Dim xMail As Outlook.MailItem
  Dim xWeekday As Integer
  Dim xNowTime As String
  Dim xIsDelay As Boolean
  Dim xRet1 As Integer
  Dim xRet2 As Integer
  On Error GoTo xError
  If (Item.Class <> olMail) Then Exit Sub
  Set xMail = Item
  xWeekday = Weekday(Date, vbMonday)
  xNowTime = Format(Now, "hh:nn:ss")
  xIsDelay = False
  xRet1 = StrComp(xNowTime, xDelayTime)
  xRet2 = StrComp(xNowTime, xCompareTime)
  If xRet1 = xRet2 Then
    xIsDelay = True
  End If
  If (xRet1 = -1) And (xRet2 = -1) Then
    xMail.DeferredDeliveryTime = Date & " " & xDelayTime
  Else
    If ((xWeekday = 5) And xIsDelay) Or (xWeekday = 6) Or (xWeekday = 7) Then
      xMail.DeferredDeliveryTime = (Date + (5 - xWeekday + 3)) & " " & xDelayTime
    ElseIf xIsDelay Then
      xMail.DeferredDeliveryTime = (Date + 1) & " " & xDelayTime
    End If
  End If
Exit Sub
xError:
  MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub

注意事項：

3. 儲存程式碼後，按下「Alt」+「Q」即可關閉「Microsoft Visual Basic for Applications」視窗。

從現在起，當您在上午 7:30 至下午 5:30 之間寄送郵件，將立即發送；若於下午 5:30 至隔日上午 7:30 之間寄送，則會自動排程於隔日工作日上午 7:30 後寄出。

相關文章

---

最佳 Office 生產力工具

體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！

🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！

📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……

📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……

📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……

🌟 介面魔法：😊更多精美酷炫表情符號／重要郵件來到時提醒您／最小化 Outlook 而非關閉……

👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……

👩🏼‍🤝‍👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……

用您的慣用語言暢享 Kutools — 完整支援英文、西班牙文、德文、法文、中文等 40 多種語言！

立即一鍵解鎖 Kutools for Outlook！別再等待，馬上下載，全面提升工作效率！

Kutools for Outlook 功能列表      立即下載      前往購買

🚀 一鍵下載 — 立即取得所有 Office 增益集

強烈推薦：Kutools for Office（5 合 1）

一鍵下載五個安裝程式，一次完成 — Kutools for Excel、Outlook、Word、PowerPoint 與 Office Tab Pro！立即點擊下載！

• ✅ 一鍵便利：只需一次操作，即可下載全部五個安裝套件！
• 🚀 隨時應對任何 Office 任務：按需安裝所需增益集，立即提升工作效率！
• 🧰 包含：Kutools for Excel／Kutools for Outlook／Kutools for Word／Office Tab Pro／Kutools for PowerPoint

關於此套件⬇ 下載套件💳 購買套件