こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから抜け出し、いよいよ「自分の手でOutlookを自在に操る」という最高にエキサイティングな領域に踏み込もうとしているあなたへ、このブログを贈ります。
今回は、業務の現場で非常によくある、けれど中級者へのステップアップには避けて通れない「配布リスト（DistributionList）の動的展開と個別送信」というテーマを徹底解説します。
ここをクリアすれば、Outlook VBAのオブジェクトモデルのクセや、メール自動化の本質が手に取るようにわかるようになりますよ。さあ、一緒に扉を開けましょう！
—
1. なぜ「配布リストをそのまま送信」ではダメなのか？
Outlookには、複数の宛先をまとめた「配布リスト（連絡先グループ）」機能がありますよね。VBAからメールを送る際、ついこんなコードを書きがちです。
‘ ──【アンチパターン】そのまま突っ込むと痛い目を見る例 ──
Dim mail As MailItem
Set mail = Application.CreateItem(olMailItem)
mail.To = “総務部配布リスト” ‘ 配布リストの名称
mail.Subject = “重要なお知らせ”
mail.Body = “平素お世話になっております…”
mail.Send
動くには動きます。しかし、実務でこれをやると大事故につながります。
なぜなら、配布リストをそのまま `To` や `CC` に入れると、受信者全員に「他の誰に送られたか（誰がCCに入っているか）」が丸見えになってしまいますし、組織のセキュリティポリシーによっては外部送信エラーの原因にもなります。何より、個別の宛先ごとに宛名を変えるといった「動的な制御」が一切できません。
だからこそ、「プログラム側で配布リストの殻を割り、中身のメンバーを1人ずつ取り出して、個別にメールを生成して送る（BCC一斉送信の個別化や、宛名のパーソナライズ）」という技術が必要になるのです。
—
2. 配布リストを解体するオブジェクトの構造
Outlook VBAで配布リストを扱うには、`Recipient` オブジェクトと `DistributionItem`（または `DistributionList`）オブジェクトの挙動を理解する必要があります。
ざっくりとしたイメージ図を見てみましょう。
[ Outlookの連絡先フォルダ ]
└─ 📁 総務部DL (DistributionItem)
├─ 👤 メンバーA (Email1Address: a@example.com)
├─ 👤 メンバーB (Email1Address: b@example.com)
└─ 👤 メンバーC (Email1Address: c@example.com)
VBAからこの構造にアクセスし、メンバーを1人ずつペリペリと剥がしていくイメージです。
—
3. 【実践コード】配布リストを展開して個別送信するマクロ
それでは、実務でそのままコピペして使える堅牢なコードを公開します。
今回は、指定した配布リストのメンバー全員に対し、個別に `MailItem` を作成して送信（安全のため、まずは下書き保存にすることも可能です）するプロシージャです。
Option Explicit
‘ =====================================================================
‘ プロシージャ名: SendMailByExpandingDistributionList
概要: 指定した配布リストのメンバーを展開し、個別にメールを送信する
‘ =====================================================================
Sub SendMailByExpandingDistributionList()
‘ 1. 変数の定義（オブジェクトの型を明確に指定するのがVBAプロの鉄則）
Dim ns As NameSpace
Dim folContacts As MAPIFolder
Dim objItem As Object
Dim distList As DistributionItem
visualTargetDLName As String
Dim i As Long
Dim memberName As String
Dim memberEmail As String
Dim targetMail As MailItem
Dim countSent As Long
‘ — 設定エリア —
visualTargetDLName = “【テスト】総務部メンバー” ‘ あなたの環境にある配布リスト名に変更してください
‘ ——————
‘ 2. セッションの取得と連絡先フォルダの特定
Set ns = Application.GetNamespace(“MAPI”)
Set folContacts = ns.GetDefaultFolder(olFolderContacts)
‘ 3. 連絡先フォルダ内から該当する配布リストを探索
Set distList = Nothing
For Each objItem In folContacts.Items
‘ アイテムが配布リスト（DistributionItem）であり、かつ名前が一致するか
If TypeOf objItem Is DistributionItem Then
If objItem.Subject = visualTargetDLName Then
Set distList = objItem
Exit For
End If
End If
Next objItem
‘ 配布リストが見つからなかった場合のガード処理
If distList Is Nothing Then
MsgBox “指定された配布リストが見つかりませんでした: ” & visualTargetDLName, vbCritical, “エラー”
Exit Sub
End If
‘ 4. 配布リストのメンバーをループ処理で展開
countSent = 0
‘ .MemberCount でメンバーの総数を取得
For i = 1 To distList.MemberCount
‘ .GetMember(i) で個別のRecipientオブジェクトを取得
Dim recip As Recipient
Set recip = distList.GetMember(i)
‘ メンバーの情報を取得
memberName = recip.Name
‘ Exchange環境や外部アドレスによってメールアドレスの取得方法が異なるため注意
memberEmail = GetEmailAddress(recip)
If memberEmail <> “” Then
‘ 5. 個別のMailItemを動的に生成
Set targetMail = Application.CreateItem(olMailItem)
With targetMail
.To = memberEmail
.Subject = “【ご案内】配布リスト自動展開テスト”
‘ 本文に宛名を動的に挿入する（パーソナライズ）
.Body = memberName & ” さま” & vbCrLf & vbCrLf & _
“お疲れ様です。本メールは配布リストから自動展開された個別メールです。” & vbCrLf & _
“ご確認のほどよろしくお願いいたします。”
‘ 【重要】すぐに送信せず、テスト時は .Display や .Save にすることをお勧めします
.Send
‘ .Save ‘ 下書き保存にする場合はこちら
End With
countSent = countSent + 1
End If
Next i
‘ 6. 完了報告
MsgBox “処理が完了しました。” & vbCrLf & “送信完了件数: ” & countSent & ” 件”, vbInformation, “成功”
End Sub
‘ =====================================================================
‘ 補助関数: Recipientオブジェクトから確実にメールアドレスを抽出する
‘ =====================================================================
Private Function GetEmailAddress(ByVal rec As Recipient) As String
Dim addrEntry As AddressEntry
Dim exUser As ExchangeUser
On Error GoTo ErrorHandler
Set addrEntry = rec.AddressEntry
‘ Exchange（組織内）のアドレス帳か外部のアドレスかによって分岐
If addrEntry.AddressEntryUserType = olExchangeUserAddressEntry Or _
addrEntry.AddressEntryUserType = olExchangeRemoteUserAddressEntry Then
Set exUser = addrEntry.GetExchangeUser()
If Not exUser Is Nothing Then
GetEmailAddress = exUser.PrimarySmtpAddress
End If
Else
‘ 一般的なSMTPアドレス（外部のGmailやプロバイダ等）
GetEmailAddress = rec.Address
End If
Exit Function
ErrorHandler:
GetEmailAddress = “”
End Function
—
4. 押さえておくべきエンジニアリングの極意（陥りやすい罠）
上記のコードを読み解く上で、実務で絶対に知っておくべきポイントを3つ解説します。
① 配布リストは `Items` の中から探す必要がある
Outlook VBAでは、`Application.Session.GetRecipientFromID` などを使いたくなりますが、配布リスト（`DistributionItem`）は、連絡先フォルダ（`olFolderContacts`）の中を `For Each` で舐めて探すのが最も確実です。名前（Subjectプロパティ）が一致するものをループで探し出しましょう。
② メールアドレスの取得（`GetEmailAddress` 関数の理由）
初心者が一番ハマるのがここです。社内ネットワーク（Exchange）の連絡先と、外部のインターネットメール（SMTP）では、`Recipient.Address` で返ってくる文字列の形式が異なります。社内アドレスの場合、暗号化されたような特殊な文字列が返ってきてしまい、メール送信に失敗します。
上記のサンプルコードにある `GetEmailAddress` 関数を用意しておけば、内部・外部を自動判別して正しい `PrimarySmtpAddress`（SMTP形式の正しいメールアドレス）を引っ張ってこれるため、エラーを完全防衛できます。
③ `.Send` の前に必ず `.Display` でテストする
マクロを組んだ直後は、意図しない宛先に大量のメールが飛んでしまうリスク（いわゆる爆撃メール）があります。
コード内の `.Send` をコメントアウトし、一時的に `.Display`（画面にメール画面を表示する）に書き換えて、正しく個別の宛名とアドレスが入っているか、必ず目視でテストしてから本番稼働させてくださいね。
—
まとめ：ここをクリアすれば、あなたはもう中級エンジニア！
今回は「配布リストの動的展開と個別送信」という、一歩進んだOutlook VBAのテクニックをお伝えしました。
- 配布リストをそのまま送信するのではなく、内部のメンバーを1人ずつバラす。
- バラしたメンバーの情報を元に、`MailItem` をループ内で動的に生成する。
- 組織内・外部の違いを吸収するアドレス取得のロジックを挟む。
このパターンをマスターすれば、定期的な一斉連絡、宛名を変えた個別通知、CCの制御など、あらゆるメール自動化の応用が利くようになります。
「ここをクリアすれば、Outlook VBAの基本はバッチリですよ！」
ぜひご自身の環境でコードを試して、業務効率化の爽快感を味わってください。それでは、次のステップでお会いしましょう！
