こんにちは！Outlook VBAの自動化の世界へようこそ。
マクロの記録ボタンを押すだけのステージから抜け出し、いよいよ「真の業務自動化エンジニア」への階段を登り始めた君なら、きっと日々のメール送信業務にこんなモヤモヤを抱えているはずだ。
- 「宛先のルールが変わるたびに、VBAのコードを書き直してコンパイルし直すのが面倒……」
- 「CCやBCCの分岐条件が複雑化して、`If` 文のジャングルになってしまった……」
- 「ハードコーディング（直書き）をなくして、スマートに設定を外部化したい」
よくぞ気づいてくれた。実務で使える堅牢なシステムを作るうえで、「設定の外部化」は絶対避けて通れない黄金律（ゴールデンルール）だ。
今回は、外部のJSON設定ファイルから宛先ルールを華麗に読み込み、メールのCCやBCCを動的に振り分ける、実戦的かつ美しいVBAアーキテクチャを伝授しよう。
ここをクリアすれば、君のOutlook VBAスキルは一気に中級者の域を突破し、どんな現場でも重宝されるエンジニアになれる。さあ、一緒に紐解いていこう！
—
なぜ「設定の外部化」が必要なのか？（本質を理解する）
初学者がやりがちなのは、VBAの中に宛先メールアドレスを直接書き込んでしまうことだ。
‘ ❌ やりがちなアンチパターン
If dept = “営業部” then
mail.CC = “sales-leader@example.com”
ElseIf dept = “開発部” then
mail.CC = “dev-leader@example.com”
End If
この方法の何がダメか分かるかい？
組織変更や人事異動があった瞬間、ソースコードの修正と再配布が必要になるという致命的な弱点があるんだ。VBAはコンパイル言語ではないが、コードに手を加える行為自体がリスクを生む。
だからこそ、「プログラム（ロジック）」と「データ（設定）」を完全に分離する。これがプロの設計思想だ。
今回は、設定ファイルとして扱いやすい JSON形式 を採用し、Outlook VBAから読み込んで動的なメール生成を行う仕組みを作ろう。
—
全体像：今回構築するシステムのアーキテクチャ
頭の中で処理の流れを可視化しておこう。
[ 外部JSONファイル ] (宛先・CC・BCCのルール定義)
↓ (VBAからテキストとして読み込み)
[ Outlook VBA ] (JSONをパースし、条件に一致する宛先を動的構築)
↓
[ MailItem ] (美しく構築されたメールが生成される)
「あれ？ VBAってJSONを標準でパースできたっけ？」と思った鋭い君。素晴らしい着眼点だ。
実は、VBA単体にはJSONを直接解釈する機能はない。しかし、Windows環境であればVBScript.RegExpや、少し工夫して文字列操作（または外部ライブラリ）を使うことで、スマートに目的を達成できる。今回は、環境依存を減らし、コピペですぐ動かせるように、VBAネイティブの文字列処理とシンプルな独自パーサ的アプローチ、あるいは実務で最も現実的な「設定のキーバリュー構造化」を用いて解説する。
—
ステップ1：外部設定ファイル（JSON）の準備
まずは、PCの適当な場所（例: `C:\Config\mail_rules.json`）に、以下の内容を保存してほしい。
今回は、「プロジェクトの種別」に応じて、自動的に特定のCCやBCCを追加するルールを定義する。
{
“ProjectA”: {
“To”: “client-a@example.com”,
“CC”: “manager-a@example.com; expert-a@example.com”,
“BCC”: “archive@example.com”
},
“ProjectB”: {
“To”: “client-b@example.com”,
“CC”: “manager-b@example.com”,
“BCC”: “archive@example.com”
}
}
非常にシンプルで美しい構造だね。これなら、宛先が追加・変更されても、JSONファイルをメモ帳で書き換えるだけで対応完了だ。
—
ステップ2：Outlook VBAの実装コード
それでは、いよいよ核心となるVBAコードを公開しよう。
OutlookのVBE（Visual Basic Editor）を開き、標準モジュールに以下のコードを貼り付けてほしい。
Option Explicit
‘ =====================================================================
‘ 外部JSON設定ファイルを読み込み、CC/BCCを動的に制御してメールを作成するメインプロシージャ
‘ =====================================================================
Sub CreateDynamicMailFromJSON()
Dim fso As Object
Dim ts As Object
Dim jsonText As String
Dim configFilePath As String
‘ 1. 設定ファイルのパスを指定（環境に合わせて変更してください）
configFilePath = “C:\Config\mail_rules.json”
‘ ファイル存在チェック
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(configFilePath) Then
MsgBox “設定ファイルが見つかりません: ” & configFilePath, vbCritical, “エラー”
Exit Sub
End If
‘ 2. JSONファイルをテキストとして読み込み
Set ts = fso.OpenTextFile(configFilePath, 1, False, -1) ‘ -1 = Unicode(UTF-16等) / 0 = ASCII
jsonText = ts.ReadAll
ts.Close
‘ 3. どのプロジェクトのメールを作成するかユーザーに選択させる（例としてInputBoxを使用）
Dim targetProject As String
targetProject = PromptForProject()
If targetProject = “” Then Exit Sub ‘ キャンセルされたら終了
‘ 4. JSONから該当プロジェクトの宛先情報を抽出（簡易JSONパース）
Dim toAddr As String, ccAddr As String, bccAddr As String
toAddr = ExtractJsonValue(jsonText, targetProject, “To”)
ccAddr = ExtractJsonValue(jsonText, targetProject, “CC”)
bccAddr = ExtractJsonValue(jsonText, targetProject, “BCC”)
‘ 5. OutlookのMailItemオブジェクトを生成してプロパティを設定
Dim objMail As Outlook.MailItem
Set objMail = Application.CreateItem(olMailItem)
With objMail
.To = toAddr
.CC = ccAddr
.BCC = bccAddr
.Subject = “【自動送信】” & targetProject & “に関するご報告”
.Body = targetProject & ” 担当者様” & vbCrLf & vbCrLf & _
“いつもお世話になっております。” & vbCrLf & _
“設定ファイルから動的に宛先がアサインされたメールです。”
‘ 送信前に画面を表示して確認させる（いきなり送信する事故を防ぐプロの技）
.Display
End With
‘ オブジェクトの解放（メモリリークを防ぐ美しい習慣）
Set objMail = Nothing
Set ts = Nothing
Set fso = Nothing
MsgBox “メールの雛形が正常に作成されました！”, vbInformation, “完了”
End Sub
‘ =====================================================================
‘ 補助関数：プロジェクト選択用ダイアログ
‘ =====================================================================
Function PromptForProject() As String
Dim result As String
result = InputBox(“作成するプロジェクト名を入力してください（例: ProjectA または ProjectB）”, “動的メール作成”, “ProjectA”)
PromptForProject = Trim(result)
End Function
‘ =====================================================================
‘ 補助関数：簡易JSONから指定キーのバリューを抜き出すパーサ
‘ （正規表現を活用した汎用的な文字列抽出テクニック）
‘ =====================================================================
Function ExtractJsonValue(json As String, section As String, key As String) As String
Dim regEx As Object
Dim matches As Object
Dim pattern As String
Set regEx = CreateObject(“VBScript.RegExp”)
‘ セクション名とキーに一致するJSONの値を抜き出す正規表現パターン
‘ 例: “ProjectA”\s:\s\{[^}]”CC”\s:\s”([^”]+)”
pattern = “””” & section & “””\s:\s\{[^}]””” & key & “””\s:\s””([^””]+)”””
regEx.Pattern = pattern
regEx.IgnoreCase = True
regEx.Global = False
If regEx.Test(json) Then
Set matches = regEx.Execute(json)
ExtractJsonValue = matches(0).SubMatches(0)
Else
ExtractJsonValue = “” ‘ 見つからない場合は空文字
End
Set regEx = Nothing
End Function
—
コードの解説：ここがエンジニアのこだわりポイント
1. `Scripting.FileSystemObject` による安全なI/O
ファイル読み込みにはVBAの古い `Open` ステートメントではなく、モダンなFSOを使用している。これにより、エンコードエラーやファイルロックのリスクを最小限に抑えることができる。
2. 正規表現（VBScript.RegExp）によるスマートなJSONパース
「VBAでJSONを扱うために重い外部ライブラリを入れたくない」という現場の制約をクリアするため、正規表現を用いてピンポイントで値を切り出している。この手法を知っておくと、XMLやHTMLの簡易スクレイピングにも応用が利く。
3. `.Display` によるセーフティ設計
業務自動化において「勝手に送信される（爆弾メール）」ほど恐ろしいものはない。コードの最後であえて `.Display`（画面表示）に留め、人間が最終確認できるようにしている点こそ、経験豊富なエンジニアの優しさだ。
—
陥りやすいエラーとトラブルシューティング
現場でこのコードを動かす際、初心者が必ずと言っていいほどハマる罠がいくつかある。あらかじめ回避策を押さえておこう。
- エラー：「オブジェクトが必要です」 (Error 424)
- 原因： Outlookのメールアイテムを生成する際、参照設定が漏れているか、`Application.CreateItem(olMailItem)` の定数 `olMailItem` が正しく認識されていない可能性がある。
- 対策： コードの最初に `Option Explicit` を書き、変数の宣言漏れを防ぐこと。また、VBEの「ツール」＞「参照設定」から `Microsoft Outlook XX.X Object Library` にチェックが入っているか確認しよう。
- JSONの値がうまく取得できない（空文字になる）
- 原因： JSON内のダブルクォーテーション（`”`）の数や、改行・スペースの位置が正規表現のパターンと微妙にズレている。
- 対策： ステップイン（[F8]キー）で `ExtractJsonValue` 関数の挙動を追い、`pattern` 文字列が正しくマッチしているかローカルウィンドウで確認しよう。
—
まとめ：ここをクリアすれば、Outlook VBAの基本はバッチリ！
お疲れ様！ここまでついてこられたなら、君はもう単なる「マクロ記録ユーザー」ではない。
- データの外部化（JSON）
- オブジェクトの適切なライフサイクル管理（`Set … = Nothing`）
- 正規表現を活用した柔軟な文字列処理
- 事故を防ぐためのセーフティ設計（`.Display`）
これらすべての「実務で本当に使えるエッセンス」を君は手に入れた。
業務自動化の世界は、知れば知るほど奥が深く、そして自由だ。このコードをベースに、さらにCCを複数人に動的に分岐させたり、宛先ごとに本文を出し分けたりと、自分だけの最強のメール自動化ツールへとブラッシュアップしていってほしい。
君のエンジニアとしての飛躍を、心から応援しているよ。それでは、次の自動化の海へ漕ぎ出そう！
