如何刪除當前編輯的草稿而不刪除 Outlook 中的原始電子郵件？

Microsoft Outlook 2013 及更高版本默認在閱讀窗格中打開電子郵件回复。假設您正在回復一封電子郵件，3 分鐘後 Outlook 會自動將回复保存為草稿。但隨後您決定不發送此回复並將草稿連同它一起刪除。一些 Outlook 用戶傾向於單擊主頁選項卡下的刪除按鈕以從閱讀窗格中刪除草稿（請參見下面的屏幕截圖）。但此操作也會刪除原始電子郵件。

在本教程中，我們提供了兩個 VBA 代碼來幫助您在快速訪問工具欄上添加兩個命令，以快速刪除當前編輯的草稿而不刪除 Outlook 中的原始電子郵件。

刪除閱讀窗格中當前編輯的草稿
 在新窗口中刪除當前編輯的草稿

刪除閱讀窗格中的當前編輯草稿

如果您習慣於在閱讀窗格中回復電子郵件，您可以應用以下 VBA 代碼來刪除當前編輯的草稿，而無需刪除 Outlook 中的原始電子郵件。

1.啟動Outlook，按其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。在裡面 Microsoft Visual Basic for Applications 窗口，雙擊 Project1 > Microsoft Outlook對象 > 本次展望會議 打開 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 Sub

3.保存代碼，然後按其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

現在您需要一個按鈕來運行宏。

4。點擊 自定義快速訪問工具欄 > 更多命令.

5。在裡面 Outlook選項 對話框，您需要配置如下。

5.1）在 從中選擇命令 下拉列表，選擇宏；

5.2）選擇上一步添加的宏；

5.3）點擊加入按鈕將此宏添加到 自定義快速訪問工具欄 框。

6. 保持選中右側框中的腳本，然後單擊修改按鈕。在裡面 修改按鈕 對話框，為腳本分配一個新按鈕，然後單擊 確定。

7。點擊 OK 在 Outlook選項 對話框以保存更改。

然後將您在步驟 6 中指定的按鈕添加到 快速訪問工具欄.

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

從現在開始，在閱讀窗格中回復電子郵件時，您可以通過單擊快速訪問工具欄上的按鈕將回复連同草稿一起刪除。

備註： 運行腳本後，您需要在郵件列表中選擇另一封電子郵件以刷新當前文件夾中的郵件視圖。

在新窗口中刪除當前編輯的草稿

如果您想在新窗口中回復電子郵件。以下 VBA 代碼有助於在 Outlook 中輕鬆刪除回復電子郵件以及草稿。

1.啟動Outlook，按其他 + 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。按其他 + F11 關閉 Microsoft Visual Basic for Applications 窗口。

現在您需要一個按鈕來運行宏。

4。點擊首頁 > 新郵件 創建新電子郵件。在消息窗口中，單擊 自定義快速訪問工具欄 > 更多命令.

5.然後重複上面的步驟 從 5 到 7 為腳本創建一個按鈕 並將其添加到 快速訪問工具欄 的消息窗口。

從現在開始，在新消息窗口中回復電子郵件時，您可以通過單擊快速訪問工具欄上的按鈕來刪除此回復以及草稿。