如何刪除當前編輯的草稿而不刪除 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。 點擊 自定義快速訪問工具欄 > 更多命令.
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 - 超過 100 種強大的功能可增強您的 Outlook
🤖 人工智慧郵件助手: 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……
📧 電子郵件自動化: 外出(適用於 POP 和 IMAP) / 安排發送電子郵件 / 發送電子郵件時按規則自動抄送/密件副本 / 自動轉送(進階規則) / 自動添加問候語 / 自動將多收件者電子郵件拆分為單獨的訊息 ...
📨 電子郵件管理: 輕鬆回憶電子郵件 / 按主題和其他人阻止詐騙電子郵件 / 刪除重複的電子郵件 / 進階搜索 / 合併資料夾 ...
📁 附件專業版: 批量保存 / 批量分離 / 批量壓縮 / 自動保存 / 自動分離 / 自動壓縮 ...
🌟 介面魔法: 😊更多又漂亮又酷的表情符號 / 使用選項卡式視圖提高 Outlook 工作效率 / 最小化 Outlook 而不是關閉 ...
👍 一鍵奇蹟: 使用傳入附件回覆全部 / 反網路釣魚電子郵件 / 🕘顯示寄件者的時區 ...
👩🏼🤝👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人 / 將聯絡人群組拆分為各組 / 刪除生日提醒 ...
超過 100特點 等待您的探索! 按此處了解更多。