Outlookの仕分けルールに限界を感じたあなたへ。VBAで「メールの知能」を覚醒させる極意
こんにちは。現場で泥臭い自動化を積み重ね、数千通のメールに埋もれる日々を卒業させたエンジニアです。
Outlookの「仕分けルール」機能、便利ですよね。でも、実務でこんな壁にぶつかったことはありませんか？
「件名や差出人だけじゃ判別できない……。本文中の特定のIDや、数行目に書かれたステータスを見て、自動でフォルダを振り分けたい」
標準機能では「本文の内容」を読み解くことはできません。しかし、VBAを使えば、Outlookに「読解力」を持たせることができます。
今日は、マクロの記録から一歩踏み出し、あなたの代わりにメールを「選別」してくれる頼れる相棒を一緒に作りましょう。
—
1. Outlook VBAの「心臓部」を理解する
まずは、コードを書く前に「どこで何が起きているか」を地図として頭に入れてください。Outlookのオブジェクトモデルは、階層構造になっています。
- Application: Outlookそのもの。すべての起点です。
- NameSpace (Session): プロファイルやフォルダへの入り口。
- MAPIFolder: メールが入っている「箱」。
- MailItem: 届いたメールそのもの。本文、件名、差出人などの情報を持ちます。
これらを操ることは、「秘書に指示を出す」のと全く同じです。「受信トレイ」という箱から、「手紙」を一枚ずつ取り出し、「本文にAという文字があれば、Bフォルダへ移せ」と命令する。これがVBAの基本ロジックです。
—
2. 実装：本文を解析してフォルダを振り分けるコード
それでは、実際に動くコードを見てみましょう。今回のミッションは「本文の中に『注文ID:』という文字列があれば、そのIDが含まれるフォルダにメールを移動させる」という高度な仕分けです。
準備
1. Outlookで `Alt + F11` を押してVBAエディタを開きます。
2. `ThisOutlookSession` に以下のコードを貼り付けてください。
Public Sub SortEmailsByBodyContent()
Dim olApp As Outlook.Application
Dim olNamespace As Outlook.NameSpace
Dim inbox As Outlook.MAPIFolder
Dim targetFolder As Outlook.MAPIFolder
Dim item As Object
Dim mail As Outlook.MailItem
Dim bodyText As String
Set olApp = Outlook.Application
Set olNamespace = olApp.GetNamespace(“MAPI”)
Set inbox = olNamespace.GetDefaultFolder(olFolderInbox)
‘ 受信トレイ内のアイテムを一つずつループ処理
For Each item In inbox.Items
‘ メール以外のアイテム（予定表の通知など）を弾く
If TypeOf item Is MailItem Then
Set mail = item
bodyText = mail.Body
‘ 「注文ID:」という文字列が含まれているか判定
If InStr(bodyText, “注文ID:”) > 0 Then
‘ ※事前に「注文管理」というフォルダを作っておいてください
On Error Resume Next ‘ フォルダがない場合のエラー回避
Set targetFolder = inbox.Folders(“注文管理”)
On Error GoTo 0
If Not targetFolder Is Nothing Then
mail.Move targetFolder ‘ 指定フォルダへ移動
End If
End If
End If
Next item
MsgBox “仕分け作業が完了しました。”
End Sub
—
3. なぜこのコードが「現場」で強いのか？
このコードには、初心者が陥りがちな「罠」を避ける工夫が詰まっています。
- TypeOfの判定: メール以外（会議出席依頼など）が混ざると、プログラムは平気でクラッシュします。`TypeOf item Is MailItem` で、対象が「手紙」であることを確認してから処理を始めるのがプロの作法です。
- On Error Resume Nextの賢い使い方: フォルダが存在しない場合にプログラムが止まらないよう、例外処理を局所的に入れています。これにより、安定して動き続ける「堅牢なコード」になります。
- InStr関数: 文字列の中から特定の文字を探すための最強のツールです。これ一つで、正規表現のような複雑なことをしなくても、実務上の大半の判別は事足ります。
—
4. 陥りやすいエラーと対策
よくある質問をQ&A形式で置いておきますね。
Q. 「オブジェクトがありません」というエラーが出ます。
A. `inbox.Folders(“注文管理”)` の部分で、指定した名前のサブフォルダが受信トレイ配下に存在しないことが原因です。プログラムが迷子にならないよう、フォルダ名は正確に一致させてください。
Q. 実行しても何も起きません。
A. メールが既に処理済みか、あるいは受信トレイの「直下」にメールがない可能性があります。サブフォルダを操作したい場合は、 `inbox` の指定を `inbox.Folders(“ターゲットのフォルダ名”)` に書き換える必要があります。
—
最後に：ここをクリアすれば、あなたはもう脱・初心者です
Outlook VBAの習得は、「自分のPCの中に、24時間働く優秀な秘書を雇うこと」と同じです。
まずは今日紹介したコードをコピーして、ご自身の環境に合わせてフォルダ名を変えるところから始めてみてください。一度、メールが魔法のように整理される快感を味わえば、きっと次は「件名から日付を抽出してファイル名にしたい」「特定の差出人だけ別の人に転送したい」と、アイデアが湧き上がってくるはずです。
もしコードが動かなくても、それは「失敗」ではなく「仕様の理解が深まるチャンス」です。エラーメッセージは、パソコンからの貴重なアドバイスだと思って付き合っていきましょう。
ここをクリアしたあなたは、もうマクロの記録で消耗するユーザーではありません。「業務を自動化するアーキテクト」への第一歩を、今踏み出しました。応援しています！
