Note: The other languages of the website are Google-translated. Back to English

如何刪除當前編輯的草稿而不刪除 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 為腳本創建一個按鈕 並將其添加到 快速訪問工具欄 的消息窗口。

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


Kutools for Outlook-為Outlook帶來100個高級功能,並使工作更加輕鬆!

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (0)
還沒有評分。 成為第一位評論!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點