こんにちは！Outlook VBAの奥深い世界へようこそ。
マクロの記録すらない孤高のアプリケーション「Outlook」を自在に操るための第一歩として、今回は多くの業務システム開発者が必ずぶつかる壁、そして最強の武器となる「ユーザー定義プロパティ」についてお話しします。
「メールに独自の管理番号やステータスを紐づけて、後から自由に取り出したい」
「Excelにエクスポートする前に、Outlook上でデータを完結させたい」
そんな現場の切実な願いをスマートに解決するのが、`UserProperties` コレクションです。
ここをクリアすれば、単なるメールクライアントが「あなた専用のデータベース」に生まれ変わります。さあ、一緒にその仕組みの深部へと飛び込んでいきましょう！
—
1. Outlookデータ構造の核心：なぜ「ユーザー定義プロパティ」なのか？
私たちが普段目にするOutlookのメールアイテム（`MailItem`）には、件名（Subject）や送信者（SenderName）といった「標準プロパティ」があらかじめ用意されています。
しかし、実際の業務ではどうでしょう？
- 「この問い合わせ、社内管理番号 `REQ-2023-9999` を振っておきたい」
- 「対応ステータスを『未着手』『対応中』『完了』で管理したい」
こういう時、無理やり「件名の先頭に `【対応中】` と付け加える」ような泥臭い実装をしていませんか？ 文字列パースによるデータ管理は、ユーザーが件名を書き換えた瞬間にシステムが崩壊する fragile（壊れやすい）な設計の典型です。
データの「裏側」に隠し pockets（ポケット）を作る
Outlookのアイテムには、目に見える表側の件名や本文のほかに、データをこっそり格納しておくための「隠しポケット」が用意されています。それが `UserProperties`（ユーザー定義プロパティ）です。
ここにデータを保存しておけば、ユーザーが誤って件名を変更しても、管理番号やステータスは微動だにしません。まさにプロの業務自動化に必須のデータ永続化手法です。
—
2. ユーザー定義プロパティの「読み書きと保存」のメカニズム
まずは、Outlook VBAにおけるデータの書き込みと読み込みの基本コードを見てみましょう。
今あなたが選択している（あるいは開いている）メールアイテムに対して、独自の管理番号とステータスを書き込むスクリプトです。
実用コード：プロパティの書き込みと保存
Sub SetCustomProperties_Sample()
Dim objItem As Object
Dim mail As MailItem
Dim props As UserProperties
Dim propTicketNo As UserProperty
Dim propStatus As UserProperty
‘ 1. 現在選択されている（または開いている）アイテムを取得
Set objItem = ActiveExplorer.Selection.Item(1)
‘ 2. MailItemかどうかの型チェック（安全第一の鉄則）
If objItem.Class = olMail Then
Set mail = objItem
‘ 3. ユーザー定義プロパティコレクションを取得
Set props = mail.UserProperties
‘ — A. 管理番号（文字列）の書き込み —
‘ 既に存在するかに関わらず、Addで作成（第2引数にデータ型を指定）
‘ olText = 文字列, olNumber = 数値, olYesNo = 真偽値, olDateTime = 日付
Set propTicketNo = props.Add(“InternalTicketNo”, olText, True)
propTicketNo.Value = “INC-2023-1105”
‘ — B. ステータス（数値）の書き込み —
Set propStatus = props.Add(“ProcessStatus”, olNumber, True)
propStatus.Value = 1 ‘ 1: 未対応
‘ 4. ★最重要：変更をOutlookストア（データベース）に書き戻す！
mail.Save
MsgBox “カスタムプロパティの書き込みと保存が完了しました！”, vbInformation
Else
MsgBox “メールアイテムを選択してください。”, vbExclamation
End If
End Sub
ここで絶対に押さべき「3つのポイント」
1. `props.Add(Name, Type, [MakeGlobal])` の第3引数 `True`
これが今回の最大のキモです。第3引数に `True`（または省略せずに指定）を渡すことで、「このフォルダ内のすべてのビューでこのプロパティを共有可能（定義）」にします。ここを忘れると、アイテム単体に一時的に値が乗るだけで、検索やビューへの表示が不安定になります。
2. データ型の明確な指定
`olText` や `olNumber` など、型を明示して作成します。Excelのセルのようなものです。あとから型違いのデータを突っ込むとバグの温床になります。
3. 慈悲なき `.Save` メソッド
VBAでプロパティを変更しても、Outlookのウィンドウ上で「保存」ボタンを押さなければ消えてしまうのと一緒です。コードの最後で必ず `mail.Save` を実行し、変更を永続化させてください。
—
3. 保存したデータを「安全に読み出す」極意
書き込んだデータは、後続の処理（例えば、毎日夜間に走るバクロ処理や、Excelへの集計マクロ）で読み出してこそ意味があります。
読み出しの際は、「そのプロパティがまだ存在しない（初回実行時など）」という例外ケースを必ず考慮しなければなりません。
実用コード：プロパティの安全な読み込み
Sub GetCustomProperties_Sample()
Dim mail As MailItem
Dim props As UserProperties
Dim propTicketNo As UserProperty
Dim propStatus As UserProperty
Set mail = ActiveExplorer.Selection.Item(1)
Set props = mail.UserProperties
‘ — A. 管理番号の読み出し —
‘ Findメソッドで指定した名前のプロパティを検索（引数の第2引数は大文字小文字の区別: Falseなら区別しない）
Set propTicketNo = props.Find(“InternalTicketNo”, True)
If Not propTicketNo Is Nothing Then
Debug.Print “管理番号: ” & propTicketNo.Value
Else
Debug.Print “管理番号はまだ設定されていません。”
End If
‘ — B. ステータスの読み出し —
Set propStatus = props.Find(“ProcessStatus”, True)
If Not propStatus Is Nothing Then
Select Case propStatus.Value
Case 1: Debug.Print “ステータス: 未対応”
Case 2: Debug.Print “ステータス: 対応中”
Case 3: Debug.Print “ステータス: 完了”
Case Else: Debug.Print “ステータス: 不明”
End Select
Else
Debug.Print “ステータスは初期化されていません。”
End If
End Sub
現場でありがちな「落とし穴」と対策
初心者の頃、`props.Item(“InternalTicketNo”).Value` のように直接キーを指定して値を取り出そうとしがちです。しかし、もしそのプロパティがまだ一度も追加されていないメールを対象にしてしまった場合、容赦なく「インデックスが有効範囲にありません（実行時エラー 9）」が発生します。
必ず上記コードのように `props.Find()` を使い、戻り値が `Nothing` でないことを確認してから `.Value` にアクセスする。これが、トラブルを未然に防ぐプロの作法です。
—
4. さらに一歩先へ：検索フォルダやビューへの活用
ユーザー定義プロパティの真価は、Outlookの標準機能と連携したときに発揮されます。
実は、ここで作成した `InternalTicketNo` や `ProcessStatus` は、Outlookの「ビューのカスタマイズ（列の追加）」を行うことで、受信トレイの一覧画面に通常の「件名」や「受信日時」と並べて表示させることができます。さらに、「検索フォルダ」の条件に組み込むことで、「ステータスが1（未対応）のメールだけを抽出するフォルダ」を自動構築することも可能です。
VBAでデータを仕込み、Outlookの機能で視覚化する。このコンビネーションが完成すれば、あなたのメール処理能力は爆発的に向上します。
—
まとめ：ここをクリアすれば、Outlook VBAはバッチリです！
今回は、Outlook VBAにおけるデータ永続化の要「ユーザー定義プロパティ」の読み書きと保存について解説しました。
- データは「隠しポケット（UserProperties）」に格納する
- 作成時は型を意識し、 `.Add(Name, Type, True)` を使う
- 変更後は必ず `.Save` で永続化する
- 読み込み時はいきなりアクセスせず、 `.Find()` で存在確認（`Nothing` チェック）を行う
この4つの鉄則さえ守れば、Outlookを単なる連絡ツールから、堅牢な業務管理システムへと進化させることができます。
ここをマスターしたあなたなら、もうマクロの記録の卒業生ではありません立派なOutlook VBAエンジニアです。ぜひ実際の業務で試してみてくださいね。それでは、次のステップでお会いしましょう！
