【実務・中級編】【中級者向け】外部JSON設定ファイルから宛先ルールを読み込み、CC/BCCを動的に振り分ける柔軟な送信システム – Outlook VBA解析バイブル

【Outlook VBA】ハードコーディングを駆使する時代遅れの設計からの脱却：外部JSON設定ファイル駆動型・動的宛先制御システム

開発プロジェクトの現場において、VBAのコード内にメールアドレスや宛先条件をベタ書き（ハードコーディング）しているシーンに遭遇するたび、私はエンジニアとしての危機感を覚える。
「担当者の異動に伴うメールアドレスの変更」「新しい宛先グループの追加」「CC/BCCの振り分けロジックの修正」――これらが発生するたびに `.xlsm` や `.bcm` を開き、ソースコードを書き換えてテストしてデプロイする？ナンセンスだ。ビジネスの速度にシステムが耐えられなくなる最大の原因は、こうした「データとロジックの癒着」にある。

今回は、Outlook VBAから外部のJSON設定ファイルを読み込み、宛先・CC・BCCを完全に動的にコントロールするプロダクショングレードの送信システムの設計思想と実装を伝授する。

—

1. なぜ「外部JSON × VBA」なのか？

実務でメール自動化をスケールさせるとき、VBA単体の閉じた世界で完結させようとしてはならない。設定情報を外部化するメリットは明確だ。

• メンテナンス性の飛躍的向上: 非プログラマー（業務担当者）でも、テキストエディタでJSONを書き換えるだけで宛先ルールを更新できる。
• ソースコードの不可侵性: ルール変更のたびにVBAのコンパイルやバージョン管理（Git等）を走らせる必要がなくなる。
• 拡張性の担保: 将来的にPythonやC#へ処理を移行する際も、JSONのスキーマ（構造）さえ維持していれば、設定ファイルをそのまま流用できる。

しかし、VBAには標準でJSONパーサーが備わっていない。ここで外部ライブラリに頼るか、あるいは自前でVBAライクなパーサーを書くかという選択肢が生まれるが、本記事では依存関係を最小限にしつつ、実用的な堅牢性を持つアプローチを採用する。

—

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

今回構築するシステムのデータフローは以下の通りだ。

1. 設定ファイル (`config.json`): 業務種別（`JobType`）ごとの「宛先、CC、BCC、件名プレフィックス」を定義。
2. VBAランタイム (`MailDispatcher`):

• Outlookのセッションを安全に確立。
• `Scripting.FileSystemObject` (FSO) を用いてJSONファイルを読み込み。
• 簡易的な正規表現や文字列パース、あるいはVBA用JSONライブラリを用いてメモリ上に展開。
• 動的に `MailItem` オブジェクトを生成し、宛先をアサインして送信（または下書き保存）。

—

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

まずは、読み込ませる設定ファイルの構造を定義する。文字コードは必ず UTF-8 (BOMなし推奨) で保存すること。さもないと、日本語の宛先名や件名が文字化けして業務が止まる。

`C:\Automation\config.json`

{
“ReportA”: {
“To”: [“client_alpha@example.com”, “client_beta@example.com”],
“Cc”: [“manager_a@example.com”],
“Bcc”: [“archive_log@example.com”],
“SubjectPrefix”: “【重要】月次レポート送付の件”
},
“ReportB”: {
“To”: [“client_gamma@example.com”],
“Cc”: [“manager_b@example.com”, “audit@example.com”],
“Bcc”: [],
“SubjectPrefix”: “【速報】日次集計データ”
}
}

—

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

ここからが本題だ。オブジェクトのライフサイクルを厳格に管理し、メモリリークやOutlookの裏死に（プロセス残留）を防ぐ洗練されたVBAコードを提示する。

今回はVBA標準機能のみ、あるいはVBScriptのJScriptエンジン（`MSScriptControl` または `HTMLFile`）を利用して安全にJSONをオブジェクト化する手法を用いるが、依存を嫌う現場のために「FSOによる安全なファイル読み込み」＋「最小限の文字列抽出」をベースとした、堅牢性の高いモジュールを記述する。

実装モジュール: `clsMailDispatcher`（または標準モジュール）

Option Explicit

‘ =================================================================================
‘ 外部JSON設定ファイル駆動型 宛先動的制御メール送信エンジン
‘ Chief Architect tuned for Production Environment
‘ =================================================================================

Public Sub SendDynamicMail(ByVal jobType As String, ByVal bodyText As String)
Dim fso As Object
Dim ts As Object
Dim jsonPath As String
Dim jsonString As String

jsonPath = “C:\Automation\config.json”

‘ 1. FSOを用いた安全なファイルI/O
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(jsonPath) Then
MsgBox “設定ファイルが見つかりません: ” & jsonPath, vbCritical, “致命的エラー”
Exit Sub
End If

On Error GoTo ErrorHandler
Set ts = fso.OpenTextFile(jsonPath, 1, False, -2) ‘ -2 = TristateUseDefault (System Default)
jsonString = ts.ReadAll
ts.Close

‘ 2. JSONから指定されたJobTypeのパラメータを抽出（簡易パーサーロジック）
Dim toList As String, ccList As String, bccList As String, subjectPrefix As String

toList = ExtractJsonArray(jsonString, jobType, “To”)
ccList = ExtractJsonArray(jsonString, jobType, “Cc”)
bccList = ExtractJsonArray(jsonString, jobType, “Bcc”)
subjectPrefix = ExtractJsonString(jsonString, jobType, “SubjectPrefix”)

