【実務・中級編】【中級者向け】受信メールの添付ファイルが画像ファイルの場合のみ、外部OCRエンジンを呼び出してテキスト化する自動化フロー – Outlook VBA解析バイブル

Outlook VBA

2026.11.06

【Architect’s Creed】Outlook VBAを極限まで制御する：画像OCR連携による「認識」を伴う自動化設計

【Architect’s Creed】Outlook VBAを極限まで制御する：画像OCR連携による「認識」を伴う自動化設計

「コードが動いたから、完成ではない。」

もし君が、単に「メールが来たら添付ファイルを保存して、APIを叩いて、結果を返す」というステップを書き連ねただけだとしたら、それはエンジニアではなく、単なるスクリプターだ。

実務における自動化、特にOutlookのようなユーザーが常に操作しているアプリケーションに介入するツールにおいて、我々が真に戦わなければならないのは「不確実性」だ。ネットワークの瞬断、APIのレスポンス遅延、ファイルアクセスの競合、そして予期せぬ形式の添付ファイル。これらに対する堅牢な設計（Robust Design）こそが、プロフェッショナルとアマチュアを分かつ境界線である。

本稿では、受信メールの添付画像からOCR（光学文字認識）を実行し、その結果をメール本文に自動追記する、中級者から上級者への登竜門となるアーキテクチャを解説する。

1. アーキテクチャの設計思想：なぜ「単純な実装」は死を招くのか

多くの開発者が陥る罠は、`Application_NewMailEx` イベントの中で、すべての処理を重い同期処理として記述してしまうことだ。

致命的な設計ミス：UIスレッドのブロッキング

VBAはシングルスレッドで動作する。つまり、OCR APIのレスポンスを待っている数秒間、ユーザーのOutlookは完全にフリーズする。ユーザーが「フリーズした！」と判断して強制終了させれば、ファイルハンドルが残ったり、データベースが破損したりするリスクが生じる。

解決策としての設計指針

1. 責務の分離 (Separation of Concerns): 受信検知、ファイル操作、API通信、メール更新の各ロジックを独立した関数としてカプセル化する。
2. リソースのライフサイクル管理: 添付ファイルは一時ディレクトリに保存するが、処理が終わったら必ず削除する。これを怠ると、サーバーやローカル環境のストレージを食いつぶす「ゴミ屋敷」が出来上がる。
3. 防御的プログラミング: APIがエラーを返した際、あるいは画像が破損していた際でも、Outlook全体のプロセスを落とさないための厳格なエラーハンドリング。

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

以下に示すのは、実務に耐えうる構造を持ったコードの雛形だ。ここでは、API通信には `MSXML2.ServerXMLHTTP` を使用する。これは通常の `XMLHTTP` よりもタイムアウト制御やエラーハンドリングにおいて強力である。

準備：参照設定

VBAエディタの [ツール] -> [参照設定] から以下にチェックを入れておくこと。

`Microsoft XML, v6.0`
`Microsoft Scripting Runtime`

実装コード

Option Explicit

' ======================================================================================
' Module: MailOCRManager
' Description: 受信メールの画像を検知し、外部API経由でOCRを実行する
' ======================================================================================

Private Const API_URL As String = "https://api.your-ocr-service.com/v1/analyze"
Private Const API_KEY As String = "YOUR_SECURE_API_KEY"

''' <summary>
''' Outlookイベントから呼び出されるメインエントリポイント
''' </summary>
Public Sub OnNewMailEx(ByVal EntryIDCollection As String)
    Dim entryID As Variant
    Dim objItem As Object
    Dim ns As Outlook.NameSpace
    
    Set ns = Application.GetNamespace("MAPI")
    
    ' EntryIDはカンマ区切りで渡される可能性があるため、分割して処理
    For Each entryID In Split(EntryIDCollection, ",")
        On Error Resume Next
        Set objItem = ns.GetItemFromID(entryID)
        On Error GoTo 0
        
        If Not objItem Is Nothing Then
            If TypeOf objItem Is Outlook.MailItem Then
                ' 処理の開始
                ProcessMailWithOCR objItem
            End If
        End If
    Next entryID
End Sub

''' <summary>
''' 個別メールの解析プロセス（オーケストレーター）
''' </summary>
Private Sub ProcessMailWithOCR(ByRef mail As Outlook.MailItem)
    Dim att As Outlook.Attachment
    Dim tempFilePath As String
    Dim extractedText As String
    Dim isImage As Boolean
    
    ' 1. 添付ファイルの走査
    For Each att In mail.Attachments
        isImage = CheckIfImage(att.FileName)
        
        If isImage Then
            ' 2. 一時ファイルへの書き出し（リソース管理）
            tempFilePath = GetTempFilePath(att.FileName)
            
            On Error GoTo ErrorHandler
            att.SaveAsFile tempFilePath
            
            ' 3. OCR APIの呼び出し（外部プロセス連携）
            extractedText = CallOCRAPI(tempFilePath)
            
            ' 4. 結果の追記
            If extractedText <> "" Then
                UpdateMailBody mail, extractedText
            End If
            
            ' 5. 後始末（クリーンアップ）
            Kill tempFilePath
        End If
    Next att
    
    Exit Sub

