Outlook VBAで返信時の宛先を自動設定する方法

皆さん、こんにちは。突然ですが、メールの返信時に毎回宛先やCC、BCCを手動で入力するのは面倒だと感じたことはありませんか？特に、毎回同じ相手にCCやBCCを送る必要がある場合、手間がかかりますよね。そんな時に役立つのが、OutlookのVBA（Visual Basic for Applications）を使った自動化です。今回は、初心者の方にもわかりやすく、Outlook VBAを使って返信時の宛先を自動設定する方法をご紹介します。

Outlook VBAとは？
返信時に特定の宛先を自動追加する方法
返信時に宛先の表示名をメールアドレスのみにする方法
よくある質問や疑問
1. Outlook VBAを使う際の注意点はありますか？
2. VBAのコードが正しく動作しない場合、どうすればよいですか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、Outlook VBAについて簡単に説明しましょう。VBAとは、Microsoft Office製品に組み込まれているプログラミング言語で、Outlookでも使用可能です。これを使うことで、日々のメール作業を自動化し、効率化することができます。

返信時に特定の宛先を自動追加する方法

それでは、具体的に返信時に特定の宛先を自動追加する方法を見ていきましょう。以下の手順で設定できます。

Outlookを開き、Alt + F11キーを押してVBAエディタを起動します。
左側のプロジェクトエクスプローラーで、ThisOutlookSessionをダブルクリックします。
以下のコードを貼り付けます。

vba

' 固定アドレスを追加して返信するマクロ

Public Sub ReplyWithFixedAddress()

    Dim objReply As MailItem

    If TypeName(Application.ActiveWindow) = "Inspector" Then

        Set objReply = ActiveInspector.CurrentItem.ReplyAll

    Else

        Set objReply = ActiveExplorer.Selection(1).ReplyAll

    End If

    ' 固定アドレスの追加

    AddFixedAddress objReply

    objReply.Display

End Sub

' 固定アドレスを追加するマクロ Private Sub AddFixedAddress(objMail As MailItem) Dim objRecip As Recipient ' CCに追加 Set objRecip = objMail.Recipients.Add("cc@example.com") objRecip.Type = olCC ' BCCに追加 Set objRecip = objMail.Recipients.Add("bcc@example.com") objRecip.Type = olBCC objMail.Recipients.ResolveAll End Sub

このコードは、返信時に特定のCCおよびBCCアドレスを自動的に追加するものです。例えば、毎回特定の上司や同僚にCCを送る必要がある場合に便利です。

返信時に宛先の表示名をメールアドレスのみにする方法

メールの返信時に、宛先が「山田太郎」のように表示されることがありますが、これを「taro.yamada@example.com」のみにしたい場合があります。以下の方法で設定できます。

先ほどと同様に、VBAエディタを開きます。
ThisOutlookSessionに以下のコードを追加します。

vba

Public Sub ReplyFromWithNoDisplayName()

    Dim objReply As MailItem

    Dim objRecip As Recipient

    Dim i As Integer

    Set objReply = ActiveInspector.CurrentItem.Reply

    For i = objReply.Recipients.Count To 1 Step -1

        Set objRecip = objReply.Recipients(i)

        objRecip.Address = objRecip.AddressEntry.GetExchangeUser.PrimarySmtpAddress

        objRecip.Name = objRecip.Address

    Next i

    objReply.Display

End Sub

このコードは、返信時に宛先の表示名をメールアドレスのみに変更するものです。これにより、宛先がシンプルになり、視認性が向上します。