Skip to main content

如何在Outlook中刪除目前正在編輯的草稿而不刪除原始郵件?

Author: Siluvia Last Modified: 2025-05-12

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

delete the currently edited draft without deleting the original email in Outlook

在本教程中,我們提供了兩個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代碼複製到代碼窗口中。

delete the currently edited draft without deleting the original email in Outlook

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. 點擊 自定義快速訪問工具欄 > 其他命令。

delete the currently edited draft without deleting the original email in Outlook

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

5.1) 在“選擇命令來自”下拉列表中,選擇 宏;
5.2) 選擇您在上一步中添加的宏;
5.3) 點擊 添加 按鈕將此宏添加到 自定義快速訪問工具欄 框中。
delete the currently edited draft without deleting the original email in Outlook

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

delete the currently edited draft without deleting the original email in Outlook

7. 在 Outlook Options 對話框中點擊 確定 以保存更改。

您在第6步中指定的按鈕將被添加到 快速訪問工具欄。

delete the currently edited draft without deleting the original email in Outlook

8. 重新啟動Outlook以激活代碼。

從現在開始,當在閱讀窗格中回覆郵件時,您可以通過點擊 快速訪問工具欄 上的按鈕來刪除回覆及其草稿。

注意:運行腳本後,您需要在郵件列表中選擇另一封郵件以刷新當前文件夾中的郵件視圖。


Outlook中的AI郵件助理:更聰明的回覆,更清晰的溝通(一鍵奇蹟!) 免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習,提供智能且準確的答覆,優化您的郵件內容,並幫助您輕鬆起草和潤色郵件。
doc ai email handle

此功能支援:

  • 智能回覆:根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
  • 增強內容:自動優化您的郵件文字以提高清晰度和影響力。
  • 輕鬆撰寫:只需提供關鍵字,讓AI處理其餘部分,並有多種寫作風格可供選擇。
  • 智能擴展:通過上下文感知建議來拓展您的思路。
  • 摘要生成:即時獲取長郵件的簡潔概述。
  • 全球觸及:輕鬆將您的郵件翻譯成任何語言。

此功能支援:

  • 智能郵件回覆
  • 優化的內容
  • 基於關鍵字的草稿
  • 智能內容擴展
  • 郵件摘要生成
  • 多語言翻譯

最重要的是,此功能永遠完全免費不要再等待了——立即下載AI郵件助理並享受吧


a name="a2"> 在新窗口中刪除目前正在編輯的草稿

如果您喜歡在新窗口中回覆郵件,以下VBA代碼可以幫助您輕鬆地刪除Outlook中的回覆郵件及其草稿。

1. 啟動您的Outlook,按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模塊。然後將以下VBA代碼複製到 模塊 窗口中。

delete the currently edited draft without deleting the original email in Outlook
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步的操作,為腳本創建一個按鈕並將其添加到郵件窗口的快速訪問工具欄中。

從現在開始,當在新郵件窗口中回覆郵件時,您可以通過點擊 快速訪問工具欄 上的按鈕來刪除該回覆及其草稿。

delete the currently edited draft without deleting the original email in Outlook