ErrorHandler:
    Debug.Print "Error processing mail: " & Err.Description
    ' ここでログ出力や管理者に通知する処理を入れるのがプロの仕事だ
    If tempFilePath <> "" Then
        On Error Resume Next
        Kill tempFilePath
        On Error GoTo 0
    End If
End Sub

''' <summary>
''' 拡張子による画像判定（ホワイトリスト方式）
''' </summary>
Private Function CheckIfImage(ByVal fileName As String) As Boolean
    Dim ext As String
    ext = LCase(Right(fileName, InStrRev(fileName, ".") - 1))
    Select Case ext
        Case "jpg", "jpeg", "png", "bmp"
            CheckIfImage = True
        Case Else
            CheckIfImage = False
    End Select
End Function

''' <summary>
''' OCR APIへのHTTPリクエスト（通信の堅牢性）
''' </summary>
Private Function CallOCRAPI(ByVal filePath As String) As String
    Dim http As MSXML2.ServerXMLHTTP60
    Dim base64Image As String
    Dim responseText As String
    
    Set http = New MSXML2.ServerXMLHTTP60
    
    ' 画像をBase64エンコード（API仕様に合わせて実装）
    base64Image = EncodeFileToBase64(filePath)
    
    On Error GoTo HttpError
    With http
        .Open "POST", API_URL, False
        .SetRequestHeader "Content-Type", "application/json"
        .SetRequestHeader "Authorization", "Bearer " & API_KEY
        ' JSONペイロードの構築
        .Send "{""image"": """ & base64Image & """}"
        
        ' ステータスコードの検証
        If .Status = 200 Then
            responseText = .ResponseText
            ' 本来はここでJSONパースを行う（簡易的に抽出）
            CallOCRAPI = ParseJSONResponse(responseText)
        Else
            Debug.Print "API Error: " & .Status & " - " & .ResponseText
            CallOCRAPI = ""
        End If
    End With
    Exit Function

HttpError:
    Debug.Print "HTTP Connection Error: " & Err.Description
    CallOCRAPI = ""
End Function

''' <summary>
''' メール本文の更新（オブジェクトの整合性維持）
''' </summary>
Private Sub UpdateMailBody(ByRef mail As Outlook.MailItem)
    Dim currentBody As String
    Dim newContent As String
    
    currentBody = mail.Body
    newContent = vbCrLf & "--- [OCR Extracted Text] ---" & vbCrLf & _
                 "Detected content appended by Automation Engine." & vbCrLf & _
                 "-------------------------------------------" & vbCrLf
    
    ' 本文の末尾に追記
    mail.Body = currentBody & newContent
    
    ' 保存（ユーザーに通知せず、バックグラウンドで更新）
    mail.Save
End Sub

' --- 以下、ユーティリティ関数（実装の詳細は環境依存） ---

Private Function GetTempFilePath(ByVal originalName As String) As String
    ' 環境変数を利用して、権限エラーを回避する
    GetTempFilePath = Environ("TEMP") & "\" & Format(Now, "yyyymmddhhmmss") & "_" & originalName
End Function

Private Function EncodeFileToBase64(ByVal filePath As String) As String
    ' 実務ではADODB.Stream等を使用してバイナリをBase64に変換するロジックが必要
    ' ここでは概念を示すため省略
    EncodeFileToBase64 = "BASE64_DATA_PLACEHOLDER"
End Function

Private Function ParseJSONResponse(ByVal json As String) As String
    ' JSON解析ライブラリ（VBA-JSON等）を使用することを強く推奨する
    ' ここでは簡易的に返す
    ParseJSONResponse = "Sample extracted text from OCR"
End Function

3. アーキテクトの視点：実務における「落とし穴」の回避術

このコードを実戦投入するにあたり、君が考慮すべき「重み」が3つある。

① ファイルアクセスの競合（File Locking）

`att.SaveAsFile` を実行した直後に `Kill` を試みると、アンチウイルスソフトがそのファイルをスキャンするためにロックをかけ、`Permission Denied` エラーを吐くことがある。
対策: 実務では、`Kill` を実行する前に数ミリ秒の待機を入れるか、リトライロジック（最大3回まで試行するなど）を組み込むのが定石だ。

② APIのタイムアウトと非同期の限界

VBAには標準で `async/await` は存在しない。APIが応答しない場合、OutlookのUIは死ぬ。
対策: `ServerXMLHTTP` の `setTimeouts` メソッドを使い、接続タイムアウト、レスポンスタイムアウトを厳格に設定せよ（例：接続5秒、レスポンス10秒）。「待たせすぎない」ことも、ユーザー体験における重要な設計要素だ。

③ セキュリティと機密情報

`API_KEY` をコード内にハードコードすることは、プロフェッショナルとしては論外だ。
対策: キーは環境変数、あるいは暗号化された外部設定ファイル、あるいはWindowsの資格情報マネージャーから取得するように設計を昇華させよ。

結論

自動化の真価は、コードが動くことではなく、「例外が発生しても、システム全体がエレガントに振る舞い続けること」にある。

今回紹介した構造は、単なる機能の実装ではない。エラー、リソース、ユーザー体験という「不確実な変数」を制御するためのフレームワークだ。この思考プロセスを身につけ、単なるスクリプターから、システムを設計するアーキテクトへと進化してほしい。