如何在 Outlook 中刪除目前編輯的草稿，卻不影響原始郵件？
Microsoft Outlook 2013 及更高版本預設會在閱讀窗格中開啟郵件回覆。假設您正在回覆某封郵件，3 分鐘後 Outlook 會自動將該回覆儲存為草稿。但若您隨後決定不傳送此回覆，並希望一併刪除該草稿，請特別留意：部分 Outlook 使用者習慣點擊［首頁］索引標籤下的［刪除］按鈕，直接從閱讀窗格中刪除草稿（請參閱下方截圖）。然而，此操作不僅會刪除草稿，還會同時刪除原始郵件。
本教學提供兩段 VBA 程式碼，協助您在快速存取工具列新增兩個指令，讓您能快速刪除目前編輯的草稿，同時保留原始郵件。
在閱讀窗格中刪除目前編輯的草稿
如果您習慣在閱讀窗格中回覆郵件，可套用以下 VBA 程式碼，在 Outlook 中刪除目前編輯的草稿，而不會影響原始郵件。
1. 啟動 Outlook，按下 Alt+F11 鍵，即可立即開啟 Microsoft Visual Basic for Applications 視窗！
2. 在 Microsoft Visual Basic for Applications 視窗中，按兩下 Project 1>Microsoft Outlook 物件>ThisOutlookSession，即可開啟 ThisOutlookSession （程式碼）視窗。接著，將下列 VBA 程式碼複製到程式碼視窗中，立即體驗自動化功能的強大效能！
VBA 程式碼：在閱讀窗格中刪除目前編輯的草稿
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GInlineMail = Item
End Sub
Sub InlineDiscard()
On Error Resume Next
If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
GInlineMail.UnRead = False
GInlineMail.Delete
End If
Set GInlineMail = Nothing
End Sub3. 儲存程式碼後，按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。
現在，您需要一個按鈕來執行巨集。
4. 按一下自訂快速存取工具列 > 其他命令。
6. 保持右側方塊中的指令檔處於選取狀態，然後按一下修改按鈕。在修改按鈕對話方塊中，為該指令檔指派新按鈕，再按一下確定。
7. 在確定Outlook 選項對話方塊中按一下
您在步驟 6 中指定的按鈕將立即新增至快速存取工具列。
8. 重新啟動 Outlook 以啟用程式碼。
日後當您在閱讀窗格中回覆郵件時，只需點擊快速存取工具列上的按鈕，即可一併刪除回覆及其草稿。
注意：執行指令碼後，請選取郵件列表中的另一封郵件，即可重新整理目前資料夾的郵件檢視畫面。
Outlook 中的 AI 郵件助理：聰明回覆、清晰溝通，一鍵輕鬆搞定！
透過 Kutools for Outlook 的 AI 郵件助理，輕鬆簡化您每日的 Outlook 工作！這款強大工具能學習您過往的郵件內容，提供智慧又精準的回覆建議、優化郵件文字，並協助您毫不費力地起草與潤飾訊息。
此功能支援：
- 智慧回覆：根據您過往的對話，量身打造精準到位的回應，立即可用。
- 內容強化：自動優化您的郵件文字，提升清晰度與影響力。
- 輕鬆撰寫：只需提供關鍵字，其餘交給 AI 處理，並支援多種潤色風格。
- 智慧擴充：根據上下文提供貼心建議，延伸您的創意與想法。
- 摘要功能：立即獲取長篇郵件的簡明摘要。
- 全球溝通：輕鬆將郵件翻譯成任何語言。
此功能支援：
- 智慧郵件回覆
- 優化內容
- 關鍵字草稿
- 智慧內容擴充
- 郵件摘要
- 多語言翻譯
別再等待——立即下載 AI 郵件助理，盡情享受！
a name="a 2“> 在新視窗中刪除目前編輯的草稿
如果您偏好在新視窗中回覆郵件，下列 VBA 程式碼可協助您在 Outlook 中輕鬆一併刪除回覆郵件及其草稿。
1. 啟動 Outlook，按下 Alt+F11 鍵以開啟 Microsoft Visual Basic for Applications 視窗。
2. 按一下插入> 模組，接著將下列 VBA 程式碼複製到模組視窗中。
Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
Dim xInspector As Inspector
Dim xMail As MailItem
On Error Resume Next
Set xInspector = Application.ActiveInspector
If xInspector Is Nothing Then Exit Sub
Set xMail = xInspector.CurrentItem
If Not xMail.Sent Then
xMail.UnRead = False
xMail.Delete
End If
End Sub3. 按下 Alt+F11，即可關閉 Microsoft Visual Basic for Applications 視窗。
現在您需要一個按鈕來執行巨集。
4. 按一下首頁 > 新建郵件，即可建立新郵件。在郵件視窗中，按一下自訂快速存取工具列 > 其他命令。
5. 接著重複上述步驟 從 5 到 7，為該指令檔建立按鈕，並新增至郵件視窗的快速存取工具列。
日後當您在新郵件視窗中回覆郵件時，只需點擊快速存取工具列上的按鈕，即可一併刪除該回覆及其草稿。
最佳 Office 生產力工具
體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！
🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！
📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……
📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……
📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……
🌟 介面魔法：😊更多精美酷炫表情符號／重要郵件來到時提醒您／最小化 Outlook 而非關閉……
👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……
👩🏼🤝👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……
用您的慣用語言暢享 Kutools — 完整支援英文、西班牙文、德文、法文、中文等 40 多種語言！
立即一鍵解鎖 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