【実務・中級編】【初心者向け】受信メールの本文から「受付番号」を抜き出し、件名を自動書き換えして整理する基本テクニック – Outlook VBA解析バイブル

Outlook VBA

2026.11.04

アーキテクトの思考：受信メールの「受付番号」を自動抽出・件名書き換えする堅牢な設計術

アーキテクトの思考：受信メールの「受付番号」を自動抽出・件名書き換えする堅牢な設計術

「動けばいい」というコードは、運用フェーズに入った瞬間に「負債」へと変わる。

業務自動化の現場において、Outlook VBAによるメール監視は非常に強力な武器だ。しかし、多くの初学者が作成するコードは、例外処理が欠如し、特定のフォーマットの変化に脆く、最悪の場合はOutlook自体の動作を不安定にさせる。

今回のテーマは、「受信メールから『受付番号』を抜き出し、件名を自動書き換えする」という、実務で極めてニーズの高い処理だ。しかし、私は単なる「動くコード」は教えない。プロフェッショナルとして、「なぜその設計が必要なのか」「どう書けばバグを未然に防げるのか」という、プロダクションレベルの設計思想を伝授する。

1. 設計の核心：なぜ `NewMail` ではなく `NewMailEx` なのか

初心者がまず陥る罠が、イベントの選択ミスだ。Outlook VBAにはメール受信を検知するイベントとして `NewMail` と `NewMailEx` が存在する。

多くの入門書では `NewMail` が紹介されているが、実務レベルのエンジニアは絶対に `NewMailEx` を選択する。

`NewMail` の脆弱性: メールが複数同時に届いた際、どのメールが届いたのかを正確に特定できない。インデックスのズレにより、誤ったメールを処理するリスクがある。
`NewMailEx` の堅牢性: 引数として「届いたメールの `EntryID`」を渡してくれる。つまり、「どのメールを処理すべきか」という一意の識別子（Primary Key）が保証されるのだ。

この「識別子の保証」こそが、バグのない自動化への第一歩である。

2. 文字列操作の極意：`InStr` と `Mid` を使いこなす

「受付番号：12345」といった文字列から「12345」だけを抜き出す際、最も基本的かつ強力な武器が `InStr` 関数と `Mid` 関数だ。

`InStr(String, FindString)`: 特定の文字列が、対象の文字列の「何文字目にあるか」を返す。
`Mid(String, Start, Length)`: 指定した位置から、指定した長さ分だけ文字列を切り出す。

これらを組み合わせる際、重要なのは「アンカー（錨）」の概念だ。検索対象のキーワード（例：「受付番号：」）をアンカーとし、その位置を起点に動的に切り出し位置を計算する。これにより、多少の文字数の変動があっても正確にデータを抽出できる。

3. 実装：プロダクション・グレードのコード例

以下に、堅牢な設計に基づいた実装例を示す。このコードは、クラスモジュールと標準モジュールの2段構えで構成する。

Step 1: クラスモジュール (`EventClass`) の作成

まず、イベントを捕捉するための専用クラスを作成する。

' クラス名: EventClass
Option Explicit

Public WithEvents objOutlook As Outlook.Application

' メール受信時にトリガーされるイベント
Private Sub objOutlook.NewMailEx(ByVal EntryID As String)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    
    On Error GoTo ErrorHandler
    
    ' EntryIDを使用して、届いたメールをピンポイントで特定する
    Set objItem = Session.GetItemFromID(EntryID)
    
    ' 受信アイテムがメール（MailItem）であることを確認（会議出席依頼などを除外）
    If TypeOf objItem Is Outlook.MailItem Then
        Set objMail = objItem
        
        ' メインのロジックへパス
        Call ProcessMail(objMail)
    End If
    
    Exit Sub

ErrorHandler:
    ' 実務ではここでログ出力（ファイルやDB）を行うのが鉄則
    Debug.Print "Error in NewMailEx: " & Err.Description
End Sub

Step 2: 標準モジュール (`MainModule`) の作成

次に、実際の解析ロジックを記述する。

' 標準モジュール
Option Explicit

Dim myEventClass As New EventClass

' Outlook起動時やアドイン読み込み時に実行する初期化ルーチン
Sub InitializeAutomation()
    Set myEventClass.objOutlook = Outlook.Application
    MsgBox "メール監視システムが起動しました。", vbInformation
