こんにちは！Outlook VBAの世界へようこそ。
マクロの記録ボタンを押すだけの自動化から一歩進んで、本格的な業務アプリケーションの領域に踏み込もうとしているあなたなら、きっと今日のテーマにワクワクするはずです。
「メールを送信したはいいけれど、後から『あの案件のメール、どこに行ったっけ？』と受信トレイや送信済みアイテムの海を探し回る……」
そんな非効率な泥沼からあなたを救い出す、伝説級の秘技をお教えしましょう。
今回は、Outlookのメールオブジェクト（`MailItem`）の奥底に眠る`UserProperties`（ユーザープロパティ）を活用し、メール自体に「案件番号」や「処理ステータス」といった独自のメタデータを刻み込む、プロ顔負けの高度なデータ管理術を伝授します。
ここをクリアすれば、あなたのOutlookは単なるメーラーではなく、「最強の案件追跡データベース」へと生まれ変わりますよ。さあ、一緒に本質をマスターしていきましょう！
—
なぜ「UserProperties」なのか？（基本概念の理解）
通常、メールの件名や本文に「案件ID：12345」などと書き込んで管理しようとしますよね。
しかし、それをやってしまうと、以下のような「現場の悲劇」が起きます。
- ユーザーがうっかり件名からIDを消してしまう。
- 返信（Re:）が重なるうちに、スレッドの文脈からIDが迷子になる。
- 後から「案件ID:12345」のメールをプログラムで一発検索しようとすると、本文や件名のフルテキスト検索になり、処理が重く、誤検知が多い。
ここで登場するのが `UserProperties` です。
これは、メールの「裏側（メタデータ領域）」に、ユーザーが自由にキーと値のペアを保存できる仕組みです。
[ MailItem オブジェクトの構造 ]
┣ Subject (件名)
┣ Body (本文)
┣ To / CC / BCC
┗ UserProperties (★ここが今回の主役！)
┣ 独自プロパティ名: “ProjectCode” = “PJ-2023-999”
┗ 独自プロパティ名: “ProcessStatus” = “Pending”
表面の件名や本文を汚すことなく、メール個体に不可視のタグを埋め込むことができるため、プログラムから確実に、そして高速にそのメールを特定・追跡できるようになります。
—
【実践】UserPropertiesを操る極上のVBAコード
それでは、実際に「案件番号」と「ステータス」を持ったメールを作成し、送信（または下書き保存）するコードを見てみましょう。
開発現場でそのままコピペして使えるよう、実用的なコメントをたっぷりと盛り込んでいます。
Sub CreateTaggedMailItem()
Dim olApp As Outlook.Application
Dim mail As Outlook.MailItem
Dim props As Outlook.UserProperties
Dim propCode As Outlook.UserProperty
Dim propStatus As Outlook.UserProperty
On Error GoTo ErrorHandler
‘ 1. アプリケーションインスタンスの取得
Set olApp = New Outlook.Application
‘ 2. 新規メールアイテムの作成
Set mail = olApp.CreateItem(olMailItem)
‘ 3. 通常のプロパティの設定
With mail
.To = “client@example.com”
.Subject = “【進捗報告】新規プロジェクトの件について”
.Body = “いつもお世話になっております。” & vbCrLf & _
“プロジェクトの進捗状況をご報告いたします。”
End With
‘ ==========================================
N 4. UserProperties（メタデータ）の操作
‘ ==========================================
Set props = mail.UserProperties
‘ 既に同じプロパティ名が存在する場合の重複作成を防ぐため、一度削除（または取得を試みる）
‘ ※今回はシンプルに「追加」するアプローチをとります
‘ 案件コードを格納するカスタムプロパティを追加
‘ 引数: (プロパティ名, 型(olText, olNumber, olYesNo, olDateTimeなど))
Set propCode = props.Add(“ProjectCode”, olText)
propCode.Value = “PJ-2023-0892”
‘ 処理ステータスを格納するカスタムプロパティを追加
Set propStatus = props.Add(“ProcessStatus”, olText)
propStatus.Value = “UnderReview”
‘ 5. 画面に表示（実運用では .Send や .Save に書き換えてください）
mail.Display
MsgBox “カスタムプロパティが付与されたメールを作成しました！”, vbInformation, “成功”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “異常終了”
End Sub
コードのここがポイント！
- `olText` などのデータ型指定: `UserProperties.Add` の第2引数では、文字列（`olText`）だけでなく、数値（`olNumber`）、日付（`olDateTime`）、フラグ（`olYesNo`）などを指定できます。これにより、後からの検索や比較が圧倒的に楽になります。
- カプセル化の発想: メタデータをメールオブジェクトのなかに閉じ込めることで、後続の処理（例えば「ステータスが ‘UnderReview’ のメールを一括で取得して処理するマクロ」など）が非常にスマートに書けるようになります。
—
陥りやすい罠と、プロが教える「知見」
さて、ここからがチーフアーキテクトとしての本領発揮です。この `UserProperties`、非常に強力ですが、素人がやりがちな「致命的な罠」がいくつかあります。現場で泣きを見る前に、必ず押さえておいてください。
1. 「一度保存・送信しないと、メタデータが消える」の罠
作成したばかりの `MailItem` に対して `UserProperties.Add` を行い、一度も `.Save` や `.Send` をせずにメモリ上で閉じたり、フォルダを移動したりすると、カスタムプロパティが正常に永続化されない場合があります。
確実にメタデータを定着させるためには、一度 `.Save`（下書き保存）を挟むか、送信処理を完了させるのが安全です。
2. 「重複追加」の罠
上記のサンプルコードではシンプルに `props.Add` を使いましたが、もし同じメールに対してこのマクロが複数回実行されると、「同じ名前のカスタムプロパティが何重にも重複して作成される」という恐ろしい現象が起きます。
実務で使う場合は、以下のように「既存のプロパティを探し、なければ作る（あれば上書きする）」というロジックを組むのがプロの作法です。
‘ プロパティの安全な取得・更新のイディオム
Set propCode = props.Find(“ProjectCode”)
If propCode Is Nothing Then
Set propCode = props.Add(“ProjectCode”, olText)
End If
propCode.Value = “PJ-2023-0892”
3. 検索（Find / Restrict）時のJetクエリの構文
`UserProperties` で付与した値は、Outlookのフォルダ内検索（`Items.Restrict` や `Items.Find`）で条件として使うことができます。
ここで注意なのが、カスタムプロパティをJetクエリで指定する際の特殊な構文です。以下のように、プロパティ名の前に名前空間（通常はスキーマ）を指定する必要があります。
Dim foundItems As Outlook.Items
‘ “ProjectCode” というユーザー定義プロパティが “PJ-2023-0892” のものを探す
Set foundItems = olFolder.Items.Restrict(“[UserProperties(‘ProjectCode’)] = ‘PJ-2023-0892′”)
※Outlookのバージョンやプロパティの定義方法によっては名前空間（`http://schemas.microsoft.com/mapi/string/…`）を指定する必要があるなど、少々クセがありますが、ここを突破できれば、独自のメール管理システムが完全に完成します。
—
おわりに
お疲れ様でした！今回は `UserProperties` を用いた高度なメタデータ管理術について解説しました。
「ただメールを送る・受信する」だけのVBAから、「メールをデータオブジェクトとして美しくコントロールする」上級者の領域へ、あなたは確実に一歩足を踏み入れました。
このテクニックをベースに、案件管理システムや、社内ワークフローの通知・追跡マクロを構築してみてください。きっと、周りのエンジニアや同僚を驚かせることができるはずです。
ここをクリアできれば、Outlook VBAの基本と応用への扉は完全に開かれています。ぜひ、日々の業務自動化に役立ててくださいね！
