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

【Outlook VBA極限活用】JSON設定ファイル駆動型・動的宛先制御アーキテクチャ

レガシーなVBAコードの中に、宛先のメールアドレスがハードコーディングされている光景を未だに見かける。組織変更、担当者の異動、テスト環境から本番環境への移行――その度にVBAのコードを開き、文字列を書き換えてコンパイルする。これはエンジニアリングの敗北であり、システム保守における最大の無駄だ。

真に堅牢なエンタープライズシステムにおいて、宛先や環境依存パラメーターはコードの外側に追放されなければならない。

今回は、Outlook VBAの極限領域として、外部のJSON設定ファイルを読み込み、本番・検証といった「環境（Environment）」や業務グループに応じて宛先（To, CC, BCC）を動的に切り替える、ハードコーディングを完全排除したアーキテクチャを解説する。

—

1. なぜ外部設定ファイル駆動なのか？

VBA単体では、高度な構造化データのパース処理は標準機能だけでは荷が重い。しかし、Windows環境であれば、スクリプト言語のランタイムや標準APIを巧みに利用することで、VBAからJSONを華麗にハンドリングできる。

ハードコーディングを廃するメリットは、単に「コードを汚さない」ことだけではない。

• デプロイフリー: 宛先が変わるたびに `.otm` (VbaProject.OTM) やアドインを再配布する必要がない。
• 環境分離: 開発・検証環境では自動的にテスト用のアドレス（CCに自分自身を入れる等）にすり替わり、誤送信を物理的に防ぐ。
• 監査性: 設定が外部ファイル化されることで、Git等での変更履歴管理や、情報システム部門によるレビューが容易になる。

—

2. アーキテクチャの全体像

本アーキテクチャは以下のコンポーネントで構成する。

1. 設定ファイル (`config.json`): 環境ごとの宛先マッピングを定義。
2. JSONパーサーラッパー: VBAから安全にJSONをオブジェクト化するモジュール。
3. Outlookメイン処理 (`MailGenerator`): アクティブな環境を判定し、JSONから宛先を解決して `MailItem` を構築する。

設定ファイル例 (`C:\OutlookConfig\config.json`)

{
“Environment”: “Development”,
“Environments”: {
“Production”: {
“DefaultCC”: [“audit@example.com”],
“Groups”: {
“Sales”: {
“To”: [“sales-core@example.com”, “manager-sales@example.com”],
“Bcc”: [“archive-sales@example.com”]
},
“Support”: {
“To”: [“support-desk@example.com”],
“Bcc”: []
}
}
},
“Development”: {
“DefaultCC”: [“developer-debug@example.com”],
“Groups”: {
“Sales”: {
“To”: [“dev-test-user1@example.com”],
“Bcc”: []
},
“Support”: {
“To”: [“dev-test-user1@example.com”],
“Bcc”: []
}
}
}
}
}

—

3. 実装コード：JSONパースと動的制御の融合

外部JSONをVBAで読み込む最もエレガントな方法は、Windows Script Host (WSH) の `ScriptControl`（32bitレガシー環境）か、あるいは軽量なJSONパース用クラスを自前で持つことだが、現代の64bit Office環境を考慮し、VBAから `VBScript.RegExp` や標準の `ADODB.Stream` を用いてUTF-8設定ファイルを確実に読み込み、簡易JSONパーサーまたはMSHTML (HTMLFile) のJScriptエンジンを借用してパースする手法が最も堅牢だ。

今回は、OS標準のコンポーネントを活用し、余計な外部DLLの参照設定を不要とするプロフェッショナル向けの実装を提示する。

標準モジュール: `ModConfigLoader.bas`

Option Explicit

‘ —————————————————————–
‘ 外部JSONファイルから設定をロードし、宛先を動的に構築するコアエンジン
‘ —————————————————————–
Public Sub CreateDynamicMail(ByVal groupName As String, ByVal subjectText As String, ByVal bodyText As String)
Dim jsonString As String
Dim config As Object
Dim env As String
Dim targetEnvConfig As Object
Dim groupConfig As Object

‘ 1. JSONファイルの読み込み（UTF-8対応）
jsonString = ReadTextFile(“C:\OutlookConfig\config.json”, “UTF-8”)
If jsonString = “” Then
MsgBox “設定ファイルが読み込めないか、空です。”, vbCritical
Exit Sub
End If

‘ 2. JScriptエンジンを利用した安全なJSONオブジェクト化
Set config = ParseJSON(jsonString)
If config Is Nothing Then
MsgBox “JSONのパースに失敗しました。”, vbCritical
Exit Sub
End If

‘ 3. 現在の環境(Environment)の取得
On Error Resume Next
env = config.Item(“Environment”)
Set targetEnvConfig = config.Item(“Environments”).Item(env)
Set groupConfig = targetEnvConfig.Item(“Groups”).Item(groupName)
On Error GoTo 0

If groupConfig Is Nothing Then
MsgBox “指定されたグループ [” & groupName & “] または環境設定が見つかりません。”, vbCritical
Exit Sub
End If

‘ 4. Outlookオブジェクトの生成とメモリ最適化を考慮した構築
Call BuildAndShowMail(targetEnvConfig, groupConfig, subjectText, bodyText)

‘ 5. 明示的なオブジェクト解放（メモリリーク防止）
Set groupConfig = Nothing
Set targetEnvConfig = Nothing
Set config = Nothing
End Sub

