【実務・中級編】【中級者向け】受信メールの添付ファイルが画像のみの場合、OCR処理を呼び出し本文に追記する自動化 – Outlook VBA解析バイブル

視覚情報をデータへ昇華せよ：Outlook VBAによる「画像添付メール」のOCR自動解析アーキテクチャ

業務自動化の現場において、「メールをフォルダ分けする」程度の自動化はもはや通過点に過ぎない。真に価値のあるエンジニアが構築すべきは、「情報の意味を理解し、構造化データへと変換する」パイプラインである。

特に、請求書、スクリーンショット、あるいは現場からの写真など、「画像の中にしか重要な情報が存在しないメール」は、従来のテキストベースの自動化では「ブラックボックス」として放置されてきた。

本稿では、Outlook VBAを起点とし、Windows標準のOCRエンジンをブリッジさせて、画像添付メールを「読めるテキスト」へと自動変換・追記する、プロダクショングレードの設計手法を伝授する。

1. なぜ、あなたの自動化は「脆い」のか：設計思想の転換

多くの開発者が陥る罠がある。それは、`Items.ItemAdd` イベントを利用し、単純な `If` 文で添付ファイルを判定しようとすることだ。これは極めて危険な設計である。

陥りやすい3つの致命的な欠陥

1. イベント・ストーム（Event Storm）への無防備:
大量のメールが短時間に受信された際、同期的な処理を行っているとOutlookのメインスレッドをブロックし、アプリケーションのフリーズや、最悪の場合、イベントの取りこぼしを発生させる。
2. 添付ファイルの「判定ロジック」の甘さ:
「画像が含まれているか」ではなく、「画像のみであるか」を厳密に判定しなければ、PDFなどの重要なドキュメントをOCR処理の対象外にする、あるいは誤作動させる原因となる。
3. オブジェクト・ライフサイクルの無視:
`MailItem` オブジェクトは、イベント発生直後に参照が外れる可能性がある。参照を適切に保持（Hold）し、プロパティを書き換える際の `Save` メソッドのタイミングを誤ると、データの整合性が崩れる。

我々が目指すべきは、「非同期的なトリガー」と「厳格なフィルタリング」、そして「外部エンジンへの委譲」を組み合わせた、疎結合なアーキテクチャである。

2. 実装アーキテクチャ：VBA × PowerShell ハイブリッド・アプローチ

VBA単体では、現代的なOCR（Optical Character Recognition）エンジンを直接制御することは不可能に近い。ここで、プロフェッショナルはPowerShellをブリッジとして活用する。

Windows 10/11に標準搭載されている `.NET Windows.Media.Ocr` をPowerShell経由で呼び出すことで、追加のライセンス費用なしに、極めて高精度なOCRを実装できる。

全体フロー

1. Outlook VBA: `NewMailEx` イベントで新規メールを検知。
2. VBA Logic: 添付ファイルが「画像のみ」であることを判定。
3. PowerShell Bridge: 画像パスを引数としてPowerShellを非同期実行。
4. OCR Engine: PowerShellが画像を解析し、テキストを標準出力（Stdout）へ返す。
5. VBA Update: 返ってきたテキストをメール本文（Body）の末尾に追記し、保存。

3. プロダクション・コード：堅牢な実装例

以下に、実務に投入可能なレベルのコードを示す。

A. Outlook VBA（Class Module または ThisOutlookSession）

`NewMailEx` を使用する。これは `EntryID` を直接渡してくれるため、大量受信時でも確実に特定のアイテムを特定できる。

' --- ThisOutlookSession ---
Option Explicit

Private Sub Application_NewMailEx(ByVal EntryID As String)
    Dim olItem As Object
    Dim mail As Outlook.MailItem
    
    On Error GoTo ErrorHandler
    
    ' 1. オブジェクトの取得と型チェック
    Set olItem = Application.GetNamespace("MAPI").GetItemFromID(EntryID)
    
    If TypeOf olItem Is Outlook.MailItem Then
        Set mail = olItem
        
        ' 2. 添付ファイルが「画像のみ」か判定
        If IsOnlyImageAttachments(mail) Then
            ' 3. OCR処理の実行（プロセスを分離して呼び出し）
            ProcessOCR mail
        End If
    End If
    
    Set mail = Nothing
    Exit Sub

ErrorHandler:
    Debug.Print "Error in NewMailEx: " & Err.Description
    ' 本番環境ではログファイルへの書き出しを推奨
End Sub