End Sub

' 監視を停止する場合
Sub StopAutomation()
    Set myEventClass = Nothing
    MsgBox "監視を停止しました。", vbExclamation
End Sub

' メインロジック：メールの解析と書き換え
Sub ProcessMail(ByRef objMail As Outlook.MailItem)
    Dim strBody As String
    Dim strSubject As String
    Dim strAnchor As String
    Dim intPos As Long
    Dim strOrderNo As String
    
    ' 設定：抽出したいキーワード（アンカー）
    strAnchor = "受付番号："
    
    On Error GoTo ErrorHandler
    
    strBody = objMail.Body
    strSubject = objMail.Subject
    
    ' 1. 本文中にアンカーが存在するか確認
    intPos = InStr(1, strBody, strAnchor)
    
    If intPos > 0 Then
        ' 2. アンカーの直後から、数値部分を抽出するロジック
        ' ここでは「受付番号：」の直後から、改行またはスペースまでを抜き出す想定
        Dim intStart As Long
        Dim intEnd As Long
        
        intStart = intPos + Len(strAnchor)
        
        ' 次の改行コード(vbCrLf)の位置を探す
        intEnd = InStr(intStart, strBody, vbCrLf)
        
        ' 改行が見つからない場合は、文字列の末尾までを対象とする
        If intEnd = 0 Then intEnd = Len(strBody) + 1
        
        ' 文字列を切り出し、前後の不要な空白を削除(Trim)
        strOrderNo = Trim(Mid(strBody, intStart, intEnd - intStart))
        
        ' 3. 件名の書き換え
        ' すでに受付番号が件名に含まれていないかチェック（二重処理防止）
        If InStr(1, strSubject, strOrderNo) = 0 Then
            objMail.Subject = "[" & strOrderNo & "] " & strSubject
            
            ' 【重要】変更を保存しない限り、件名は書き換わらない
            objMail.Save
            Debug.Print "Success: " & strOrderNo & " を抽出、件名を更新しました。"
        End If
    Else
        Debug.Print "Skip: 受付番号が見つかりませんでした。"
    End If
    
    Exit Sub

ErrorHandler:
    ' 業務システムでは、ここでエラー内容をテキストファイルに書き出す等の処理を検討せよ
    Debug.Print "Error in ProcessMail: " & Err.Description
End Sub

4. プロフェッショナルが守るべき「鉄の掟」

コードを書いた後、以下の3点を自問自答せよ。これができていなければ、そのコードはプロダクションに投入してはならない。

① `objMail.Save` を忘れていないか？

VBAのオブジェクト操作において、プロパティ（Subjectなど）を変更しただけでは、メモリ上のデータが変わるだけで、Outlookのデータベース（MAPIストア）には反映されない。`Save` メソッドを呼び出すことは、変更を確定させる「コミット」操作である。

② 二重処理のガードレールはあるか？

自動化ツールは、予期せぬタイミングで再実行されることがある。件名にすでに番号が入っている場合に、再度 `[番号] [番号] 件名` となってしまうような設計は、ゴミのようなデータを量産する。`If InStr(strSubject, strOrderNo) = 0` のような重複チェックは必須だ。

③ エラーハンドリングは「沈黙」させないか？

`On Error Resume Next` を多用するのは、エンジニアとしての怠慢だ。エラーが起きた際、なぜ失敗したのか（メールがロックされていたのか、フォーマットが変わったのか）を、ログとして残す設計にせよ。ファイルへの書き出し、あるいは専用のログ用メール送信など、「エラーの可視化」こそが保守性を担保する。

結びに代えて

自動化とは、単に「人間がやる作業を機械に押し付けること」ではない。「不確実なデータ入力を、確実な構造化データへと変換するプロセスを設計すること」である。

今回学んだ `NewMailEx` による識別、`InStr/Mid` による精密な抽出、そして `Save` による確定。これらは、あなたがより大規模で複雑なシステムを構築するための、揺るぎない基礎となる。

次は、この抽出した番号をデータベース（AccessやSQL Server）へ流し込む設計に挑戦してほしい。そこには、さらに深いアーキテクチャの世界が待っている。