—
究極のInbox自動化：Outlook VBAとOpenAI APIを融合させ、メール管理を「知的自動化」せよ
世に溢れる「Outlook自動振り分けルール」の解説記事に、私は辟易している。
「特定のキーワードが含まれていたらフォルダを移動する」——そんな昭和の遺物のようなロジックで、爆発的に増加する現代のビジネスメールを捌けるわけがない。
本物のエンジニアが追求すべきは、「情報の重要度をシステムに判断させ、人間が読む前にコンテキスト（文脈）を付与する」ことだ。
今回は、Outlook VBAからOpenAI API（GPT-4o等）を叩き、受信メールをリアルタイムで要約。その結果をフラグやユーザー定義プロパティとして埋め込む、プロダクション・グレードの設計思想と実装を伝授する。
—
1. 堅牢な設計：なぜあなたのVBAは「止まる」のか
コードを書く前に、アーキテクチャの急所を理解せよ。初心者はイベントハンドラ内にすべてのロジックを詰め込むが、それは自殺行為だ。
1.1 NewMailEx イベントの選択
`NewMail` ではなく `NewMailEx` を使え。前者は複数のメールが同時に届くとイベントを取りこぼす。後者は届いたメールのEntryIDをカンマ区切りで渡してくれる。
1.2 同期通信の罠を回避せよ
VBAはシングルスレッドだ。APIレスポンスを待つ間、OutlookのUIは完全にフリーズする。
実務では、以下の3点を徹底する：
1. タイムアウトの設定: 応答がないAPIを待ち続けてOutlookを殺してはならない。
2. 文字数制限: 数万文字のメルマガをAPIに投げるのはコストと時間の無駄だ。冒頭2,000文字で十分。
3. エラーハンドリング: APIが落ちていても、通常のメール受信フローを邪魔してはならない。
—
2. 実装：AI要約エンジン・アーキテクチャ
以下のコードは、単なるサンプルではない。私が実務で導入する際にベースとする、「保守性」と「堅牢性」を担保した設計だ。
準備：JSON解析ライブラリ
VBAでJSONを扱うのは苦行だが、API連携には不可欠だ。ここでは、軽量化のために正規表現で解析する手法を採る（大規模開発なら `VBA-JSON` 等の外部ライブラリ導入を検討せよ）。
Module: `Mdl_AIProcessor` (API通信・ロジック)
Option Explicit
‘ — 設定値 —
Private Const API_KEY As String = “YOUR_OPENAI_API_KEY”
Private Const ENDPOINT As String = “https://api.openai.com/v1/chat/completions”
Private Const MAX_BODY_LENGTH As Long = 2000 ‘ 送信する最大文字数
‘ @description: メールの本文をAIに投げ、30文字程度で要約を返す
Public Function GetEmailSummary(ByVal subject As String, ByVal body As String) As String
On Error GoTo ErrorHandler
Dim cleanBody As String
cleanBody = Left(Replace(Replace(body, vbCr, ” “), vbLf, ” “), MAX_BODY_LENGTH)
‘ JSONペイロードの構築 (簡易版)
Dim payload As String
payload = “{“”model””: “”gpt-4o-mini””, “”messages””: [” & _
“{“”role””: “”system””, “”content””: “”あなたは秘書です。メールを1行(30文字以内)で要約してください。””},” & _
“{“”role””: “”user””, “”content””: “”件名: ” & subject & “\n本文: ” & cleanBody & “””}” & _
“], “”max_tokens””: 100}”
‘ HTTP通信の設定
Dim http As Object
Set http = CreateObject(“WinHttp.WinHttpRequest.5.1”)
With http
.Open “POST”, ENDPOINT, False
.SetRequestHeader “Content-Type”, “application/json”
.SetRequestHeader “Authorization”, “Bearer ” & API_KEY
.Send payload
If .Status = 200 Then
‘ 応答から要約部分を抽出 (正規表現による簡易パース)
GetEmailSummary = ExtractContent(.ResponseText)
Else
GetEmailSummary = “Summary Failed (Status: ” & .Status & “)”
End If
End With
Set http = Nothing
Exit Function
ErrorHandler:
GetEmailSummary = “System Error: ” & Err.Description
If Not http Is Nothing Then Set http = Nothing
End Function
‘ @description: APIレスポンスから要約テキストを抽出
Private Function ExtractContent(ByVal jsonText As String) As String
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
regEx.Pattern = “””content””:\s””([^””]+)”””
Dim matches As Object
Set matches = regEx.Execute(jsonText)
If matches.Count > 0 Then
ExtractContent = matches(0).SubMatches(0)
Else
ExtractContent = “Parse Error”
End If
End Function
ThisOutlookSession (イベント監視)
ここで最も重要なのは、「オブジェクトのライフサイクル管理」だ。
Option Explicit
‘ @description: 新着メール受信時に発火
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim ids() As String
Dim i As Integer
Dim ns As Outlook.NameSpace
Dim item As Object
Dim summary As String
On Error Resume Next ‘ 受信イベント自体を落とさないための安全装置
Set ns = Application.GetNamespace(“MAPI”)
ids = Split(EntryIDCollection, “,”)
For i = 0 To UBound(ids)
Set item = ns.GetItemFromID(ids(i))
‘ メールアイテムのみを対象とする
If TypeOf item Is Outlook.MailItem Then
‘ AI要約の実行
summary = Mdl_AIProcessor.GetEmailSummary(item.Subject, item.Body)
‘ 結果を反映
‘ 1. フラグ（備忘録）に要約をセット
item.FlagRequest = “【AI要約】” & summary
‘ 2. ユーザー定義プロパティに追加（後でビューに表示可能）
item.UserProperties.Add(“AISummary”, olText) = summary
‘ 3. 件名の冒頭に付与（視認性重視の場合）
‘ item.Subject = “【” & summary & “】” & item.Subject
item.Save
End If
‘ オブジェクトの解放を怠るな。これがメモリリークを防ぐ唯一の道だ。
Set item = Nothing
Next i
Set ns = Nothing
End Sub
—
3. チーフアーキテクトによる「極限の知見」
オブジェクトの参照を「握りしめるな」
VBAでOutlookを操作する際、多くのエンジニアが犯すミスは `Set item = Nothing` を忘れることだ。特に `NewMailEx` は短時間に連続して呼ばれる可能性がある。参照を解放しなければ、Outlookのプロセスが肥大化し、最終的にクラッシュする。
なぜ UserProperties を使うのか？
`Subject` を書き換えるのは、原始的な方法だ。`UserProperties` に要約を格納すれば、Outlookの表示設定（ビューの編集）から、「要約カラム」を自作して一覧表示できる。メール本来のデータを汚さずに、メタデータとして拡張する。これがプロの流儀だ。
データベース連携への拡張
もしこの要約をさらに分析したいのであれば、VBAから直接SQL ServerやSQLiteへ飛ばすことも可能だ。しかし、APIキーをコードに直書きするのは、このレベルの記事を読む諸君なら当然卒業しているはずだ。環境変数、あるいは暗号化された設定ファイルから読み込むロジックを実装せよ。
—
4. 最後に：自動化の先にあるもの
このシステムを導入すれば、未読メールの山を一つずつ開く必要はなくなる。一覧画面の「要約カラム」を走査するだけで、優先順位は一目瞭然となる。
技術は、単なる「作業の代行」ではない。「人間の認知リソースを、よりクリエイティブな決断へシフトさせるための武器」である。
君のコードで、退屈な受信トレイを「インテリジェントな意思決定プラットフォーム」に変貌させてほしい。
