序文：なぜあなたのOutlook自動化は「止まる」のか
業務効率化の第一歩として誰もが思いつく「メールの自動振り分け」。しかし、多くのエンジニアが書くコードは、実務の荒波に耐えられず数日でゴミ箱行きになる。なぜか？
「受信トレイを上から順にループで回せばいい」という安易な発想。
「フォルダがなければ作る」という処理の例外設計の甘さ。
そして、Exchange Server特有の「差出人アドレスの仕様」に対する無知。
これらが、あなたのツールを「時々動かない、信頼できないガラクタ」に変えている正体だ。
プロのアーキテクトは、単に動くコードは書かない。「止まらない、壊れない、保守しやすい」コードを書く。今回は、受信トレイの未読メールをスキャンし、差出人ごとにフォルダを自動生成・移動させるという基本テーマを、現場の最前線で通用する「プロダクション・グレード」の設計で伝授する。
—
1. 堅牢な設計：3つの鉄則
実装に入る前に、このロジックを組む上で絶対に外せない3つの鉄則を叩き込む。
① コレクション操作は「後ろから」回せ
もっとも初歩的で、もっとも致命的なミスがこれだ。メールを移動させる際、`For i = 1 To Count` で回すと、1件移動した瞬間にインデックスがズレてしまい、次のメールをスキップしてしまう。移動や削除を伴うループは `For i = Count To 1 Step -1`。これが鉄則だ。
② SenderEmailAddressの罠を回避せよ
差出人アドレスを取得する際、社内メール（Exchange環境）では、我々が慣れ親しんだ `user@example.com` 形式ではなく、`/o=ExchangeLabs/ou=…` といったレガシーなX.500形式が返ってくることがある。これをそのままフォルダ名にすればエラーで落ちる。`Sender.Address` ではなく、プロパティを深掘りして確実にSMTPアドレスを取得する設計が必要だ。
③ フォルダ参照のキャッシュ化
ループのたびに「フォルダがあるか？なければ作成」という処理を全件に対して行うのは愚策だ。VBAのオブジェクト参照はコストが高い。一度確認したフォルダはオブジェクトとして保持するか、効率的な探索ロジックを組む必要がある。
—
2. プロダクション・コード：自動振り分けエンジン
以下のコードは、単なるサンプルではない。エラーハンドリングを完備し、Exchange環境下でのアドレス取得にも対応した、そのまま実戦投入可能な設計だ。
Option Explicit
‘ —
‘ 目的: 受信トレイの未読メールをスキャンし、差出人別のフォルダへ自動移動する
‘ 特徴: 逆順ループ、Exchangeアドレス変換、フォルダ自動生成、エラートラップ完備
‘ —
Public Sub AutoSortUnreadEmails()
Dim outlookApp As Outlook.Application
Dim nms As Outlook.Namespace
Dim inbox As Outlook.Folder
Dim targetFolder As Outlook.Folder
Dim mailItem As Object ‘ MailItem以外（会議出席依頼等）を考慮しObjectで受ける
Dim i As Long
Dim senderAddr As String
Set outlookApp = New Outlook.Application
Set nms = outlookApp.GetNamespace(“MAPI”)
‘ 受信トレイ（デフォルト）を取得
Set inbox = nms.GetDefaultFolder(olFolderInbox)
‘ 1. 未読アイテムのみにフィルタリング（パフォーマンス最適化）
‘ Restrictを使用することで、数万件のメールがあっても一瞬で対象を絞り込める
Dim unreadItems As Outlook.Items
Set unreadItems = inbox.Items.Restrict(“[Unread] = true”)
‘ 2. 逆順ループ（移動・削除時のインデックスズレ防止）
For i = unreadItems.Count To 1 Step -1
Set mailItem = unreadItems.Item(i)
‘ メールアイテム以外（ReportItemなど）をスキップ
If TypeOf mailItem Is Outlook.MailItem Then
‘ 差出人アドレスの取得（Exchange環境対応）
senderAddr = GetSmtpAddress(mailItem)
If senderAddr <> “” Then
‘ 3. フォルダの存在確認と取得（なければ作成）
Set targetFolder = GetOrCreateFolder(inbox, senderAddr)
‘ 4. 移動処理
On Error Resume Next
mailItem.Move targetFolder
If Err.Number <> 0 Then
Debug.Print “移動失敗: ” & senderAddr & ” – ” & Err.Description
Err.Clear
End If
On Error GoTo 0
End If
End If
Next i
MsgBox “振り分け完了”, vbInformation
End Sub
‘ —
‘ 関数: Exchangeのアドレス形式をSMTP（通常のメアド）に変換する
‘ —
Private Function GetSmtpAddress(ByVal mail As Outlook.MailItem) As String
On Error GoTo ErrHandler
Dim sender As Outlook.AddressEntry
Set sender = mail.Sender
If sender Is Nothing Then Exit Function
‘ Exchange環境（EX）か、通常のSMTP（SMTP）かを判定
If sender.AddressEntryUserType = olExchangeUserAddressEntry Or _
sender.AddressEntryUserType = olExchangeRemoteUserAddressEntry Then
‘ Exchangeユーザーの場合は、プライマリSMTPアドレスを取得
Dim exUser As Outlook.ExchangeUser
Set exUser = sender.GetExchangeUser
If Not exUser Is Nothing Then
GetSmtpAddress = exUser.PrimarySmtpAddress
End If
Else
‘ それ以外は通常のアドレスを使用
GetSmtpAddress = mail.SenderEmailAddress
End If
Exit Function
ErrHandler:
GetSmtpAddress = “”
End Function
‘ —
‘ 関数: 指定した名前のフォルダを取得、存在しなければ作成する
‘ —
Private Function GetOrCreateFolder(ByRef parentFolder As Outlook.Folder, ByVal folderName As String) As Outlook.Folder
On Error Resume Next
Dim subFolder As Outlook.Folder
‘ 不正な文字を置換（フォルダ名に使えない文字を排除）
folderName = Replace(folderName, “@”, “_at_”)
Set subFolder = parentFolder.Folders(folderName)
If subFolder Is Nothing Then
‘ 存在しない場合は新規作成
Set subFolder = parentFolder.Folders.Add(folderName)
End If
Set GetOrCreateFolder = subFolder
On Error GoTo 0
End Function
—
3. アーキテクトによる深堀解説
パフォーマンスの極意：`Restrict` メソッド
初心者は `For Each` で全件をなめて `If mail.Unread = True` と判定しがちだが、これは大規模な受信トレイでは「死」を意味する。`Items.Restrict` を使用することで、Outlookのインデックスを利用して一気にフィルタリングを行う。これが、プロのスピードだ。
データの整合性：`GetSmtpAddress`
Outlook VBAにおいて、`SenderEmailAddress` は常に信頼できるわけではない。特に大企業のExchange環境では、内部識別子（LDAPパス）が返ってくる。これをフォルダ名にすると、記号が含まれているためにエラーでクラッシュする。上記の `GetSmtpAddress` 関数のように、`AddressEntry` オブジェクトまで遡って `PrimarySmtpAddress` を叩くのが、バグを未然に防ぐ唯一の道だ。
拡張への布石：データベース連携
このツールをさらに発展させ、外部DB（SQL ServerやAccess）と連携させる場合、`EntryID` をキーに管理することを推奨する。`EntryID` はメールが移動すると変わる可能性があるが、`Store` 内での一意性は保たれる。さらに高度な自動化を目指すなら、このロジックを `WithEvents` を使ったイベント監視（`ItemAdd`）に組み込むことで、完全リアルタイムの自動振り分けマシンへと昇華させることができる。
—
結論：コードに魂を込めろ
今回紹介したコードは、単に「メールを動かす」だけの機能ではない。
- インデックス管理の安全性
- 環境差異の吸収
- 例外処理の徹底
これらが組み合わさって初めて、実務で使える「資産」となる。
コピー＆ペーストで動かすのは構わない。しかし、なぜ `Step -1` なのか、なぜ `Restrict` なのか、その「なぜ」を深く理解し、あなたの血肉としてほしい。
次なるステップは、このロジックを「アドイン」として実装し、PC起動時にバックグラウンドで常駐させることだ。自動化の道に終わりはない。研鑽を続けよ。
