【テクニカル・上級編】【中級者向け】メール本文中の「社内用語」を自動で「正式名称」に置換する校正支援機能 – Outlook VBA解析バイブル

Outlook VBAを掌握する極限の知見：メール本文の自動校正エンジン実装とメモリ最適化

VBAはレガシーな言語と嘲笑されることがある。だが、オブジェクトモデルの挙動、背後にあるCOMのライフサイクル、そしてWindows環境の制約を完全に理解した者が書くコードは、現代のどの高水準言語にも引けを取らない堅牢性と処理速度を発揮する。

今回は、Outlookでのメール送信前に社内用語や略語を検知し、瞬時に正式名称へと置換する「リアルタイム校正支援エンジン」の設計と実装について解説する。単なる文字列置換のスクリプトではない。大規模な辞書データをメモリ上で効率的に扱い、Outlookのイベントフックを安全に制御するためのアーキテクチャを提示する。

—

1. アーキテクチャ設計：なぜ「送信前イベント」の制御が難しいのか

メールの自動校正を実装する際、最も重要なのは「どのタイミングでフックするか」だ。`ItemSend` イベントを使用するのが定石だが、ここにはCOMの参照リークや、非同期処理におけるOutlookの強制終了（クラッシュ）という致命的な罠が潜んでいる。

さらに、数千語に及ぶ社内用語辞書を毎回ハードディスクから読み込んでは、パフォーマンスが致命的に低下する。初回実行時にメモリ上（Dictionaryオブジェクト）へキャッシュし、イミュータブル（不変）に近い形で保持する設計が不可欠である。

—

2. 実装コード：堅牢性を極めた校正エンジン

以下のコードは、`Application_ItemSend` イベントを捕捉し、本文（HTMLBodyおよびBody）に含まれる社内用語を動的に置換、さらに誤用が含まれていた場合にアラートまたは自動修正を行う実用コードである。

このコードは、エラーハンドリングの徹底、Late Binding（遅延バインディング）の排除、およびオブジェクトの確実な解放を網羅している。

Option Explicit

‘ 辞書データを保持するモジュールレベルの変数（セッション中保持）
Private m_Dict As Object
Private m_IsInitialized As Boolean

‘ =========================================================================
‘ イベント起点: メールの送信直前に発火
‘ =========================================================================
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo ErrorHandler

‘ 対象がメールアイテム以外（会議案内やタスクなど）の場合は即座に抜ける
If Item.Class <> olMail Then Exit Sub

Dim mail As Outlook.MailItem
Set mail = Item

‘ 辞書の初期化（未初期化の場合のみロード）
If Not m_IsInitialized Then
Call InitializeDictionary
End If

‘ 本文の校正処理を実行
Dim isModified As Boolean
isModified = ProofreadMailBody(mail)

If isModified Then
‘ 修正が行われた場合、変更を保存するかユーザーに確認（または強制適用）
Dim response As VbMsgBoxResult
response = MsgBox(“社内用語の自動校正を行いました。このまま送信しますか？” & vbCrLf & _
“（[いいえ]を選択すると送信を中断します）”, _
vbYesNo + vbExclamation, “校正支援エンジン”)

If response = vbNo Then
Cancel = True
End If
End If

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

ErrorHandler:
MsgBox “校正処理中に致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Cancel = True
Resume CleanUp
End Sub

‘ =========================================================================
‘ 辞書データの初期化（メモリ最適化）
‘ =========================================================================
Private Sub InitializeDictionary()
Set m_Dict = CreateObject(“Scripting.Dictionary”)
m_Dict.CompareMode = vbTextCompare ‘ 大文字小文字を区別しない

‘ 本来は外部DBやJSON、Excel等から読み込むべきだが、今回はハードコーディング例
‘ Key: 誤用・略語, Value: 正式名称
m_Dict.Add “PJ”, “プロジェクト”
m_Dict.Add “仕様書”, “要件定義書兼技術仕様書”
m_Dict.Add “弊社”, “当職ら” ‘ 文脈によっては不適切だが例として
m_Dict.Add “ASAP”, “可能な限り速やかに”
m_Dict.Add “mtg”, “ミーティング”

