Outlook VBAを掌握する：連絡先グループへの「賢い」一斉送信術
こんにちは。業務自動化の現場で長年戦い続けてきたエンジニアです。
多くの人が「マクロの記録」から入りますが、Outlookには残念ながらマクロの記録機能が存在しません。つまり、「最初からコードを書く」という登竜門を避けて通れないのがOutlook VBAの面白いところです。
今回は、連絡先フォルダから特定のカテゴリのメンバーを抽出し、BCCで安全かつ確実にメールを送る「プロの定石」を伝授します。ここを理解すれば、Outlookのオブジェクトモデルの地図が頭の中に描けるようになりますよ。
—
1. Outlookの「階層構造」を理解する
コードを書く前に、Outlookという巨大な組織の「組織図」を理解しましょう。
- Application: 司令塔です。全ての根源。
- NameSpace (Session): Outlookのデータ（メールや連絡先）にアクセスするための「入り口」です。
- MAPIFolder: フォルダのことです。「連絡先」や「受信トレイ」もここに属します。
- Items: フォルダの中にある「中身（個々の連絡先アイテム）」です。
まずは、ここを通り抜けるための「儀式」をコードに書く必要があります。
—
2. 実践：特定のカテゴリに一斉送信するコード
以下のコードは、連絡先の中から「重要顧客」というカテゴリを持つ人を抽出し、BCCに一括セットしてメール作成画面を開くものです。
Sub SendMailToCategory()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim olItems As Outlook.Items
Dim olContact As Object ‘ 連絡先か配布リストか判定するため汎用型で宣言
Dim mailItem As Outlook.MailItem
Dim bccList As String
Dim targetCategory As String
‘ 1. 設定値
targetCategory = “重要顧客”
‘ 2. 初期化
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace(“MAPI”)
Set olFolder = olNS.GetDefaultFolder(olFolderContacts)
Set olItems = olFolder.Items
‘ 3. 連絡先をスキャン
bccList = “”
For Each olContact In olItems
‘ ContactItem型であるか確認（配布リスト等の除外）
If TypeOf olContact Is ContactItem Then
‘ カテゴリに該当するか判定
If InStr(olContact.Categories, targetCategory) > 0 Then
‘ メールアドレスが存在する場合のみ追加
If olContact.Email1Address <> “” Then
bccList = bccList & olContact.Email1Address & “;”
End If
End If
End If
Next olContact
‘ 4. メール作成
If bccList <> “” Then
Set mailItem = olApp.CreateItem(olMailItem)
With mailItem
.BCC = bccList ‘ ここが最重要！BCCで宛先を秘匿する
.Subject = “【重要】お知らせ”
.Body = “関係者各位” & vbCrLf & “いつもお世話になっております。”
.Display ‘ 送信前に確認するため表示（自動送信にしたい場合は .Send）
End With
Else
MsgBox “対象者が一人も見つかりませんでした。”
End If
‘ 5. メモリ解放（プロの嗜み）
Set olApp = Nothing
End Sub
—
3. なぜ「BCC」なのか？ プロの視点
初学者がやりがちなミスが、一人ひとりに宛先（To）を入れてメールを送ることです。これはセキュリティ事故に直結します。
- 宛先公開の危険性: 受信者同士でメールアドレスが知れ渡り、情報漏洩となります。
- プロの解決策: BCC（Blind Carbon Copy）を使います。上記コードの `.BCC = bccList` がその役割を果たしています。これにより、受信者は「誰に送られたか」を知ることができません。
—
4. 陥りやすいエラーと回避策
① 「型が一致しません」エラー
`For Each` で回している際、フォルダの中には「連絡先」だけでなく「連絡先グループ（旧配布リスト）」などが混ざっていることがあります。これを `ContactItem` として扱うとエラーになります。
対策: `If TypeOf olContact Is ContactItem Then` といった型チェックを必ず入れましょう。
② メモリの肥大化
Outlookはオブジェクトを生成するとメモリを食いつぶします。コードの最後で `Set … = Nothing` を書くのは、単なる儀式ではなく、Outlookを安定稼働させるための「メンテナンス」です。
③ 「プログラムがメールを送信しようとしています」という警告
Outlookのセキュリティ設定により、VBAからの自動送信には警告が出ることがあります。これはOutlookの仕様です。大量送信を行う場合は、事前に「信頼できるアドイン」として登録するか、手動で `Display`（確認画面表示）を行うのが無難です。
—
最後に：ここをクリアすれば、君はもう初心者じゃない
連絡先の抽出とメール作成。これさえできれば、あとは「Excelから宛先を読み込む」「送信時刻をずらす」「本文に名前を差し込む」といった応用が効くようになります。
VBAは、あなたの代わりに「退屈でミスが許されない作業」を完遂してくれる最強の部下です。ぜひ、このコードを自分の環境で動かし、自分だけの自動化ツールへと育て上げてください。
応援しています。もし壁にぶつかったら、また聞きに来てくださいね。
