Outlook VBAで返信を自動化する方法【初心者向け解決ガイド】

2025.02.192026.01.27

皆さん、こんにちは！

日々のメール対応に時間を取られていませんか？OutlookのVBA（Visual Basic for Applications）を活用すれば、返信作業を自動化して効率化できます。

今回は、初心者の方でも簡単に理解できるよう、Outlook VBAでの返信自動化方法を解説します。

Outlook VBAとは？
VBAを使って全員に返信する方法
特定のキーワードを含むメールへの自動返信
よくある質問や疑問
1. Q1: マクロを有効にするにはどうすればいいですか？
2. Q2: 自動返信マクロが動作しません。どうすればいいですか？
まとめ

Outlook VBAとは？

まず、Outlook VBAについて簡単に説明します。VBAは、Microsoft Office製品に組み込まれているプログラミング言語で、Outlookの操作を自動化するために使用できます。これにより、定型的なメール返信や特定の条件に応じた処理を自動で行うことが可能になります。

VBAを使って全員に返信する方法

例えば、受信したメールに対して「全員に返信」するマクロを作成してみましょう。以下の手順で設定できます。

Outlookを開き、AltキーとF11キーを同時に押してVBAエディタを起動します。
メニューから「挿入」を選び、「モジュール」をクリックして新しいモジュールを作成します。
以下のコードをコピーして、作成したモジュールに貼り付けます。

vbaコード

Sub ReplyAllWithTemplate()

    Dim objItem As Object

    Dim objMail As MailItem

    Dim objReply As MailItem
    ' 選択中のメールを取得

    Set objItem = Application.ActiveExplorer.Selection.Item(1)

' メールアイテムの場合 If TypeName(objItem) = "MailItem" Then Set objMail = objItem ' 全員に返信 Set objReply = objMail.ReplyAll ' 返信内容を追加 With objReply .Body = "お世話になっております。" & vbCrLf & vbCrLf & .Body .Display ' メールを表示 End With End If End Sub

このマクロを実行すると、選択したメールに対して全員に返信するウィンドウが表示され、定型文が挿入された状態になります。

特定のキーワードを含むメールへの自動返信

次に、受信したメールの件名に特定のキーワードが含まれている場合に、自動で返信を作成するマクロをご紹介します。

vbaコード

Private WithEvents myInboxItems As Outlook.Items
Private Sub Application_Startup()

    ' 受信トレイのアイテムを取得

    Set myInboxItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items

End Sub
Private Sub myInboxItems_ItemAdd(ByVal Item As Object)

    Dim objMail As MailItem

    Dim objReply As MailItem

    Dim strKeyword As String
    strKeyword = "重要" ' キーワードを設定

' メールアイテムの場合 If TypeName(Item) = "MailItem" Then Set objMail = Item ' 件名にキーワードが含まれているか確認 If InStr(objMail.Subject, strKeyword) > 0 Then ' 返信を作成 Set objReply = objMail.Reply With objReply .Body = "ご連絡ありがとうございます。" & vbCrLf & vbCrLf & .Body .Send ' 返信を送信 End With End If End If End Sub

このマクロは、Outlookの起動時に自動的に受信トレイを監視し、件名に「重要」というキーワードが含まれるメールを受信すると、自動で返信を送信します。