如何在Outlook中刪除目前正在編輯的草稿而不刪除原始郵件?
Microsoft Outlook 2013及更高版本默認情況下會在閱讀窗格中打開郵件回覆。假設您正在回覆一封郵件,3分鐘後Outlook自動將回覆保存為草稿。但隨後您決定不發送此回覆並刪除了該草稿。一些Outlook用戶傾向於點擊“Home(主頁)”選項卡下的“Delete(刪除)”按鈕以從閱讀窗格中刪除草稿(見下面的截圖)。但這個操作也會刪除原始郵件。

在本教程中,我們提供了兩個VBA代碼,幫助您在快速訪問工具欄上添加兩個命令,以便快速刪除目前正在編輯的草稿而不刪除Outlook中的原始郵件。
刪除閱讀窗格中目前正在編輯的草稿
在新窗口中刪除目前正在編輯的草稿
刪除閱讀窗格中目前正在編輯的草稿
如果您習慣在閱讀窗格中回覆郵件,可以應用以下VBA代碼來刪除目前正在編輯的草稿而不刪除Outlook中的原始郵件。
1. 啟動您的Outlook,按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。
2. 在 Microsoft Visual Basic for Applications 窗口中,雙擊 Project1 > Microsoft Outlook Objects > ThisOutlookSession 以打開 ThisOutlookSession (Code) 窗口。然後將以下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 Sub
3. 保存代碼並按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 窗口。
現在,您需要一個按鈕來運行宏。
4. 點擊 自定義快速訪問工具欄 > 其他命令。

5. 在 Outlook Options 對話框中,您需要進行以下配置。

6. 在右側框中保持腳本選中狀態,然後點擊 修改 按鈕。在 修改按鈕 對話框中,為腳本分配一個新按鈕並點擊 確定。

7. 在 Outlook Options 對話框中點擊 確定 以保存更改。
您在第6步中指定的按鈕將被添加到 快速訪問工具欄。

8. 重新啟動Outlook以激活代碼。
從現在開始,當在閱讀窗格中回覆郵件時,您可以通過點擊 快速訪問工具欄 上的按鈕來刪除回覆及其草稿。
注意:運行腳本後,您需要在郵件列表中選擇另一封郵件以刷新當前文件夾中的郵件視圖。
Outlook中的AI郵件助理:更聰明的回覆,更清晰的溝通(一鍵奇蹟!) 免費
使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習,提供智能且準確的答覆,優化您的郵件內容,並幫助您輕鬆起草和潤色郵件。

此功能支援:
- 智能回覆:根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
- 增強內容:自動優化您的郵件文字以提高清晰度和影響力。
- 輕鬆撰寫:只需提供關鍵字,讓AI處理其餘部分,並有多種寫作風格可供選擇。
- 智能擴展:通過上下文感知建議來拓展您的思路。
- 摘要生成:即時獲取長郵件的簡潔概述。
- 全球觸及:輕鬆將您的郵件翻譯成任何語言。
此功能支援:
- 智能郵件回覆
- 優化的內容
- 基於關鍵字的草稿
- 智能內容擴展
- 郵件摘要生成
- 多語言翻譯
最重要的是,此功能永遠完全免費!不要再等待了——立即下載AI郵件助理並享受吧
a name="a2"> 在新窗口中刪除目前正在編輯的草稿
如果您喜歡在新窗口中回覆郵件,以下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 Sub
3. 按下 Alt + F11 以關閉 Microsoft Visual Basic for Applications 窗口。
現在,您需要一個按鈕來運行宏。
4. 點擊 Home > 新建郵件 以創建新郵件。在郵件窗口中,點擊 自定義快速訪問工具欄 > 其他命令。
5. 然後重複上述從第5步到第7步的操作,為腳本創建一個按鈕並將其添加到郵件窗口的快速訪問工具欄中。
從現在開始,當在新郵件窗口中回覆郵件時,您可以通過點擊 快速訪問工具欄 上的按鈕來刪除該回覆及其草稿。

最佳辦公室生產力工具
最新消息:Kutools for Outlook推出免費版本!
體驗全新的Kutools for Outlook免費版本,擁有70多項令人驚嘆的功能,永久使用!立即點擊下載!
🤖 Kutools AI :使用先進的AI技術輕鬆處理郵件,包括答覆、摘要、優化、擴展、翻譯和撰寫郵件。
📧 郵件自動化:自動回覆(適用於POP和IMAP) / 計劃發送郵件 / 發送郵件時按規則自動抄送密送 / 自動轉發(高級規則) / 自動新增問候語 / 自動將多收件人郵件拆分為個別郵件...
📨 郵件管理:撤回郵件 / 按主題和其他方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾...
📁 附件專業版:批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮...
🌟 介面魔法:😊更多漂亮和酷炫的表情符号 / 當重要郵件到來時提醒您 / 最小化Outlook而不是關閉...
👍 一鍵奇蹟:帶附件全部答復 / 防止網絡釣魚郵件 / 🕘顯示發件人的時區...
👩🏼🤝👩🏻 聯絡人和日曆:從選中郵件批量新增聯絡人 / 將聯絡人組拆分為個別組 / 移除生日提醒...
立即單擊解鎖Kutools for Outlook。不要等待,立即下載並提升您的效率!

