こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけのステージから抜け出し、「自分の手でOutlookを自在に操りたい」と願うあなたへ。
今回は、実務で非常によくある、しかし中級者へのステップアップとしては絶対に避けて通れないテーマ「送信済みアイテムから特定のメールを検索し、その宛先をCSVへエクスポートする」を徹底解説します。
「過去に送ったあのメール、誰宛に送ったっけ……？」
そんな時、手作業で一件ずつ開いて確認していませんか？ 今回のコードをマスターすれば、一瞬でCSVファイルとしてリスト化できるようになります。
ここをクリアすれば、Outlook VBAの検索・データ処理の基本はバッチリですよ。さあ、一緒に本質を学んでいきましょう！
—
1. なぜ「Items.Find / Restrict」を知る必要があるのか？
Outlook VBAでメールを操作するとき、多くの初心者は `For Each` ループを使ってすべてのメールを上から順に見ようとします。
ちょっと待ってください！
あなたの「送信済みアイテム」フォルダに、何万通ものメールが眠っていませんか？ そのすべてを `For Each` で舐めるようにチェックしていたら、Outlookはフリーズし、あなたのPCはファンを唸らせてテイクオフしてしまいます。
プロのエンジニアは、「必要なものだけをピンポイントで狩る（検索する）」というアプローチを取ります。それが、`Items.Find` メソッドと `Restrict` メソッドです。
- Findメソッド: 条件に一致する最初の1件を見つける（単発の検索向け）
- Restrictメソッド: 条件に一致するメールの「集まり（サブコレクション）」をごっそり抽出する（一括処理向け）
今回は、複数のメールを対象にするため、`Restrict` メソッドの強力なフィルター構文を駆使します。
—
2. 実装の全体像とコード
まずは、開発の現場でそのままコピペして使える完全版のコードをお見せします。
VBAエディタ（Alt + F11）を開き、標準モジュールに貼り付けてみてください。
Option Explicit
Sub ExportRecipientsToCSV()
‘ — 宣言セクション —
Dim ns As Outlook.NameSpace
Dim sentFolder As Outlook.MAPIFolder
Dim restrictedItems As Outlook.Items
Dim mail As Object ‘ MailItem以外（会議通知など）も混ざるためObject型にする
Dim filterText As String
Dim targetSubject As String
‘ CSV出力用の変数
Dim fso As Object
Dim ts As Object
Dim csvPath As String
Dim exportCount As Long
‘ — 1. 検索条件の設定 —
‘ ここをあなたの探したい件年のキーワードに変更してください
targetSubject = “【進捗報告】”
‘ 出力先のパス（デスクトップに “RecipientsList.csv” を作成します）
csvPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\RecipientsList.csv”
‘ — 2. フォルダとアイテムの取得 —
Set ns = Application.GetNamespace(“MAPI”)
Set sentFolder = ns.GetDefaultFolder(olFolderSentMail)
‘ 【重要】DAZ(DASL)クエリを用いた高速フィルタリング
‘ 件名(Subject)に特定の文字列が含まれるものを抽出
‘ ※OutlookのRestrictでは、文字列の部分一致にコロン「C_」や「%”キーワード”」を使います
filterText = “@SQL=””urn:schemas:httpmail:subject”” LIKE ‘%” & targetSubject & “%'”
Set restrictedItems = sentFolder.Items.Restrict(filterText)
‘ 念のため降順ソート（新しい順）を設定
restrictedItems.Sort “[SentOn]”, True
‘ — 3. CSVファイルの準備 (FSOを使用) —
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ForWriting = 2 (上書き作成), True (存在しない場合は新規作成)
Set ts = fso.OpenTextFile(csvPath, 2, True)
‘ CSVヘッダーの書き込み
ts.WriteLine “送信日時,件名,宛先(To)”
exportCount = 0
‘ — 4. 抽出されたアイテムのループ処理 —
For Each mail In restrictedItems
‘ 万が一MailItem以外のオブジェクト（会議出席依頼など）が混ざった場合のガード
If mail.Class = olMail Then
‘ CSV行の作成（カンマやダブルクォーテーションのエスケープを考慮）
Dim cleanSubject As String
Dim cleanTo As String
cleanSubject = Replace(mail.Subject, “”””, “”””””) ‘ ダブルクォーテーションのダブル化
cleanTo = Replace(mail.To, “”””, “”””””)
‘ テキストストリームへ書き込み
ts.WriteLine “””” & mail.SentOn & “””,””” & cleanSubject & “””,””” & cleanTo & “”””
exportCount = exportCount + 1
End If
Next mail
‘ — 5. 後片付けと通知 —
ts.Close
Set ts = Nothing
Set fso = Nothing
Set restrictedItems = Nothing
Set sentFolder = Nothing
Set ns = Nothing
If exportCount > 0 Then
MsgBox exportCount & ” 件の宛先情報をデスクトップにエクスポートしました！”, vbInformation, “完了”
Else
MsgBox “条件に一致するメールは見つかりませんでした。”, vbExclamation, “通知”
End If
End Sub
—
3. コードの核心を解説する3つのポイント
このコードが「中級者クオリティ」たる所以を、3つのポイントに絞って解説します。
① DASLクエリ（`@SQL=”…”`）による超高速検索
通常の `[Subject] = ‘xxx’` のような簡易フィルタは、部分一致（〜を含む）の処理が苦手です。
しかし、Outlookには DASL（DAV Searching and Locating）プロトコル をベースにした強力な検索構文が用意されています。
filterText = “@SQL=””urn:schemas:httpmail:subject”” LIKE ‘%” & targetSubject & “%'”
この `LIKE ‘%キーワード%’` を使うことで、SQLデータベース並みの高速な部分一致検索をOutlook上で行うことができます。これがパフォーマンスの鍵です。
② 安全なオブジェクト判定（`mail.Class = olMail`）
「送信済みアイテム」には、純粋なメール（MailItem）だけでなく、会議の招待やタスクの依頼などが混ざっています。これらを考慮せず `.To` プロパティなどを叩くと、「実行時エラー ‘438’: オブジェクトはこのプロパティまたはメソッドをサポートしていません」という初心者殺しのエラーが発生します。
`If mail.Class = olMail` というガードを挟むことで、エラーを未然に防ぎます。
③ FileSystemObject (FSO) による堅牢なCSV出力
VBA標準の `Open “C:\…” For Output As #1` は、文字コードの制御が難しく、日本語環境でExcelから開いたときに文字化けを起こす原因になります。
今回は、Windowsの標準コンポーネントである `Scripting.FileSystemObject` を使い、オブジェクト指向かつモダンなファイル操作を行っています。
—
4. 陥りやすい罠とエラー回避のコツ
現場でこのコードを運用する際によくある落とし穴をいくつかシェアしておきます。
- 罠1: 「件名」や「宛先」にカンマが含まれていてCSVが崩れる
- 対策: 実務のデータにはカンマ（`,`）やダブルクォーテーション（`”`）が容赦なく入ってきます。今回のコードでは値を `”`（ダブルクォーテーション）で囲むことで、CSVの列ズレを防止しています（簡易的なエスケープ処理）。
- 罠2: 検索結果が一件もヒットしない
- 対策: キャッシュモードのOutlookの場合、サーバー側の同期状態や検索インデックスの影響で、直近のメールがうまくヒットしないことがあります。そんなときは、Outlookの検索バーで一度手動検索し、インデックスが正常に機能しているか確認してみてください。
—
おわりに
お疲れ様でした！
今回は「送信済みアイテムからの検索とCSVエクスポート」という、実務で直面しがちな課題を解決するコードを構築しました。
- `Restrict` と DASLクエリで必要なデータだけを絞り込むこと
- 予期せぬオブジェクトを弾くガード処理を入れること
- FSOを使って安全にファイル出力を行うこと
これらはすべて、プロの業務自動化エンジニアが現場で当たり前に使っているテクニックです。
ぜひこのコードをご自身の環境に合わせてカスタマイズし、日々のルーティンワークを爆速で自動化してくださいね。あなたのVBAライフを、これからも応援しています！
