こんにちは！バックオフィスや現場の業務自動化を日々支えるエンジニアの皆さん、あるいは「毎日のメール整理にそろそろ限界を感じている」という方。
「毎日届く膨大なメール、取引先ごとにフォルダ分けしたいけれど、手が回らない……」
「新しい取引先からメールが来るたびに、わざわざOutlookのフォルダを手動で作るのが面倒……」
そんな悩みを一発で解決するのが、今回テーマにする「差出人のドメインを判別してフォルダを自動生成・振り分けする仕組み」です。
マクロの記録から一歩抜け出し、Outlook VBAの世界へ足を踏み入れるには、これ以上ない最高の題材です。今回は、チーフアーキテクトである私が、裏側の仕組みや陥りやすい罠を含めて、優しく、そして本質的に解説していきます。
ここをクリアすれば、Outlook VBAの基本はバッチリですよ。さあ、一緒にマスターしていきましょう！
—
1. なぜ「手動のフォルダ分け」は破綻するのか？
Outlookの「仕分けルール」機能は便利ですが、次のような限界があります。
- 「新しいドメイン（取引先）が増えるたびに、ルールとフォルダを手動で作らなければならない」
- 複雑な条件が増えると、ルールの競合や処理漏れが発生する
今回作成するVBAは、「受信したメールの送信元アドレスからドメイン（例: `@example.com` の `example.com` 部分）を自動で抽出し、その名前のフォルダがOutlook内に存在しなければ自動で作成し、そこにシュートする」という、完全自動化の仕組みです。
これにより、「明日、新しい会社からメールが来ても、プログラムが勝手に受け入れ態勢を整えてくれる」という、メンテナンスフリーな環境が手に入ります。
—
2. 実装の全体像（アーキテクチャ）
コードを書く前に、頭の中で処理の流れをイメージ（図解）してみましょう。
[メール受信 (ItemAddイベント)]
↓
[送信元アドレスの取得]
↓
[ドメイン名の抽出 (例: staff@hoge.co.jp → hoge.co.jp)]
↓
[該当ドメイン名のフォルダが「受信トレイ」にあるか？]
├── YES ──→ [そのフォルダへ移動]
└── NO ──→ [フォルダを新しく作成] ──→ [新フォルダへ移動]
非常にシンプルですが、Outlook VBA特有の「オブジェクトのライフサイクル」や「エラーハンドリング」を知っていると、より堅牢なコードになります。
—
3. 実装コード（コピペで使える完全版）
Outlook VBAでメール受信をフックする場合、`ThisOutlookSession` という特別なモジュールを使用します。
以下のコードを、OutlookのVBAエディタ（`Alt + F11` で起動）の `ThisOutlookSession` にそのまま貼り付けてください。
Option Explicit
‘ =====================================================================
‘ テーマ: 受信メールのドメイン自動判別＆フォルダ自動生成・振り分け
‘ 解説: チーフアーキテクトによる実戦向けクリーンコード
‘ =====================================================================
‘ 受信トレイのアイテム追加を監視するための変数
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
‘ 初学者へのヒント：
‘ ここで監視をスタートさせることで、Outlookが起動している間、
‘ 新着メールを自動でキャッチできるようになります。
End Sub
‘ 新着メールが受信トレイに入った瞬間に発火するイベント
Private Sub InboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
‘ 受信したアイテムが「メール（MailItem）」かどうかを判定
‘ （会議予定やタスクなど、メール以外のアイテムも受信トレイに入るため）
If TypeName(Item) = “MailItem” Then
Dim mail As Outlook.MailItem
Set mail = Item
Dim senderEmail As String
Dim domainName As String
Dim atPos As Long
‘ 送信元のアドレスを取得
senderEmail = mail.SenderEmailAddress
‘ 【重要】Exchange環境などで内部アドレス（/O=…等）の場合は弾く
If InStr(senderEmail, “@”) > 0 Then
‘ ‘@’ の位置を特定し、ドメイン部分を切り出す (例: user@company.com -> company.com)
atPos = InStrRev(senderEmail, “@”)
domainName = Mid(senderEmail, atPos + 1)
‘ フォルダの振り分け処理を実行
Call SortMailByDomain(mail, domainName)
End If
End If
Exit Sub
ErrorHandler:
‘ 予期せぬエラーでOutlook全体が停止するのを防ぐ防壁
Debug.Print “Error: ” & Err.Description
End Sub
‘ ドメイン名を元にフォルダの存在確認・作成・移動を行うプロシージャ
Private Sub SortMailByDomain(mail As Outlook.MailItem, domain As String)
Dim ns As Outlook.NameSpace
Dim inboxFolder As Outlook.FOLDER
Dim targetFolder As Outlook.FOLDER
Dim folderExists As Boolean
Set ns = Application.GetNamespace(“MAPI”)
Set inboxFolder = ns.GetDefaultFolder(olFolderInbox)
folderExists = False
‘ 受信トレイ直下にあるサブフォルダを総当たりでチェック
Dim subFld As Outlook.FOLDER
For Each subFld In inboxFolder.Folders
If subFld.Name = domain Then
Set targetFolder = subFld
folderExists = True
Exit For
End If
Next subFld
‘ もし該当するドメイン名のフォルダが存在しなければ、新しく作成する
If folderExists = False Then
‘ 受信トレイの中に、ドメイン名のフォルダを新規作成
Set targetFolder = inboxFolder.Folders.Add(domain)
‘ 初学者へのヒント：ここで自動生成の魔法が発動します！
End If
‘ メールを指定したフォルダに移動する
mail.Move targetFolder
‘ メモリの解放（プログラミングの基本作法）
Set targetFolder = Nothing
Set inboxFolder = Nothing
Set ns = Nothing
End Sub
—
4. コードの重要ポイントと「初心者が陥りやすい罠」
今回のコードには、実務で耐えうるシステムにするための重要な工夫が詰まっています。いくつか解説しましょう。
① `WithEvents` と `Application_Startup` のコンボ
「メールを受信したとき」にプログラムを動かすには、Outlookのイベント機能を使います。
ここで初心者がよくやる失敗が、「Outlookを再起動したらマクロが反応しなくなった」という現象です。
`Application_Startup` を使って、Outlook起動と同時に監視をスタート（`Set InboxItems = …`）させるのが、プロのエンジニアの常道です。
※コードを貼り付けた後、一度Outlookを再起動するか、`Application_Startup` の中で `F5キー` を押して手動で実行（イニシャライズ）してください。
② `TypeName(Item) = “MailItem”` による型チェック
受信トレイに届くのはメールだけではありません。会議の出欠確認（MeetingItem）や、他のユーザーからのタスク依頼なども入ってきます。
これらを考慮せずに `mail.SenderEmailAddress` などを呼び出すと、「オブジェクトが必要です」というエラーでマクロがクラッシュします。型を厳密にチェックするのが堅牢なコードの第一歩です。
③ 存在しない場合のフォルダ動的生成 (`Folders.Add`)
`inboxFolder.Folders.Add(domain)` の一行が、今回のハイライトです。
Outlookのフォルダ構造（オブジェクト階層）を理解していれば、VBAから自由自在にフォルダを生み出すことができます。これにより、手動でのメンテナンス作業から完全に解放されます。
—
5. 導入時の注意点（セキュリティとマクロの有効化）
Outlook VBAを動かすにあたり、以下の設定を必ず確認してください。
1. マクロのセキュリティ設定
- 「ファイル」>「オプション」>「トラストセンター」>「トラストセンターの設定」>「マクロの設定」から、「すべてのマクロに警告を表示する」または「デジタル署名されたマクロ以外を有効にする」を選択します。
2. 初回起動のトリガー
- コードを `ThisOutlookSession` に貼り付けた後、Outlookを再起動するか、コード内の `Application_Startup` カーソルを合わせて `F5`（実行）を押してイベントを有効化してください。
—
おわりに：ここをクリアすれば、あなたはもう「自動化の担い手」
いかがでしたでしょうか？
今回は、受信メールのドメイン解析からフォルダの自動生成・振り分けという、実務で即戦力になる仕組みを解説しました。
一見難しそうに見えるオブジェクト操作やイベント処理も、一つひとつの部品（ブロック）に分解して見れば、やっていることは非常にシンプルです。
この仕組みをベースに、社内ドメイン（例: `@mycompany.jp`）は除外する条件を加えたり、特定の重要顧客だけ色を変えたりといったカスタマイズも自由自在です。ぜひ、ご自身の環境に合わせてアレンジしてみてください。
あなたのOutlookライフが、よりスマートで快適なものになることを応援しています！