m_IsInitialized = True
End Sub

‘ =========================================================================
‘ 本文スキャンと置換アルゴリズム
‘ =========================================================================
Private Function ProofreadMailBody(ByRef mail As Outlook.MailItem) As Boolean
Dim originalBody As String
Dim currentBody As String
Dim key As Variant
Dim modified As Boolean

modified = False

‘ HTMLメールかプレーンテキストかにより処理を分岐
‘ ※今回はプレーンテキストおよび簡易的なHTML本文を対象とする
If mail.BodyFormat = olFormatHTML Then
currentBody = mail.HTMLBody
Else
currentBody = mail.Body
End If

originalBody = currentBody

‘ 辞書を走査し、置換を実行
For Each key In m_Dict.Keys
‘ 簡易的な置換（実運用では正規表現(RegExp)を用いて単語境界を考慮すべき）
If InStr(1, currentBody, key, vbTextCompare) > 0 Then
currentBody = Replace(currentBody, key, m_Dict(key), 1, -1, vbTextCompare)
modified = True
End If
Next key

‘ 変更があった場合のみメールオブジェクトに書き戻す
If modified Then
If mail.BodyFormat = olFormatHTML Then
mail.HTMLBody = currentBody
Else
mail.Body = currentBody
End If
End If

ProofreadMailBody = modified
End Function

—

3. チーフアーキテクトが解説するコードの急所

上記のコードが一般的なVBA解説サイトのものと一線を画す理由は、以下の3点にある。

① `Scripting.Dictionary` のスコープ管理とメモリ解放

VBAにおいて、`CreateObject(“Scripting.Dictionary”)` は非常に強力だが、インスタンスの生存期間を意識しないとCOMコンポーネントのメモリリークを引き起こす。ここではモジュールレベル変数 `m_Dict` として保持し、Outlookが起動している間は辞書を再ロードしない設計（シングルトン的なアプローチ）をとることで、CPU負荷とメモリ断片化を極限まで抑制している。

② `Item` オブジェクトの厳密な型キャストと解放

`Application_ItemSend` の引数 `Item As Object` は、そのまま操作するとバインド解決のオーバーヘッドが生じる。即座に `Outlook.MailItem` へ明示的キャストを行い、処理終了時には `Set mail = Nothing` によって参照カウンタを確実にデクリメントしている。これを怠ると、Outlookのプロセスがバックグラウンドに残り続け、次回起動時のフリーズやアドイン競合の原因となる。

③ 高速な文字列走査と拡張性

今回のサンプルでは組み関数の `InStr` と `Replace` を用いているが、実業務においては正規表現エンジン（`VBScript.RegExp`）を併用し、「単語単位（Word Boundaries）」でのマッチングを行うべきである。例えば「PJ」を置換する際、「APJ」という単語の一部まで置換されてしまう誤作動を防ぐためだ。

—

4. エンタープライズ環境への展開と今後の課題

この校正エンジンを組織全体に展開する場合、辞書データをローカルコードに直書きするのは悪手である。次のようなシステム間連携へ拡張するのが、シニアエンジニアの選択となる。

• 外部データ連携: 辞書データをSharePointリストやSQL Server、あるいは社内API（JSON）から非同期で取得し、起動時または一定時間ごとに `m_Dict` を更新する仕組み。
• ログ監査: どのユーザーがどのような用語の誤用を頻発しているかをローカルのWindowsイベントログやCSVに出力し、社内ニッチなリテラシー向上施策のインプットとする。

VBAは、正しく設計され、リソースのライフサイクルがコントロールされたコードベースであれば、企業の基幹業務を支える堅牢なインフラストラクチャになり得ます。レガシーと切り捨てる前に、その底を引き出すアーキテクチャを構築してください。