こんにちは！ 普段はシステム全体のアーキテクチャ設計や、泥臭い業務自動化の裏側を支えているチーフエンジニアの先輩です。
「毎朝届く膨大なメールの山、仕分けルールを設定しても微妙に振り分けきれなくて結局手作業で仕分けている……」
そんな悩みを抱えていませんか？
Outlookの標準機能である「仕分けルール」は便利ですが、「本文の中に特定のキーワードが含まれていて、かつ外部のAIやAPIにその内容を判定させてからフォルダを振り分けたい」といった高度な要望の前には、あっさり力尽きてしまいます。
今回は、そんな「仕分けルールの限界」を突破し、VBAと外部API（今回は架空のAI判定APIを想定）を組み合わせてメールを意のままにコントロールする方法を伝授します。
ここをクリアすれば、あなたのOutlook VBAスキルは間違いなく一段上のステージに到達します。さあ、一緒に本質を学んでいきましょう！
—
なぜ「仕分けルール」では限界なのか？
Outlookの仕分けルールは、いわば「静的な条件分岐」です。
- 「件名に『請求書』が含まれていたら」
- 「差出人が『abc@example.com』だったら」
これらは非常に高速に動作しますが、「メールの本文を読み込んで、文脈を理解し、外部のシステムに問い合わせて判断する」という動的な処理は一切できません。
そこで登場するのが Outlook VBA です。VBAを使えば、メールが受信された瞬間にイベントをフックし、本文のテキストを抽出し、外部APIにJSONを投げて、そのレスポンス（結果）に応じて振り分け先を動的に決定するという、モダンな自動化パイプラインが構築できます。
—
全体像：API連携メール自動化のアーキテクチャ
今回実装する処理の流れは以下の通りです。
1. 受信イベントの捕捉 (`NewMailEx`): メールの受信をリアルタイムで検知。
2. テキスト抽出: メールの本文（Body）をごっそり取得。
3. 外部API連携 (`MSXML2.ServerXMLHTTP`): 外部の判定APIへHTTPリクエストを送信。
4. 結果に基づく振り分け: APIから返ってきた判定結果（例: “Urgent”, “Normal”, “Spam”）を解析し、対応するフォルダへ移動。
言葉で書くと難しそうに見えますが、一つひとつのパーツは怖くありません。優しく紐解いていきましょう。
—
実装ステップ：VBAコードの全体像
OutlookのVBAエディタ（`Alt + F11`）を開き、`ThisOutlookSession` モジュールに以下のコードを貼り付けてください。
> ⚠️ 注意: モジュールは「標準モジュール」ではなく、必ずOutlookの裏側で常に動いている「ThisOutlookSession」に記述してください。ここがイベントを受け取るための特等席です。
Option Explicit
‘ ==============================================================================
‘ 概要: メールの受信をフックし、本文を外部APIに送信して、判定結果に応じて
‘ 動的にフォルダを振り分けるチーフアーキテクチャ級のサンプルコード
‘ ==============================================================================
Private WithEvents InboxItems As Outlook.Items
‘ Outlook起動時に受信トレイを監視対象としてアタッチする
Private Sub Application_Startup()
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
‘ 受信トレイのアイテムコレクションを取得
Set InboxItems = ns.GetDefaultFolder(olFolderInbox).Items
MsgBox “API連携メール自動化システムが正常に稼働を開始しました。”, vbInformation, “システム起動”
‘ ここをクリアすれば、Outlook VBAの基本はバッチリですよ！
End Sub
‘ 新着メールを受信した瞬間に発火するイベント
Private Sub InboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
‘ 受信したアイテムがメールであるか確認（会議予定やタスクの誤作動を防ぐ）
If Item.Class = olMail Then
Dim mail As Outlook.MailItem
Set mail = Item
Dim subjectText As String
Dim bodyText As String
subjectText = mail.Subject
bodyText = mail.Body
‘ 1. 外部APIにテキストを投げて判定結果を取得する（疑似関数をコール）
Dim apiResult As String
apiResult = CallExternalAI_API(subjectText, bodyText)
‘ 2. 判定結果に応じたフォルダ振り分けを実行
Call MoveToDestinationFolder(mail, apiResult)
End If
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “API連携エラー”
End Sub
‘ ==============================================================================
‘ 外部API連携モジュール（例：Azure OpenAIや社内AI APIを想定）
‘ ==============================================================================
Private Function CallExternalAI_API(ByVal subj As String, ByVal bdy As String) As String
Dim http As Object
Set http = CreateObject(“MSXML2.ServerXMLHTTP.6.0”)
‘ 架空のAPIエンドポイント（実際の社内サーバーやAPIに置き換えてください）
Dim url As String
url = “https://api.example.com/v1/analyze-email”
‘ 送信用JSONの構築（簡易版）
Dim jsonPayload As String
jsonPayload = “{“”subject””:” & Chr(34) & Replace(subj, “”””, “\”””) & Chr(34) & “,” & _
“””body””:” & Chr(34) & Left(Replace(bdy, “”””, “\”””), 500) & Chr(34) & “}”
‘ HTTP POSTリクエストの送信
http.Open “POST”, url, False
http.setRequestHeader “Content-Type”, “application/json”
http.setRequestHeader “Authorization”, “Bearer YOUR_API_KEY_HERE”
‘ ※実際の通信環境に合わせてコメントアウトを外してください
‘ http.send jsonPayload
‘ — 【デモ用ダッシュボード判定】 —
‘ 本来はここで http.responseText からJSONをパースしますが、
‘ 今回は本文に「緊急」が含まれていたら “Urgent” を返すロジックにします。
If InStr(bdy, “緊急”) > 0 Then
CallExternalAI_API = “Urgent”
Else
CallExternalAI_API = “Normal”
End If
End Function
‘ ==============================================================================
‘ フォルダ移動ロジック
‘ ==============================================================================
Private Sub MoveToDestinationFolder(ByVal mail As Outlook.MailItem, ByVal category As String)
Dim ns As Outlook.NameSpace
Set ns = Application.GetNamespace(“MAPI”)
Dim targetFolder As Outlook.Folder
On Error Resume Next
‘ 判定結果によって移動先を動的に変更
If category = “Urgent” Then
‘ 受信トレイの下にある「【要対応】緊急」フォルダに移動
Set targetFolder = ns.GetDefaultFolder(olFolderInbox).Folders(“【要対応】緊急”)
Else
‘ 通常フォルダへ
Set targetFolder = ns.GetDefaultFolder(olFolderInbox).Folders(“通常案件”)
End If
On Error GoTo 0
‘ 宛先フォルダが存在する場合のみ移動を実行
If Not targetFolder Is Nothing Then
mail.Move targetFolder
Else
‘ フォルダがない場合は未分類フラグだけ立てておくなどのフォールバック
mail.Categories = “API未分類”
mail.Save
End If
End Sub
—
ジグソーパズルのピースがカチッとはまる音が聞こえましたか？
コードの重要なポイントをいくつか解説しておきます。
1. `WithEvents` によるイベントの捕捉
標準モジュールではなく `ThisOutlookSession` に `Private WithEvents InboxItems As Outlook.Items` と宣言することで、Outlookが起動している間、受信トレイを常時監視し、新しいメールが入ってきた瞬間に自動で処理をキックさせることができます。
2. `MSXML2.ServerXMLHTTP` によるAPI通信
ExcelやOutlookのVBAから外部WebサービスへJSONをPOST送信する際の定番テクニックです。社内の基幹システムやAIサービス（OpenAI APIなど）と連携することで、VBAの可能性は無限大に広がります。
—
陥りやすいエラーと回避の知見
実務でこのコードを動かす際、初心者が必ずと言っていいほど躓くポイントを先回りして解説しておきます。
- セキュリティ警告やマクロが無効化される
- 対策: Outlookの「マクロの設定」を「すべてのマクロに対して警告を表示する」にし、信頼できるデジタル署名を使うか、テスト時は「すべてのマクロを有効にする（推奨しませんが開発時は便宜上）」に設定してください。
- 「指定されたフォルダが見つからない」というエラー
- 対策: コード内で指定しているサブフォルダ（例: `【要対応】緊急`）が、Outlookの「受信トレイ」の直下に実際に存在しないとエラーになります。あらかじめ手動で作成しておきましょう。
- API呼び出しによるフリーズ（タイムアウト）
- 対策: 外部API通信を同期処理（`False`）で行うと、API側の応答が遅いときにOutlook全体が一時的にフリーズしたようになります。本番運用ではタイムアウト設定を入れるか、非同期通信の設計を検討するのがプロの技です。
—
終わりに：ここをクリアすれば、あなたはもう初心者ではない
今回は「仕分けルールの限界を超える」をテーマに、Outlook VBAと外部連携の組み合わせをご紹介しました。
単なる「マクロの記録」の貼り付けとは違い、イベントを捉え、データを加工し、外部世界（API）と通信してOutlookのオブジェクトを自在に操るという、エンジニアとしての醍醐味を味わっていただけたはずです。
ここをクリアしたあなたなら、日々のルーティンワークを自動化するだけでなく、組織の生産性を劇的に変えるシステムを自分の手で生み出すことができます。
ぜひ、あなたの環境に合わせてアレンジし、快適な自動化ライフを手に入れてくださいね！
