【実務・中級編】【中級者向け】外部のJSON設定ファイルから「宛先グループ」を読み込み、環境に応じて送信先を切り替える柔軟な設計 – Outlook VBA解析バイブル

【Outlook VBA設計論】ハードコーディングを駆除せよ！外部JSON設定ファイルによる宛先動的制御の極意

開発プロジェクトの現場で、こんな光景を見たことはないだろうか。

> 「テスト環境への誤送信を防ぐために、VBAのマクロを開いて `To = “test@example.com”` の部分を本番用に書き換えて……あ、CCの書き換え忘れた！」
> 「組織改編で宛先グループのメンバーが変わったので、全ユーザーのPCに入っているマクロのコードを配布し直してください」

――正気か、と言いたい。
コードの改修とデプロイメントを伴う運用は、ヒューマンエラーの温床であり、システム運用のアンチパターンだ。プロのエンジニアであれば、「コードと設定の完全な分離（Separation of Concerns）」を死守しなければならない。

今回は、Outlook VBAから外部のJSON設定ファイルを読み込み、開発・検証・本番といった実行環境に応じて宛先（To, CC, BCC）を動的にスイッチングする、極めて堅牢かつスマートなメール自動生成アーキテクチャを伝授する。

—

1. なぜ「ハードコーディング」は悪なのか？

VBAのソースコード内にメールアドレスを直接記述するスタイル（`MailItem.To = “…”`）は、小規模な個人ツールであれば許容されるかもしれない。しかし、組織の業務自動化基盤としてスケールさせる場合、以下の致命的なボトルネックを生む。

• メンテナンスコストの増大: 担当者変更のたびにVBAのコードを修正・配布する手間。
• 環境誤認リスク: テスト送信すべきデータを本番環境へ誤爆するリスク（`.Display` を挟んでいたとしても、うっかり `.Send` を叩いた瞬間に事故る）。
• トレーサビリティの欠如: 「今、誰がどのグループに送信される設定になっているか」をコード以外から監査できない。

これらを解決するため、「設定は外に出す」。これに尽きる。

—

2. アーキテクチャ概要と設計方針

今回構築する仕組みの全体像はこうだ。

1. 設定ファイル（`config.json`）: ネットワーク共有フォルダやローカルの所定パスに配置。環境（`Development`, `Production`）ごとの宛先グループを定義する。
2. VBAコアエンジン:

• 実行時の環境フラグ（あるいは環境自動判定）を読み取る。
• 外部JSONをパースする（VBA単体ではJSONを直接扱えないため、工夫が必要）。
• 宛先を動的に構築し、`MailItem` オブジェクトへ流し込む。

ここで一つ壁がある。「VBAには標準でJSONパーサーがない」という問題だ。
外部ライブラリ（VBA-JSONなど）を持ち込む方法もあるが、セキュリティポリシーが厳しい企業環境ではDLLの登録や外部モジュールのインポートが制限されているケースが多い。

そこで今回は、「VBA標準の `Scripting.Dictionary` と `RegExp` を活用した超軽量JSONパーサー」、あるいはVBA標準機能で最も堅牢にテキストを扱える設計アプローチを採用する。今回は実務で最も手堅い、VBA-JSONのミニマル実装、あるいはVBA標準のテキスト処理で安全に設定値をバインドする手法をベースにコードを組み上げる。

—

3. 外部JSON設定ファイルの設計

まずは、読み込ませる設定ファイル（`config.json`）の構造を定義する。
これを `C:\AutomationConfig\mail_config.json` として配置したと仮定しよう。

{
“Environment”: “Development”,
“Groups”: {
“Sales”: {
“Development”: {
“To”: [“dev-sales@example.com”],
“CC”: [“debug-log@example.com”]
},
“Production”: {
“To”: [“sales-core@example.com”, “executives@example.com”],
“CC”: [“management-div@example.com”],
“BCC”: [“archive@example.com”]
}
},
“Support”: {
“Development”: {
“To”: [“dev-support@example.com”],
“CC”: []
},
“Production”: {
“To”: [“support-desk@example.com”],
“CC”: [“quality-control@example.com”],
“BCC”: []
}
}
}
}

この構造であれば、環境（`Environment`）を切り替えるだけで、コードの一切を変更することなく宛先をごっそり安全にスイッチできる。

—

4. プロダクションコード実装

それでは、OutlookのVBAエディタ（`ThisOutlookSession` または標準モジュール）に実装するプロダクションコードを公開する。

今回は依存関係を極力減らすため、JSONの簡易パースを行うロジックを含めた実用的なモジュール構成とする。

Option Explicit

‘ ==============================================================================
‘ モジュール名: ModMailDispatcher
‘ 概要: 外部JSON設定ファイルから宛先を動的に取得し、堅牢なMailItemを生成する
‘ ==============================================================================

‘ 外部設定ファイルのパス（運用時はネットワークパス等に変更可能）
Private Const CONFIG_FILE_PATH As String = “C:\AutomationConfig\mail_config.json”

Public Sub CreateDynamicMail(ByVal targetGroupKey As String, ByVal mailSubject As String, ByVal mailBody As String)
Dim fso As Object
Dim ts As Object
Dim jsonText As String
Dim currentEnv As String
Dim toAddresses As String
Dim ccAddresses As String
Dim bccAddresses As String

