如何在 Outlook 中设置自动回复并保留原始邮件内容？

通常情况下，当我们通过规则设置自动外出邮件时，邮件正文并不会包含原始邮件内容。那么，如何在 Outlook 中实现自动外出并附带原始邮件内容呢？本文将为您介绍一段 VBA 代码，助您在 Outlook 中轻松实现这一功能。

使用 VBA 代码在 outlook 中自动答复邮件并保留原始内容

---

使用 VBA 代码在 outlook 中自动答复邮件并保留原始内容

普通的 Outlook 规则无法实现此功能，但您可以通过以下 VBA 代码，轻松快速地完成。请按照以下步骤操作：

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(VbaProject.OTM) 窗格中的 ThisOutlookSession，进入代码编辑界面，然后将以下代码复制粘贴到空白模块中。

VBA 代码：自动答复邮件并保留原始内容：

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3. 保存并关闭代码窗口后，关闭或重启 Outlook 以使 VBA 代码生效。此时，当您收到邮件时，Outlook 会自动发送一封包含原始内容的答复邮件，如下图所示：