If toList = “” Then
MsgBox “指定された業務種別 [” & jobType & “] の宛先が見つかりません。”, vbCritical, “設定エラー”
Exit Sub
End If

‘ 3. Outlookオブジェクトの安全なライフサイクル管理
Dim olApp As Object
Dim olMail As Object
Dim ns As Object

‘ 既存のインスタンスを取得、なければ新規生成（早期バインディングの罠を避けるため後期バインディングを採用）
On Error Resume Next
Set olApp = GetObject(, “Outlook.Application”)
If olApp Is Nothing Then
Set olApp = CreateObject(“Outlook.Application”)
End If
On Error GoTo ErrorHandler

Set olMail = olApp.CreateItem(0) ‘ 0 = olMailItem

With olMail
.Subject = subjectPrefix & ” ” & Format(Now, “yyyy/mm/dd HH:nn”)
.Body = bodyText

‘ 動的宛先アサイン
.To = toList
If ccList <> “” Then .CC = ccList
If bccList <> “” Then .BCC = bccList

‘ 【重要】プロダクション環境では即時送信せず、一度表示または厳格なチェックを挟むことを推奨
‘ .Send
.Display ‘ デバッグおよび安全性のために一旦画面表示
End With

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

ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub

‘ ——————————————————————————–
‘ 内部関数: 簡易JSON配列抽出パーサー（正規表現を活用した堅牢な実装）
‘ ——————————————————————————–
Private Function ExtractJsonArray(ByVal json As String, ByVal keyGroup As String, ByVal targetKey As String) As String
Dim regEx As Object
Dim matches As Object
Dim subMatches As Object
Dim resultStr As String

Set regEx = CreateObject(“VBScript.RegExp”)

‘ 指定されたJobTypeのブロックを特定し、その中のターゲットキー配列を抽出する正規表現
‘ 例: “ReportA”\s:\s\{([^}]?”To”\s:\s\[([^\]]+)\])
regEx.Pattern = “””” & keyGroup & “””\s:\s\{[^}]?””” & targetKey & “””\s:\s\[([^\]]+)\]”
regEx.IgnoreCase = True
regEx.Global = False

If regEx.Test(json) Then
Set matches = regEx.Execute(json)
Set subMatches = matches(0).SubMatches
resultStr = subMatches(0)

‘ ダブルクォーテーションと空白を除去し、セミコロン/カンマ区切りに変換
resultStr = Replace(resultStr, “”””, “”)
resultStr = Replace(resultStr, vbCr, “”)
resultStr = Replace(resultStr, vbLf, “”)
resultStr = Replace(resultStr, ” “, “”)
resultStr = Replace(resultStr, “,”, “; “) ‘ Outlookの宛先区切りはセミコロンが安全

ExtractJsonArray = resultStr
Else
ExtractJsonArray = “”
End If
End Function

‘ ——————————————————————————–
‘ 内部関数: 簡易JSON文字列抽出パーサー
‘ ——————————————————————————–
Private Function ExtractJsonString(ByVal json As String, ByVal keyGroup As String, ByVal targetKey As String) As String
Dim regEx As Object
Dim matches As Object

Set regEx = CreateObject(“VBScript.RegExp”)
regEx.Pattern = “””” & keyGroup & “””\s:\s\{[^}]?””” & targetKey & “””\s:\s””([^””]+)”””
regEx.IgnoreCase = True
regEx.Global = False

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

—

5. チーフアーキテクトが教える、現場で絶対にはまる「3つの罠」

このコードを現場に投入するにあたり、プロとして知っておくべき「実装の急所」を授けよう。

1. アプリケーションの二重起動とCOM例外

Outlookマクロから `CreateObject(“Outlook.Application”)` を行う際、すでにOutlookが起動しているコンテキストでは問題ないが、バックグラウンド実行時などにセッションが不整合を起こすことがある。必ず `GetObject(, “Outlook.Application”)` で既存インスタンスのフックを試み、失敗した時のみ新規生成するフォールバック構造を維持すること。

2. Outlookの宛先区切り文字（`;` と `,`）の仕様差異

Excelや一般的なシステムではカンマ(`,`)区切りが主流だが、OutlookのMAPI層において、日本語環境の宛先解決（GALや連絡先との照合）ではセミコロン (`;`) の方が圧倒的にバグが少ない。上記のコードでは自動的に `; ` に置換するよう設計している。この細部へのこだわりが、トラブルゼロの運用の鍵となる。

3. 文字コードの罠（BOM付きUTF-8の害悪）

FSOで `OpenTextFile` を開く際、UTF-8（BOM付き）のファイルを読み込むと、ファイルの先頭に不可視の制御文字（`U+FEFF`）が混入し、正規表現のパッチが完全に見事に外れる。設定ファイルは必ず 「BOMなしUTF-8」 で保存する運用を徹底させること。

—

6. まとめ

コードのなかにデータを縛り付ける古い開発スタイルは、今日をもって捨てよう。
外部JSONによる設定駆動型アーキテクチャを採用すれば、VBAは単なる「使い捨てのマクロ」から、企業インフラの一部として耐えうる「堅牢な自動化エンジン」へと昇華する。

設計の美しさは、そのままシステムの寿命に直結する。ぜひ、あなたの現場のワークフローにこの知見を組み込み、真の自動化エンジニアとしての成果を示してほしい。