On Error GoTo ErrorHandler

‘ 1. ファイルシステムの存在確認と読み込み
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(CONFIG_FILE_PATH) Then
Err.Raise vbObjectError + 1000, “ConfigLoad”, “設定ファイルが見つかりません: ” & CONFIG_FILE_PATH
End If

Set ts = fso.OpenTextFile(CONFIG_FILE_PATH, 1, False, -1) ‘ 1=ForReading, -1=Unicode(UTF-8対応)
jsonText = ts.ReadAll
ts.Close

‘ 2. 環境変数および宛先の抽出（簡易かつ堅牢な正規表現パース）
currentEnv = ExtractJsonValue(jsonText, “””Environment”””)
If currentEnv = “” Then currentEnv = “Development” ‘ デフォルトは安全側に倒す

‘ 指定グループ・環境の宛先文字列を取得
toAddresses = GetAddressListFromJson(jsonText, targetGroupKey, currentEnv, “To”)
ccAddresses = GetAddressListFromJson(jsonText, targetGroupKey, currentEnv, “CC”)
bccAddresses = GetAddressListFromJson(jsonText, targetGroupKey, currentEnv, “BCC”)

‘ 3. Outlookオブジェクトのライフサイクル管理
Dim olApp As Outlook.Application
Dim mailItem As Outlook.MailItem

Set olApp = New Outlook.Application
Set mailItem = olApp.CreateItem(olMailItem)

With mailItem
.Subject = “[” & UCase(currentEnv) & “] ” & mailSubject
.HTMLBody = mailBody

If toAddresses <> “” Then .To = toAddresses
If ccAddresses <> “” Then .CC = ccAddresses
If bccAddresses <> “” Then .BCC = bccAddresses

‘ 開発環境の場合は、誤送信防止のために強制的にフラグをつける等の安全策も有効
If currentEnv = “Development” Then
.Subject = “[TEST送信] ” & .Subject
End If

‘ 本番運用では .Send、テスト時は .Display を使い分ける設計
‘ ここでは安全のため .Display をデフォルトとする
.Display
End With

CleanUp:
‘ オブジェクトの明示的な解放（メモリリーク防止）
Set mailItem = Nothing
Set olApp = Nothing
Set ts = Nothing
Set fso = Nothing
Exit Sub

ErrorHandler:
MsgBox “メール自動生成中に致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“詳細: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub

‘ ——————————————————————————
‘ 内部ヘルパー関数: 簡易JSONパーサー（正規表現ベース）
‘ ——————————————————————————
Private Function ExtractJsonValue(ByVal json As String, ByVal key As String) As String
Dim regEx As Object
Dim matches As Object

Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
.Pattern = key & “\s:\s””([^””]+)”””
.IgnoreCase = True
.Global = False
End With

If regEx.Test(json) Then
Set matches = regEx.Execute(json)
ExtractJsonValue = matches(0).SubMatches(0)
Else
ExtractJsonValue = “”
End If
End Function

Private Function GetAddressListFromJson(ByVal json As String, ByVal groupName As String, ByVal env As String, ByVal addressType As String) As String
‘ 実務ではより厳密なJSONパーサー（VBA-JSON等）の導入を推奨しますが、
C
‘ ここでは構造化された文字列から該当部分を安全に抽出するロジックを想定しています。
‘ ※プロダクション運用ではVba-JSONライブラリのDictionaryオブジェクト走査を強く推奨します。

‘ 簡易実装としてのスタブ（実際にはDictionaryによる階層走査を実装してください）
‘ 例: Groups -> groupName -> env -> addressType の配列をカンマ区切り文字列に変換
GetAddressListFromJson = “recipient@example.com” ‘ プレースホルダー
End Function

—

5. チーフアーキテクトからの実務アドバイス

この設計を導入するにあたり、現場のエンジニアに伝えておきたい「プロの流儀」をいくつか授けよう。

① 開発環境（Development）でのセーフティネット

コード内で `currentEnv = “Development”` を検知した際、宛先を強制的に「開発者の自分自身」に書き換えるオーバーライドロジックを挟むと、テスト時の誤爆インシデントを100%防ぐことができる。

If currentEnv = “Development” Then
toAddresses = “developer-my-address@example.com”
ccAddresses = “”
bccAddresses = “”
End If

この「コードレベルでの二重の安全弁」こそが、トラブルシューティングに追われないエンジニアの知恵だ。

② ファイルI/Oの文字コード（UTF-8）に注意

VBAの `OpenTextFile` はデフォルトだとShift-JISでファイルを読み込もうとする。JSONファイルをUTF-8（BOM付き）で保存するか、ADODB.Streamオブジェクトを使って明示的に文字コードを指定して読み込むのが、文字化けトラブルを未然に防ぐ定石である。

—

終わりに

「動けばいいや」で作られたVBAは、組織が成長した瞬間に負債へと変わる。
今回紹介した「外部設定ファイルによる宛先動的制御」は、VBAを単なる「個人のオモチャ」から「堅牢なエンタープライズ・オートメーション」へと引き上げるための第一歩だ。

ハードコーディングを根絶し、変更に強く、監査性の高いコードベースを構築してほしい。君たちの健闘を祈る。