Outlookで元の電子メールメッセージで自動返信するにはどうすればよいですか？

通常、不在の電子メールを自動的に信頼するルールを作成する場合、本文の元のメッセージは含まれません。 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から元のメッセージを含む自動返信が送信されます。

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします！

自動CC / BCC メール送信時のルールによる。自動転送カスタムによる複数の電子メール。自動返信 Exchangeサーバーなし、およびより多くの自動機能...
BCC警告 -全員に返信しようとするとメッセージを表示するメールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信するすぐに; あいさつを自動追加返信するとき; 件名に日付を追加...
添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、選択したメールを数える...
強力な迷惑メール習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。