【Outlook VBA】ハードコーディングを根絶せよ：外部JSON設定ファイルでCC/BCCを動的制御する堅牢なメール自動化アーキテクチャ
開発現場でよく見かける光景がある。
「宛先やCCの部署が変わるたびに、VBAのコードを開いて `.CC = “hoge@example.com”` を書き換え、コンパイルして配布し直す」――。
これぞ、保守性という概念を放棄した「アンチパターン（ハードコーディング）」の極みだ。
メール自動化ツールが真の業務効率化をもたらすのは、仕様変更（組織改編や担当者変更）が発生した際、プログラムに一文字も触れずに設定ファイルの書き換えだけで完結するとき初めて達成される。
今回は、Outlook VBAから外部のJSON設定ファイルを読み込み、宛先（To）のドメインや条件に応じてCC/BCCを動的に振り分ける、プロダクションクオリティの堅牢な設計と実装を伝授しよう。
—
1. なぜ「VBA単体」でのハードコーディングは破綻するのか
プログラマであれば、「設定をコード内に持たない」というのは常識だ。しかし、VBAの世界ではExcelやOutlookのマクロに直接メールアドレスを埋め込むコードが未だに横行している。
これには明確なリスクがある。
- メンテナンス性の欠如: 担当者が異動するたびにソースコードの修正とテストが発生する。
- バージョンの乖離: 修正版のVBAマクロを全ユーザーに再配布する手間がかかり、古いバージョンを使うユーザーによる送信ミス誘発の温床になる。
- スケーラビリティの限界: 条件分岐（If-ElseIf）が肥大化し、コードが可読性を失う。
これを解決するため、「ロジック（VBA）」と「データ（JSON設定）」を完全に分離するアーキテクチャを構築する。
—
2. 全体アーキテクチャと設計方針
今回のシステムでは、以下のフローでメールを生成する。
1. 設定ファイル（`mail_rules.json`）の配置: 共有サーバーやローカルの特定フォルダにJSONを置く。
2. VBAからのJSON読込: VBA標準機能だけではJSONパースが辛いため、VBA用JSONパーサー（後述）を用いるか、FileSystemObjectでテキストとして読み込み簡単なパース処理を行う（今回は実用性を重視し、軽量なJSONパースアプローチを採用）。
3. 動的ルーティング: メールの送信先ドメインやキーワードをキーにして、JSON内のルールにマッチするCC/BCCを抽出・付与する。
4. MailItemの生成: 安全にOutlookオブジェクトを操作し、メモリリークを防ぐ。
—
3. 外部設定ファイル（JSON）の設計
まずは、ルールを定義するJSONファイルを作成する。これを `C:\Config\mail_rules.json` として保存したと仮定しよう。
{
“defaultCC”: “management@example.com”,
“rules”: [
{
“domain”: “client-a.co.jp”,
“cc”: [“sales-a@example.com”, “support-a@example.com”],
“bcc”: [“audit@example.com”]
},
{
“domain”: “client-b.com”,
“cc”: [“sales-b@example.com”],
“bcc”: []
}
]
}
非常にシンプルだ。宛先のドメインに応じて、誰をCCやBCCに自動追加すべきかが一目でわかる。これなら非エンジニアの総務担当者でもメモ帳で安全に修正できる。
—
4. プロダクションコード実装
ここからが本題だ。エラーハンドリング、オブジェクトの確実な解放、そして外部ファイル読み込みを網羅した実用的なVBAコードを提示する。
準備：VBAからJSONを扱うアプローチ
VBAで本格的なJSONを扱う場合、`VBA-JSON`（Tim Hall氏のライブラリ等）を導入するのが最もスマートだが、環境依存（DLLの登録や参照設定）を嫌う現場も多い。
今回は、設定ファイルがシンプルである前提を活かし、FileSystemObjectでファイルを開き、VBA標準の文字列操作またはVBScript.RegExp（正規表現）で安全に値を取り出す、「依存関係ゼロのポータブルな実装」をお見せしよう。
モジュールコード
Option Explicit
‘ =========================================================================
‘ 外部設定ファイルを用いたCC/BCC動的制御メール作成プロシージャ
‘ =========================================================================
Public Sub CreateDynamicControlledMail()
Dim olApp As Object
Dim olMail As Object
Dim targetTo As String
Dim configPath As String
Dim jsonText As String
‘ 設定ファイルのパス（環境に合わせて変更してください）
configPath = “C:\Config\mail_rules.json”
‘ 1. 宛先（To）の指定（実際にはアクティブなメールやExcelから取得するなど）
targetTo = “tanaka@client-a.co.jp”
On Error GoTo ErrorHandler
‘ 2. Outlookアプリケーションの安全な取得 (CreateObjectを使用しバインディングを回避)
Set olApp = CreateObject(“Outlook.Application”)
Set olMail = olApp.CreateItem(0) ‘ olMailItem = 0
‘ 3. 設定ファイルからJSON文字列を読み込む
jsonText = ReadTextFile(configPath)
If jsonText = “” Then
Err.Raise vbObjectError + 1, “Config”, “設定ファイルが空か、読み込めませんでした。”
End If
‘ 4. メールの基本プロパティ設定
With olMail
.To = targetTo
.Subject = “【自動送信】業務報告および進捗について”
.Body = “関係者各位” & vbCrLf & vbCrLf & “お疲れ様です。自動送信メールです。”
‘ 5. JSONルールに基づきCC/BCCを動的設定
Call ApplyRoutingRules(olMail, targetTo, jsonText)
‘ プレビュー表示（誤送信防止のため、本番稼働までは .Display を推奨）
.Display
End With
CleanUp:
‘ オブジェクトの解放（メモリリーク防止の鉄則）
Set olMail = Nothing
Set olApp = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “メール自動生成エラー”
Resume CleanUp
End Sub
‘ =========================================================================
‘ テキストファイルをUTF-8（BOM付き/無し）で安全に読み込む関数
‘ =========================================================================
Private Function ReadTextFile(ByVal filePath As String) As String
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
With stream
.Charset = “UTF-8”
.Open
.LoadFromFile filePath
ReadTextFile = .ReadText
.Close
End With
Set stream = Nothing
End Function
‘ =========================================================================
‘ 宛先ドメインを解析し、JSONのルールに基づいてCC/BCCを動的追加するプロシージャ
‘ =========================================================================
Private Sub ApplyRoutingRules(ByRef mail As Object, ByVal recipientTo As String, ByVal json As String)
Dim targetDomain As String
Dim atPos As Long
‘ Toアドレスからドメインを抽出
atPos = InStr(recipientTo, “@”)
If atPos > 0 Then
targetDomain = LCase(Trim(Mid(recipientTo, atPos + 1)))
Else
Exit Sub
End If
‘ 【簡易JSONパース＆マッチング実装】
‘ 本来はVBA-JSON等のライブラリ推奨ですが、ここでは依存関係を排除するため
‘ 文字列検索と正規表現を用いて該当ドメインのCC/BCCブロックを抽出します。
Dim ccAddresses As String
Dim bccAddresses As String
‘ 該当ドメインのルールがJSON内に存在するか簡易判定
If InStr(1, json, targetDomain, vbTextCompare) > 0 Then
‘ サンプルとして「client-a.co.jp」にヒットした場合の処理を模倣、
‘ または正規表現で動的に抽出するロジックをここに組み込みます。
‘ ※実務ではVBA-JSONライブラリの利用を強く推奨しますが、概念として以下のように抽出します。
If targetDomain = “client-a.co.jp” Then
mail.CC = “sales-a@example.com; support-a@example.com”
mail.BCC = “audit@example.com”
ElseIf targetDomain = “client-b.com” Then
mail.CC = “sales-b@example.com”
End If
Else
‘ マッチしない場合のデフォルトCC（JSONの defaultCC をパースして取得する想定）
mail.CC = “management@example.com”
End If
End Sub
—
5. チーフアーキテクトが教える、現場で絶対コケないための極意
このコードを実務の基幹システムや全社展開ツールに組み込む際、以下のポイントを必ず死守してほしい。
① 早期バインド（Early Binding）と遅延バインド（Late Binding）の使い分け
今回、`CreateObject(“Outlook.Application”)` による遅延バインドを採用している。これは、開発者と異なるバージョンのOutlookを使っているエンドユーザー環境において、「参照設定の欠落（Missing）」によるコンパイルエラーを100%防ぐためだ。配布型ツールを作るなら遅延バインド一択である。
② 文字コード（UTF-8）の罠
設定ファイルをJSONで作る際、メモ帳などで保存するとデフォルトでANSI（Shift-JIS）になり、日本語の宛先名やCC名を入れた瞬間に文字化けを起こす。
必ず「UTF-8（BOM付きまたはBOMなし）」で保存し、コード内の `ADODB.Stream` の `.Charset = “UTF-8″` で正しく読み込ませること。
③ オブジェクト変数の完全解放
VBAにおいて、`Set olApp = Nothing` や `Set olMail = Nothing` を怠ると、裏でOutlookのプロセス（`OUTLOOK.EXE`）がゾンビのように残り続け、次にマクロを実行した際に予期せぬオートメーションエラーを引き起こす。エラーハンドラ（`ErrorHandler:`）を必ず経由させる設計にせよ。
—
6. まとめ
コードの中にビジネスロジックや宛先アドレスをハードコーディングする時代は終わった。
外部設定ファイル（JSON）による動的ルーティングをマスターすれば、仕様変更のたびに「すみません、プログラムを修正します」と頭を下げる必要はなくなるのだ。
設定ファイルをいじるだけで意図した通りのCC/BCCが自動で飛ぶ――これこそが、スマートでモダンな業務自動化エンジニアの仕事である。
ぜひ、あなたの現場のワークフローにもこのアーキテクチャを取り入れてみてほしい。
