如何在 Outlook 中設定自動回覆，並附上原始郵件內容？

通常，當您在 Outlook 中設定自動回覆郵件（例如外出時），內文並不會包含原始郵件內容。那麼，該如何讓自動回覆同時附上原始郵件呢？本文將提供一段 VBA 程式碼，協助您快速實現這項功能。

使用 VBA 程式碼在 Outlook 中自動答覆並附上原始郵件內容

---

使用 VBA 程式碼在 Outlook 中自動答覆並附上原始郵件內容

一般 Outlook 規則無法協助您處理這項任務，但透過以下 VBA 程式碼，您就能快速又輕鬆地完成！請依照下列步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，於 ThisOutlookSession（位於 ）Project 1 (VbaProject.OTM) 窗格）上按兩下以開啟模組，然後將下列程式碼複製並貼上至空白模組中。

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 將自動傳送一封附上原始郵件內容的回覆，如下方截圖所示：