‘ —————————————————————–
‘ ADODB.Streamを用いた堅牢なUTF-8ファイルリーダー
‘ —————————————————————–
Private Function ReadTextFile(ByVal filePath As String, ByVal charSet As String) As String
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
With stream
.Type = 2 ‘ adTypeText
.charset = charSet
.Open
.LoadFromFile filePath
ReadTextFile = .ReadText
.Close
End With
Set stream = Nothing
End Function

‘ —————————————————————–
‘ MSHTML(HTMLFile)のJScriptエンジンを流用したネイティブJSONパーサー
‘ 参照設定不要でVBAからJSONをDictionaryとして扱うための常套手段
‘ —————————————————————–
Private Function ParseJSON(ByVal json As String) As Object
Dim html As Object
Set html = CreateObject(“HTMLFile”)

‘ JScriptのevalを安全に実行
html.parentWindow.execScript “var globalJsonData = ” & json & “;”, “JScript”

‘ ※実運用ではここでJScriptオブジェクトをVBAのDictionaryに変換するヘルパーを挟むが、
‘ 今回は概念実証のため簡略化したインターフェースを想定する。
‘ スケーラビリティを求める場合はVBA-JSON（Tim Hall氏のライブラリ等）の導入を強く推奨する。
Set ParseJSON = html.parentWindow.globalJsonData
Set html = Nothing
End Function

‘ —————————————————————–
‘ MailItemの生成と動的宛先設定
‘ —————————————————————–
Private Sub BuildAndShowMail(ByVal envConf As Object, ByVal grpConf As Object, ByVal subj As String, ByVal body As String)
Dim olApp As Outlook.Application
Dim mail As Outlook.MailItem
Dim i As Long

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

With mail
.Subject = “[” & envConf.Item(“Environment”) & “] ” & subj
.Body = body

‘ Toの動的設定 (Collection / Arrayを想定)
Dim toList As Object
Set toList = grpConf.Item(“To”)
For i = 0 To toList.length – 1
.Recipients.Add toList.item(i)
.Recipients.Item(.Recipients.Count).Type = olTo
Next i

‘ CCの動的設定 (環境共通CC + グループ別CC)
Dim ccList As Object
Set ccList = envConf.Item(“DefaultCC”)
For i = 0 To ccList.length – 1
.Recipients.Add ccList.item(i)
.Recipients.Item(.Recipients.Count).Type = olCC
Next i

‘ BCCの動的設定
Dim bccList As Object
Set bccList = grpConf.Item(“Bcc”)
If Not bccList Is Nothing Then
For i = 0 To bccList.length – 1
.Recipients.Add bccList.item(i)
.Recipients.Item(.Recipients.Count).Type = olBCC
Next i
End If

‘ 宛先の解決（Resolve）
.Recipients.ResolveAll

‘ 表示（送信する場合は .Send を使用）
.Display
End With

‘ 【重要】COMオブジェクトの参照完全解放
‘ Outlook VBAにおけるメモリリークは、インストンスのゾンビ化を引き起こす
Set mail = Nothing
Set olApp = Nothing
End Sub

—

4. シニアエンジニアが押さえるべき「極限の知見」

上記のコードを実務の現場に投入するにあたり、チーフアーキテクトとして見逃せない重要なポイントをいくつか補足する。

① Outlook COMオブジェクトのライフサイクル管理

VBAにおける `New Outlook.Application` や `CreateObject(“Outlook.Application”)` は、意図せずバックグラウンドプロセスを残留（ゾンビ化）させやすい。
コードの最後では必ず `Set mail = Nothing` および `Set olApp = Nothing` を行い、参照カウントを明示的にゼロに落とすこと。これを怠ると、Outlookが裏で多重起動し、メモリを食潰す原因となる。

② .ResolveAllの強制とオフラインモードの罠

動的に追加された宛先文字列は、Outlookがアドレス帳（GALまたは連絡先）と即座に同期できるとは限らない。特にExchange Server環境やオフライン作業時には、`.Recipients.ResolveAll` を呼び出さずに `.Send` や `.Display` を行うと、未解決の宛先でエラーが発生するか、意図しないパブリック宛先として解釈される危険性がある。動的制御を行う場合は、`ResolveAll` の戻り値（Boolean）を評価し、解決できなかった宛先をログに吐き出すロジックを入れるのがプロの作法だ。

③ エラーハンドリングとフォールバック

外部設定ファイル（JSON）の破損やネットワーク上の共有フォルダからの読み込み失敗に備え、`On Error GoTo` による堅牢なフォールバック（例：デフォルトのハードコードされた宛先へ一時的に切り替える、あるいは処理を安全に中断する）を必ず実装すべきである。システムは「失敗しないこと」ではなく、「失敗したときに安全に停止すること」が美徳とされる。

—

5. 結び：ハードコーディングという悪習からの脱却

VBAは、その手軽さゆえに「とりあえず動くコード」が量産されやすい。しかし、企業インフラの一部として稼働する以上、保守性、拡張性、環境耐性はプロフェッショナルレベルで担保されなければならない。

今回紹介した「設定ファイル駆動型・動的宛先制御」を取り入れることで、あなたの書くVBAは単なる「マクロ」から、洗練された「エンタープライズ・システム」へと昇華するだろう。保守作業に怯える日々に、今日で終止符を打て。