【実務・中級編】Application.Session.CurrentUser.AddressEntryを用いた、現在のユーザーのメールアドレスと表示名の動的取得 – Outlook VBA解析バイブル

【Outlook VBA】`Application.Session.CurrentUser`を極める：ログインユーザー情報をミリ秒単位で安全に取得する極意

業務自動化の現場において、マクロからメールを自動生成・送信する処理は日常茶飯事だ。しかし、そこに「誰が送信したか」の動的な判別ロジックが欠けていると、途端にシステムは脆弱になる。

ハードコーディングされたメールアドレス。環境が変わるたびに壊れるスクリプト。
「なぜ、この開発者は定数としてアドレスを直書きしてしまったのか？」

プロフェッショナルなエンジニアであれば、Outlookのセッションから現在のログインユーザー情報を動的に取得し、環境依存のない堅牢なコードを書くべきだ。今回は、`Application.Session.CurrentUser.AddressEntry`を用いた、実務で絶対に破綻しないユーザー情報取得の極意を伝授する。

—

1. なぜ「固定値」や甘い取得方法がバグを生むのか

多くの初学者や、場当たり的なコードを書くプログラマは、以下のような記述をしがちだ。

• `Environ(“Username”)` でWindowsのログイン名を取ろうとする（ExchangeのプライマリSMTPアドレスとは一致しないことが多い）。
• Outlookのプロファイル名から推測する。
• コード内に `sender = “hoge@example.com”` とハードコーディングする。

これらはすべて、組織の再編、複数プロファイルの運用、あるいはOffice 365（Exchange Online）のエイリアス環境において確実に破綻する。

Outlook VBAにおいて、現在のアカウント情報を正確かつ安全に取得するための唯一の正解は、セッション（NameSpace）を介してMAPI層から直接 `CurrentUser` を引くことである。

—

2. オブジェクトモデルの構造とライフサイクル

この処理を実装するにあたり、Outlookのオブジェクト階層を正しく理解しておく必要がある。

Application
└─ Session (NameSpace)
└─ CurrentUser (AddressEntry)
└─ GetExchangeUser() (ExchangeUser)

ここで重要なのは、`CurrentUser` が返すのは単なる文字列ではなく、`AddressEntry` オブジェクトであるという点だ。
組織内のユーザー（Exchange環境）であれば、この `AddressEntry` からさらに `GetExchangeUser` メソッドを呼び出すことで、プライマリSMTPアドレスや役職、部署といった詳細なプロパティにアクセスできる。

しかし、IMAPやPOP、あるいはオフライン状態など、環境によっては `ExchangeUser` オブジェクトが `Nothing` を返すケースがある。ここを見落とすことが、現場で「突然マクロがクラッシュする」最大の原因となる。

—

3. 【プロダクションコード】堅牢性・例外処理を網羅した実装例

以下のコードは、単にアドレスを取るだけでなく、Exchange環境とそれ以外の環境（POP/IMAP等）の両方に対応し、ヌルポインタ例外（エラー 91）を完全に防ぐ防壁を張り巡らせたプロダクションコードだ。

Option Explicit

”
” @Title: 現在のログインユーザー情報 取得モジュール
” @Description: 組織のExchange環境およびPOP/IMAP環境に対応し、
” ログインユーザーの表示名とメールアドレスを安全に取得する。
”
Public Sub Example_GetUserInfo()
Dim userName As String
Dim userEmail As String

‘ ユーザー情報の取得を実行
If GetCurrentOutlookUser(userName, userEmail) Then
MsgBox “取得成功:” & vbCrLf & _
“表示名: ” & userName & vbCrLf & _
“アドレス: ” & userEmail, vbInformation, “セッション情報”

‘ 【実務での活用例】
‘ Call CreateReportMail(userName, userEmail)
Else
MsgBox “有効なユーザー情報を取得できませんでした。”, vbCritical, “エラー”
End If
End Sub

