如何在不删除原始邮件的前提下，删除当前正在编辑的草稿（Outlook）？

Microsoft Outlook 2013 及更高版本默认在阅读窗格中打开邮件回复。假设您正在回复一封邮件，3 分钟后 Outlook 会自动将该回复另存为草稿。此时，如果您决定不发送该回复，并希望连同草稿一起删除，有些 Outlook 用户习惯在阅读窗格中点击“主页”选项卡下的“删除”按钮（如下图）来删除草稿。但这样操作会将原始邮件一并删除。

本教程为您提供两段 VBA 代码，助您将两个命令添加到快速访问工具栏，实现 Outlook 中一键快速删除当前正在编辑的草稿，同时确保原始邮件不会被误删。

在阅读窗格中删除当前正在编辑的草稿
在新窗口中删除当前正在编辑的草稿

在阅读窗格中删除当前正在编辑的草稿

如果您习惯在阅读窗格中回复邮件，可以使用以下 VBA 代码，在 Outlook 中删除当前正在编辑的草稿，同时保留原始邮件。

1. 启动 Outlook，按下 Alt+F11 组合键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1 > Microsoft Outlook 对象 > ThisOutlookSession，即可打开 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. 保存代码后，按下 Alt+Q 组合键，即可关闭 Microsoft Visual Basic for Applications 窗口。

接下来，您需要添加一个按钮来运行该宏。

4. 点击自定义快速访问工具栏 > 其他命令。

5. 在 Outlook 选项对话框中，请按以下步骤操作。

6. 保持右侧框中已选中的脚本，然后点击修改按钮。在修改按钮对话框中，为脚本分配新的按钮后，点击确定。

7. 点击确定，即可在 Outlook 选项对话框中保存更改。

在第 6 步中指定的按钮会被添加至快速访问工具栏。

8. 重启 Outlook 以激活您的代码。

从现在起，您只需点击快速访问工具栏上的按钮，即可在阅读窗格中回复邮件时删除本次回复及其对应草稿。

注意：运行脚本后，您需在邮件列表中选择其他邮件，才能刷新当前文件夹的邮件列表视图。

Outlook AI 邮件助手：智能回复，沟通更高效清晰（只需一键，轻松体验神奇效果！）

通过 Kutools for Outlook 的 AI 邮件助手，轻松提升您的日常 Outlook 工作效率。该强大工具能够智能学习您的邮件习惯，提供高效、精准的回复建议，优化邮件内容，助您轻松起草和润色邮件。

该功能支持：

• 智能回复：根据您的历史对话内容生成个性化且精准的回复，随时为您所用。
• 内容优化：自动完善您的邮件文本，让表达更加清晰且更具影响力。
• 轻松写作：您只需输入关键词，剩下的交给 AI，多种润色风格随心选择。
• 智能扩展：结合上下文，智能拓展您的想法，提供精准建议。
• 智能摘要：轻松为冗长邮件快速生成简明概览，让信息一目了然。
• 全球畅邮：轻松将邮件翻译为任意语言。

该功能支持：

• 智能邮件回复
• 内容优化
• 关键词草稿
• 智能内容扩展
• 邮件摘要
• 多语言翻译

立即行动——现在就下载 AI 邮件助手，畅享高效体验，不容错过！

a name="a 2“> 在新窗口中删除当前正在编辑的草稿

如果您习惯在新窗口中回复邮件，以下 VBA 代码可助您轻松删除该回复邮件及其草稿。

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. 点击主页> 新建邮件 即可创建新邮件。在邮件窗口中，点击自定义快速访问工具栏> 其他命令。

5. 然后重复上述 从 5 到 7 的步骤，为该脚本创建按钮，并将其添加到邮件窗口的快速访问工具栏中。

从现在起，在新邮件窗口中回复邮件时，您只需点击快速访问工具栏上的按钮，即可删除本次回复及其草稿。

---

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

Kutools for Outlook 功能列表      立即下载      前往购买

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

• ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
• 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
• 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

关于套件⬇ 下载套件💳 购买套件