有些用户回复后喜欢删除原邮件，因为回复中已经包含了原邮件的信息。 本文将分享2种快速自动实现的方法。
默认情况下，Outlook 设置为在回复中自动包含原始邮件。 在这种情况下，很多用户会想删除原来的消息，只在邮箱里留下回复。 这不仅可以使他们的邮箱保持较小的尺寸，还可以让他们的电子邮件井井有条。 如果您不愿意手动删除原始电子邮件，您可以使用以下 2 个技巧来自动删除。
技巧 1：使用快速步骤
Outlook 带有一个本地快速步骤“回复和删除”，如下图所示。 这个快速步骤可以自动删除原始消息并在您单击它时显示回复。
如果您找不到这个快速步骤，很可能是您之前不小心删除了它。 您也可以按照以下步骤重新创建它。
- 首先，单击“快速步骤”组中的“新建”按钮。
- 然后在弹出的对话框中，给它起一个名字，比如“Reply & Delete”。
- 接下来，在“操作”部分中，选择“回复”。
- 随后，单击“添加操作”按钮。
- 然后添加“删除消息”操作。
- 最后点击“保存”按钮。
通过这种方式，您必须始终使用此快速步骤来回复电子邮件。 如果您仍然希望使用“回复”组中的标准“回复”按钮来实现“回复并删除”，您可以参考以下方式。
技巧 2：使用 Outlook VBA
- 首先，在 Outlook 中按“Alt + F11”键按钮。
- 然后在随后的VBA编辑器窗口中，打开“ThisOutlookSession”项目。
- 接下来将以下 VBA 代码复制并粘贴到其中。
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
Set objMail = Application.ActiveExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is MailItem Then
Set objMail = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
objMail.Delete
'If you want to only delete the specific email when replying it
'You can specify the condition of the email as per your needs
'like the following lines
'If (InStr(LCase(objMail.Subject), "test") > 0) Then
' objMail.Delete
'End If
End Sub
- 之后，对该代码进行数字签名。
- 此外，请记住更改您的 Outlook 宏设置，以允许数字签名的宏。
- 最后重启 Outlook 以激活新的 VBA 项目。从现在开始，当您点击标准的“回复”按钮回复邮件时，原始邮件将自动删除。
恢复受损的 Outlook 数据
如果突然遇到 外观损坏 如果意外发生，您必须尽力恢复 Outlook 数据。通常，最好也是最简单的方法是从备份中恢复。但如果您没有最新的数据备份，也可以求助于专业的修复工具，例如 DataNumen Outlook Repair.
作者简介：
Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 中密度纤维板恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com