Outlook VBAを掌握する極限の知見：HTMLメール浄化と正規表現テキスト抽出のアーキテクチャ
レガシーシステムの呪縛か、あるいは巨大な社内インフラの遺産か。未だに企業の基幹系データ連携の最前線では、Microsoft Outlookが巨大なメッセージングハブとして君臨している。
VBA（Visual Basic for Applications）によるOutlook自動化は、一見すると陳腐なスクopiningに思われがちだ。しかし、数万件のHTMLメールから正確にテキストを抽出し、データベースへ流し込むパイプラインを構築する際、オブジェクトのライフサイクル管理とDOM解析の泥臭い現実を知る者でなければ、確実にメモリリークと文字化けの地雷を踏み抜くことになる。
今回は、Outlookの`Body`と`HTMLBody`の闇、そして正規表現を用いた極限のテキストクリーニング技術について、現場のアーキテクトへ向けて一切の妥協なく解説する。
—
1. 根本原因の理解：`Body`と`HTMLBody`の乖離とWordエンジン
Outlookのメールアイテムには、プレーンテキストを保持する`Body`プロパティと、MIME構造を内包したHTMLソースを保持する`HTMLBody`プロパティが存在する。
素朴なエンジニアは、「`HTMLBody`からタグを取り除けばプレーンテキストになる」と考えがちだ。しかし、ここにはOutlook特有の罠がある。Outlookの内部レンダリングエンジンは、あのMicrosoft Wordである。つまり、`HTMLBody`を取得・設定する際、WordのHTMLフィルタリング機構が働き、独自のVML（Vector Markup Language）やMso特有のスパゲッティコードが自動挿入される。
さらに、`Body`プロパティに文字列を代入すると、Outlookは自動的にHTMLBodyを再構築するが、その逆もまた然りである。この双方向の暗黙の変換コストは、大量処理時においてパフォーマンスの深刻なボトルネックとなる。
オブジェクトのライフサイクルとメモリ最適化の鉄則
VBAランタイムのガベージコレクションは極めて脆弱だ。特にOutlookのCOMオブジェクト階層（`Application` -> `NameSpace` -> `MAPIFolder` -> `MailItem`）において、変数の解放を怠ると、背後でプロセス（`OUTLOOK.EXEゴースト`）が残留し、メモリリークを引き起こす。
大規模バッチ処理では、以下の原則を厳守せよ。
1. ループ内でのオブジェト生成・解放の排除：ドットつなぎ（`Item.Parent.Name`など）の多用は暗黙の参照を生成し、解放不能なポインターを残す。
2. 明示的な `Nothing` 代入：参照を切る順序は、生成の逆順（末端のオブジェクトから順に）。
—
2. 実装：正規表現によるHTMLクリーニングとテキスト抽出エンジン
以下に、実務の現場で耐えうる堅牢性を備えた、HTMLメール浄化モジュールのコードを示す。
VBA標準の`VBScript.RegExp`を用い、不要なタグ、スタイルシート、コメント、そしてHTMLエンティティを完璧に剥ぎ取る。
Option Explicit
‘ =================================================================================
‘ 圧倒的な正確性を誇るHTMLメール・テキスト抽出エンジン
‘ =================================================================================
Public Sub ExtractCleanTextFromMail(ByVal targetItem As Object)
Dim htmlSource As String
Dim extractedText As String
‘ 型安全性の担保（MailItem以外、例えばMeetingItemなどの混入を防ぐ）
If TypeName(targetItem) <> “MailItem” Then Exit Sub
‘ HTMLBodyが存在しない場合（純粋なプレーンテキストメール）のフォールバック
If targetItem.HTMLBody = “” Then
extractedText = targetItem.Body
Else
htmlSource = targetItem.HTMLBody
extractedText = CleanHtmlToText(htmlSource)
End If
‘ デバッグ出力（実運用ではここでDB書き込みやファイル出力を行う）
Debug.Print “— 抽出結果 —”
Debug.Print Left(extractedText, 500) ‘ 先頭500文字
‘ ※注意: targetItem自体はこのプロシージャの呼び出し元で適切に解放すること
End Sub
‘ =================================================================================
‘ コア・クリーニング関数（RegExpエンジン実装）
‘ =================================================================================
Private Function CleanHtmlToText(ByVal html As String) As String
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
.Global = True
.IgnoreCase = True
.MultiLine = True
‘ 1.
