如何删除当前编辑的草稿而不删除 Outlook 中的原始电子邮件？

Microsoft Outlook 2013 及更高版本默认在阅读窗格中打开电子邮件回复。假设您正在回复一封电子邮件，3 分钟后 Outlook 会自动将回复保存为草稿。但随后您决定不发送此回复并将草稿连同它一起删除。一些 Outlook 用户倾向于单击主页选项卡下的删除按钮以从阅读窗格中删除草稿（请参见下面的屏幕截图）。但此操作也会删除原始电子邮件。

在本教程中，我们提供了两个 VBA 代码来帮助您在快速访问工具栏上添加两个命令，以快速删除当前编辑的草稿，而不会删除 Outlook 中的原始电子邮件。

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

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

如果您习惯在阅读窗格中回复电子邮件，您可以应用以下 VBA 代码来删除当前编辑的草稿，而无需删除 Outlook 中的原始电子邮件。

1.启动Outlook，按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口，双击 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应用程序 窗口。

现在您需要一个按钮来运行宏。

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

5.在 Outlook选项 对话框，您需要配置如下。

5.1）在 从中选择命令 下拉列表，选择宏；

5.2）选择上一步添加的宏；

5.3）点击地址按钮将此宏添加到 自定义快速访问工具栏 框。

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

7。点击 OK ，在 Outlook选项 对话框以保存更改。

然后将您在步骤 6 中指定的按钮添加到 快速访问工具栏.

8. 重新启动 Outlook 以激活代码。

从现在开始，在阅读窗格中回复电子邮件时，您可以通过单击快速访问工具栏上的按钮将回复连同草稿一起删除。

请注意： 运行脚本后，您需要在邮件列表中选择另一封电子邮件以刷新当前文件夹中的邮件视图。

在新窗口中删除当前编辑的草稿

如果您想在新窗口中回复电子邮件。以下 VBA 代码有助于在 Outlook 中轻松删除回复电子邮件以及草稿。

1.启动Outlook，按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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应用程序 窗口。

现在您需要一个按钮来运行宏。

4。点击主页 > 新邮件 创建新电子邮件。在消息窗口中，单击 自定义快速访问工具栏 > 更多命令.

5.然后重复上面的步骤 从 5 到 7 为脚本创建一个按钮 并将其添加到 快速访问工具栏 的消息窗口。

从现在开始，在新消息窗口中回复电子邮件时，您可以通过单击快速访问工具栏上的按钮来删除此回复以及草稿。