OutlookVBAを介して元の電子メールと事前定義されたテキストで自動返信する方法

Outlookソリューション 2025 年 9 月 29 日

Outlookルールを使用して自動返信を使用している場合、自動返信に元のメッセージを本文に含めることができないことがわかります。この記事では、OutlookVBAを介して自動返信の本文に元の電子メールと事前定義されたテキストを挿入できる簡単な方法を紹介します。

Outlookでは、Exchangeアカウントを使用すると、次のスクリーンショットのように、ユーザーは[ファイル]メニューの[情報]タブにある[自動返信]ボタンから直接自動返信を設定できます。

ただし、インターネット電子メールアカウントを使用している場合は、IMAPまたはPOP3に関係なく、[自動返信]ボタンは使用できません。自動返信を有効にする唯一の方法は、次の画像に示す自動返信ルールを作成することです。

しかし、Outlookのルールによるこのような自動返信では、元のメッセージを自動的に含めることはできません。実際には、ほとんどのユーザーは自動返信のメッセージ本文に元のメールを添付したいと考えています。このような場合、自動返信ルールでは確実に実現できません。そのため、Outlook VBAコードを使用する必要があります。興味のある方は、詳細な手順とVBAコードについて読み進めてください。

元の電子メールと事前定義されたテキストによる自動返信

まず、「開発者」タブに移動し、「VisualBasic」ボタンをクリックする必要があります。
次に、新しい「Microsoft Visual Basic for Applications」ウィンドウで、左側の「ThisOutlookSession」プロジェクトをダブルクリックする必要があります。
その後、「ThisOutlookSession」プロジェクトが開きます。次に、次のVBAコードをコピーして貼り付ける必要があります。

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

次に、通常どおりこのコードに署名し、デジタル署名されたマクロのみを許可するようにマクロ設定を変更し続ける必要があります。
最後に、上記の手順を完了すると、Outlookは本文に元のメッセージ情報を含む返信を自動的に送信します。以下の画像のようになります。

メモ: ルールを使用した自動応答またはVBAコードを使用した自動応答に関係なく、どちらもOutlookの実行中にのみ有効になります。

Outlookデータエラーに対処する

間違いなく、Outlookはエラーの影響を受けません。したがって、Outlookの通常のユーザーは、それらに対処するためのいくつかのトリックを取得することが不可欠です。明らかに、対処するための最良の方法 Outlookのデータの損傷定期的なバックアップを作成しています。効果的なバックアップを取得している限り、Outlookがクラッシュしても安心できます。もちろん、保険から外れて、強力な修理ツールも手元に置いておいたほうがいいでしょう。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLmdfファイルの破損を修復しますと見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com