Outlook VBAを掌握する：正規表現でメールを操る「自動振り分け」の極意
こんにちは。現場で泥臭い自動化と向き合い続け、VBAの深淵を覗いてきたエンジニアです。
「マクロの記録」から卒業し、自力でコードを書こうとしているあなた。素晴らしい選択です。しかし、Outlook VBAの世界には、Webの検索結果をそのままコピペしても動かない、あるいは「動くけれどシステムを重くする」罠がいくつも潜んでいます。
今回は、単なる文字列検索を超えた「正規表現による高度なメール自動振り分け」という、実務で最も要望が多く、かつ最も差がつく領域を攻略します。
—
1. なぜ「正規表現」が必要なのか？
単純な検索（`InStr`関数など）は、「注文番号：12345」という文字列を探すことはできます。しかし、「注文番号：」の後に続く5桁の数字が毎回変わる場合、あるいは「日付」や「特定のID」を動的に抽出したい場合、単純検索では限界が来ます。
ここで正規表現（Regular Expression）の出番です。
正規表現を使えば、「任意の5桁の数字」「YYYY/MM/DD形式の日付」といった「パターン」でメールを捕捉できます。
—
2. 準備：VBScriptの正規表現ライブラリを呼び出す
VBAで正規表現を扱うには、Windows標準の「Microsoft VBScript Regular Expressions 5.5」を参照設定する必要があります。
1. VBAエディタ（Alt + F11）を開く。
2. メニューの「ツール」→「参照設定」をクリック。
3. リストから 「Microsoft VBScript Regular Expressions 5.5」 にチェックを入れてOK。
※これを行わないと、コンパイルエラーで止まります。プロの第一歩は「環境の整備」からです。
—
3. 実践：正規表現を用いた自動振り分けロジック
以下は、`Items.ItemAdd` イベントを活用し、受信したメールをリアルタイムで解析するエンジンです。
‘ ThisOutlookSession モジュールに記述してください
Private WithEvents objInboxItems As Items
Private Sub Application_Startup()
‘ Outlook起動時に受信トレイを監視対象に設定
Set objInboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
‘ 監視対象がメール以外（会議出席依頼など）の場合は無視する「防御的プログラミング」
If TypeOf Item Is MailItem Then
Call AutoSortMail(Item)
End If
End Sub
Private Sub AutoSortMail(ByVal mail As MailItem)
Dim regEx As Object
Dim matches As Object
Dim targetFolder As MAPIFolder
‘ 正規表現オブジェクトの生成
Set regEx = CreateObject(“VBScript.RegExp”)
‘ パターン設定：例として「注文番号: 12345」の数字部分を抽出
regEx.Pattern = “注文番号:\s(\d{5})”
regEx.IgnoreCase = True ‘ 大文字小文字を区別しない
regEx.Global = True
If regEx.Test(mail.Body) Then
Set matches = regEx.Execute(mail.Body)
‘ 抽出した注文番号を使ってフォルダ名を動的に決定
Dim orderNum As String
orderNum = matches(0).SubMatches(0)
‘ フォルダが存在するか確認し、移動させる（エラーハンドリングは省略）
On Error Resume Next
Set targetFolder = Session.GetDefaultFolder(olFolderInbox).Folders(orderNum)
If Not targetFolder Is Nothing Then
mail.Move targetFolder
mail.FlagStatus = olFlagMarked ‘ 重要な案件としてフラグを立てる
End If
On Error GoTo 0
End If
End Sub
—
4. 陥りやすいエラーとパフォーマンスへの配慮
① 「メモリリーク」を意識せよ
`ItemAdd` イベントは、メールが届くたびに発火します。もし処理の中で重いループを回したり、無限ループ（メールを移動させる→その移動が別のイベントを引き起こす）に陥ると、Outlookがフリーズします。
- 対策: `Application.EnableEvents = False` を活用して、処理中の予期せぬ多重起動を防ぐ設計が理想です。
② なぜ `WithEvents` を使うのか？
マクロの記録から脱却する際、多くの人が「ボタンを押してマクロを実行」しますが、真のエンジニアは「イベント駆動」を使います。`Application_Startup` で監視を開始するこの構造こそが、自動化の骨格です。
③ 正規表現の「欲張り」に注意
`.` のようなワイルドカードを不用意に使うと、マッチング処理が指数関数的に遅くなります。正規表現は「最小限の範囲で」マッチさせるのが、プロの嗜みです。
—
最後に：ここをクリアすれば「中級者」です
このロジックを理解できれば、あなたはもう単なる「VBAユーザー」ではありません。「メールという非構造化データを、データベースのように扱う設計者」です。
次は、移動先のフォルダを自動作成するロジックや、抽出したデータをExcelに転記する処理を組み込んでみてください。Outlook VBAの可能性は、あなたの工夫次第で無限に広がります。
何かエラーが出たり、ロジックに行き詰まったら、いつでも戻ってきてください。コードは裏切りません。応援していますよ。
