メインコンテンツへスキップ

Outlookでメール本文にすべての受信者名を挿入するにはどうすればよいですか?

Author: Xiaoyang Last Modified: 2025-08-06

場合によっては、Outlookでメールを作成する際に、メッセージ本文にすべての受信者の名前を挿入する必要があるかもしれません。もちろん、名前を一つずつコピーして本文に貼り付けることもできますが、数十人の受信者名を貼り付ける必要がある場合は非常に面倒です。この記事では、Outlookでこの作業を簡単に行う方法について説明します。

OutlookでVBAコードを使用してすべての受信者名をメール本文に挿入する


OutlookでVBAコードを使用してすべての受信者名をメール本文に挿入する

次のVBAコードを使用すると、「To」フィールドからすべての受信者名をメッセージ本文に挿入することができます。以下の手順を行ってください:

1. Outlookを起動し、ALT + F11キーを押したままにすると、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「 挿入」>「 モジュール」をクリックし、表示されたモジュールウィンドウに次のコードを貼り付けます。

VBAコード:受信者名をメッセージ本文に挿入する:

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. そして、引き続きMicrosoft Visual Basic for Applicationsウィンドウで、「ツール」>「参照設定」をクリックして「参照設定 - プロジェクト1」ダイアログボックスを開き、「利用可能な参照」リストボックスから「Microsoft Word Object Library」オプションをチェックしてください。スクリーンショットをご覧ください:

the screenshot of step about inserting all recipient names to email body in outlook 1

4. 「OK」をクリックしてダイアログを閉じます。次に、このコードをクイックアクセスツールバーに追加する必要があります。

5. 「新規メール」をクリックして新しいメッセージを作成し、メッセージウィンドウで「クイックアクセスツールバーのユーザー定義」アイコンをクリックして「 その他のコマンド」を選択します。スクリーンショットをご覧ください:

the screenshot of step about inserting all recipient names to email body in outlook 2

6. 「 Outlookオプション」ダイアログボックスで:

(1.) 「コマンドの選択元」ドロップダウンリストから「マクロ」を選択します;

(2.) 次に、先ほど挿入したVBAコード名を選択します;

(3.) 「追加」ボタンをクリックして、コードを「クイックアクセスツールバー」リストボックスに追加します。

the screenshot of step about inserting all recipient names to email body in outlook 3

7. これで、以下のようにマクロアイコンがクイックアクセスツールバーに表示されます:

the screenshot of step about inserting all recipient names to email body in outlook 4

8. これで、マクロアイコンをクリックすると、「To」フィールドの受信者名がメッセージ本文に挿入されます。以下のようなスクリーンショットをご覧ください:

the screenshot of step about inserting all recipient names to email body in outlook 5

最高のオフィス生産性ツール

速報:Kutools for Outlook が無料版をリリース!

新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください!今すぐダウンロード!

🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成を効率良くこなします。

📧 メール自動化: 自動返信(POPとIMAPに対応) / メール送信のスケジュール設定 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶文を自動追加 / 複数宛先のメールを自動で個別のメールに分割 ...

📨 メール管理: メールの取り消し / 件名やその他の条件で迷惑メールをブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理 ...

📁 添付ファイルPro: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮 ...

🌟 インターフェースマジック: 😊もっとキレイで楽しい絵文字 /重要なメールの到着をお知らせ / Outlookを閉じずに最小化 ...

👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 /迷惑メール対策 / 🕘送信者のタイムゾーン表示 ...

👩🏼‍🤝‍👩🏻 連絡先&カレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除 ...

お好みの言語で Kutools をご利用いただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上をサポート!

Kutools for Outlook はワンクリックですぐにアンロックできます。今すぐダウンロードして効率をアップしましょう!

kutools for outlook features1 kutools for outlook features2