”
” 現在のOutlookユーザーの表示名とメールアドレスを安全に取得する関数
”
” @param [out] oName 取得した表示名格納用
” @param [out] oEmail 取得したメールアドレス格納用
” @return Boolean 成功時はTrue、失敗時はFalse
”
Public Function GetCurrentOutlookUser(ByRef oName As String, ByRef oEmail As String) As Boolean
Dim ns As Outlook.NameSpace
Dim currUser As Outlook.AddressEntry
Dim exUser As Outlook.ExchangeUser

On Error GoTo ErrorHandler

‘ 1. セッション（NameSpace）の取得
‘ ※Application.Session は Application.GetNamespace(“MAPI”) と同義
Set ns = Application.Session

If ns Is Nothing Then
Exit Function
End If

‘ 2. 現在のユーザー（AddressEntry）の取得
Set currUser = ns.CurrentUser
If currUser Is Nothing Then
Exit Function
End If

‘ 3. 表示名の取得（これは常に取得可能）
oName = currUser.Name

‘ 4. アドレスの取得（環境による分岐処理）
‘ AddressEntryのタイプが “EX” (Exchange) かどうかで処理を分ける
If currUser.AddressEntryUserType = olExchangeUserAddressEntry Or _
currUser.AddressEntryUserType = olExchangeRemoteUserAddressEntry Then

‘ Exchange環境の場合、詳細なExchangeUserオブジェクトを取得
Set exUser = currUser.GetExchangeUser()

If Not exUser Is Nothing Then
oEmail = exUser.PrimarySmtpAddress
End If

End If

‘ Exchange環境で取得できなかった場合、またはPOP/IMAP等の場合のフォールバック
If oEmail = “” Then
‘ PropertyAccessorを使用してSMTPアドレスを直接引きに行く（MAPIプロパティ: PR_SMTP_ADDRESS）
Const PR_SMTP_ADDRESS As String = “http://schemas.microsoft.com/mapi/proptag/0x39FE001E”
On Error Resume Next
oEmail = currUser.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
On Error GoTo ErrorHandler
End If

‘ 最終チェック（アドレスが空でなければ成功）
If oEmail <> “” Then
GetCurrentOutlookUser = True
End If

Exit Function

ErrorHandler:
‘ ログ出力やエラーハンドリングをここに記述
Debug.Print “Error in GetCurrentOutlookUser: ” & Err.Description
GetCurrentOutlookUser = False
End Function

—

4. コードの解説とアーキテクトの視点

① `AddressEntryUserType` による環境判定

コード内で `olExchangeUserAddressEntry` などをチェックしているのは、接続しているメールサーバーのプロトコルによって、メールアドレスの格納場所が異なるためだ。この分岐をサボると、Exchange Online環境でプライマリ以外のエイリアスが取れてしまったり、エラーで落ちたりする。

② `PropertyAccessor` によるフォールバック

もし標準のオブジェクトモデルでアドレスが取得できない場合、MAPIプロパティ（`0x39FE001E` = `PR_SMTP_ADDRESS`）を直接叩きに行く設計にしている。
これが「仕様の裏側まで知り尽くしたエンジニア」のコードだ。標準APIが塞がっている環境や特殊なアドイン環境下でも、このフォールバックがあれば処理が途切れない。

—

5. まとめ：実務で自動化ツールを組むあなたへ

マクロを書くということは、「自分がいない場所でも動き続ける無人のシステム」を構築することと同義である。
今回紹介した `Application.Session.CurrentUser.AddressEntry` を軸にした動的取得ロジックをマスターすれば、環境の変化に怯える必要はなくなる。

コピペして終わりにするのではなく、なぜこの構造が必要なのかを咀嚼し、あなたの現場の自動化ツールに組み込んでほしい。確実な石垣の上に築かれたコードだけが、業務を真の意味で加速させるのだ。