如何在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窗口中,双击Project1 > Microsoft Outlook Objects > ThisOutlookSession以打开ThisOutlookSession (Code)窗口。然后将以下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="a2"> 在新窗口中删除当前正在编辑的草稿
如果您喜欢在新窗口中回复邮件。以下VBA代码可以帮助您轻松地在Outlook中删除回复邮件及其草稿。
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 推出免费版本!
体验全新 Kutools for Outlook 免费版本,拥有 70 多项令人惊叹的功能,永久免费使用!立即点击下载!
🤖 Kutools AI :利用先进的人工智能技术轻松处理电子邮件,包括回复、总结、优化、扩展、翻译和撰写邮件。
📧 邮件自动化:自动答复(支持 POP 和 IMAP) / 定时发送邮件 / 按规则自动抄送密送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人邮件拆分为单独消息 ...
📨 邮件管理:撤回邮件 / 按主题和其他条件阻止垃圾邮件 / 删除重复邮件 / 高级搜索 / 整合文件夹 ...
📁 附件增强功能:批量保存 / 批量拆离 / 批量压缩 / 自动保存 / 自动拆离 / 自动压缩 ...
🌟 界面魔法:😊更多漂亮酷炫的表情符号 / 当重要邮件到达时提醒您 / 最小化 Outlook 而不是关闭 ...
👍 一键奇效:带附件回复所有人 / 反钓鱼邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 联系人和日历:从选定的邮件中批量添加联系人 / 将联系人组拆分为单独的组 / 移除生日提醒 ...
单击即可立即解锁 Kutools for Outlook。不要再等待,现在就下载并提升您的效率!

