Outlook で元のメール本文を含めて自動返信するには、どうすればよいですか？

通常、メールに自動返信するルールを作成すると不在通知が送信されますが、元のメッセージ本文は含まれません。Outlook で自動返信メールに元のメッセージを含めるにはどうすればよいでしょうか？本記事では、この作業を可能な限り迅速に完了できる VBA コードをご紹介します。

VBA コードを使用してOutlook で元のメッセージを含めて自動返信するメール

---

VBA コードを使用してOutlook で元のメッセージを含めて自動返信するメール

通常のOutlook ルールではこの作業は対応できませんが、以下の VBA コードを使えば、すぐに簡単に完了できます。次の手順に従ってください。

1。ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。Microsoft Visual Basic for Applicationsウィンドウで、ThisOutlookSessionをProject1 (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 から送信されるようになります。