''' <summary>
''' 添付ファイルがすべて画像形式（jpg, png, bmp等）であるかを判定する
''' </summary>
Private Function IsOnlyImageAttachments(ByRef mail As Outlook.MailItem) As Boolean
    Dim att As Outlook.Attachment
    Dim ext As String
    Dim imgCount As Integer
    
    If mail.Attachments.Count = 0 Then
        IsOnlyImageAttachments = False
        Exit Function
    End If
    
    imgCount = 0
    For Each att In mail.Attachments
        ext = LCase(GetExtension(att.FileName))
        ' 主要な画像拡張子を定義
        Select Case ext
            Case "jpg", "jpeg", "png", "bmp", "tif", "tiff"
                imgCount = imgCount + 1
            Case Else
                ' 画像以外のファイルが見つかった時点でFalse
                IsOnlyImageAttachments = False
                Exit Function
        End Select
    Next att
    
    ' 全ての添付ファイルが画像であり、かつ1つ以上存在する場合
    IsOnlyImageAttachments = (imgCount > 0 And imgCount = mail.Attachments.Count)
End Function

''' <summary>
''' PowerShellを介してOCRを実行し、結果をメール本文に追記する
''' </summary>
Private Sub ProcessOCR(ByRef mail As Outlook.MailItem)
    Dim att As Outlook.Attachment
    Dim tempPath As String
    Dim psCommand As String
    Dim shell As Object
    Dim exec As Object
    Dim ocrText As String
    Dim fullCommand As String
    
    Set shell = CreateObject("WScript.Shell")
    
    For Each att In mail.Attachments
        ' 一時フォルダに保存（解析用）
        tempPath = Environ("TEMP") & "\" & att.FileName
        att.SaveAsFile tempPath
        
        ' PowerShellコマンドの構築 (Windows.Media.Ocrを利用)
        ' ※複雑なロジックはPowerShellスクリプトファイル(.ps1)として外出しするのがベストだが、
        ' ここでは単一ファイルで動くようインラインで記述する。
        fullCommand = "powershell -ExecutionPolicy Bypass -Command ""& {" & _
            "$path = '" & tempPath & "';" & _
            "$image = [Windows.Graphics.Imaging.BitmapDecoder, Windows.Graphics.Imaging, ContentType=WindowsRuntime]::CreateAsync($path).GetAwaiter().GetResult();" & _
            "$ocr = [Windows.Media.Ocr.OcrEngine, Windows.Media.Ocr, ContentType=WindowsRuntime]::TryCreateFromUserProfileLanguages();" & _
            "$text = $ocr.RecognizeAsync($image).GetAwaiter().GetResult();" & _
            "Write-Output $text.Text" & _
            "}"""
        
        ' コマンド実行（同期実行により結果を待機）
        ' ※パフォーマンスが極めて重要な場合は、実行後に結果を回収する非同期設計へ変更すべき
        Set exec = shell.Exec(fullCommand)
        ocrText = exec.StdOut.ReadAll
        
        ' 4. メール本文への追記
        If Len(Trim(ocrText)) > 0 Then
            mail.HTMLBody = mail.HTMLBody & "<br><hr><p style='color:blue;'><b>[OCR解析結果]:</b><br>" & _
                            Replace(ocrText, vbCrLf, "<br>") & "</p>"
            mail.Save
        End If
        
        ' 一時ファイルの削除
        Kill tempPath
    Next att
End Sub

Private Function GetExtension(ByVal fileName As String) As String
    Dim pos As Integer
    pos = InStrRev(fileName, ".")
    If pos > 0 Then
        GetExtension = Mid(fileName, pos + 1)
    Else
        GetExtension = ""
    End If
End Function

4. プロフェッショナルのための「運用上の注意点」

このコードを実務に投入する際、あなたは以下の3点について責任を持つ必要がある。

① セキュリティ・ポリシーの壁

多くの企業環境では、VBAからのPowerShell呼び出し（`WScript.Shell`）や、PowerShellの実行ポリシー（`ExecutionPolicy`）が制限されている。導入前に、IT部門に対して「Windows標準機能を用いた画像解析の自動化」としての正当性を説明し、許可を得る必要がある。

② エラーハンドリングの「深さ」

上記のコードは簡略化のために `On Error GoTo ErrorHandler` を用いているが、本番環境では「どの添付ファイルで失敗したのか」「OCRエンジンが言語を認識できなかったのか」を、独自のログファイル（CSV等）に書き出す仕組みを必ず実装せよ。

③ パフォーマンスの最適化

`shell.Exec` は、コマンドが終了するまでVBAの実行をブロックする。もし、1分間に数十通の画像メールが届くような環境であれば、この同期処理は致命的だ。その場合は、VBAは「解析依頼リスト（CSV等）」に情報を書き出すだけにとどめ、別途バックグラウンドで動作する常駐型スクリプトがそのリストを消化していく「キューイング・モデル」へ設計変更することを検討すべきだ。

結論

「画像のみのメール」をテキスト化する。この一見小さな自動化は、情報の非構造化問題に対する強力なアンサーとなる。
単にコードを書くのではない。オブジェクトの挙動を理解し、OSの機能を最大限に引き出し、エラーの発生を予見した設計を行うこと。それこそが、エンジニアリングの本質である。