こんにちは！日々のメール処理やスケジュール管理、本当にお疲れ様です。
マクロの記録から一歩踏み出し、「自分の手でOutlookを自在にコントロールしたい」と思い立ったあなたへ。今日は、プロの現場でも必ずと言っていいほど使われる「実行ユーザーの動的判定とセキュリティ制御」の極意をお伝えします。
「マクロを作ったはいいけれど、部署のメンバー全員に勝手に実行されたら困る……」
「特定の管理者だけが実行できるように、ログインしている人を自動で判別したい」
そんな現場の切実な悩みを、Outlook VBAの心臓部であるオブジェクトモデルを使って美しく解決していきましょう。
ここをクリアすれば、あなたのOutlook VBAのスキルは間違いなく一段階上のステージに到達します。さあ、一緒に扉を開けましょう！
—
1. Outlook VBAの「三種の神器」：Application・NameSpace・Session
まずは、私たちが操作するOutlookの世界がどうなっているのか、地図を広げるように全体像を把握しましょう。
Outlook VBAを書くとき、私たちは常に「階層構造（オブジェクトモデル）」の中にいます。これを無視してコードを書くと、Excelのマクロの感覚が抜けきらずにエラーの沼にハマってしまいます。
階層のイメージ図
[Application] (Outlookのアプリそのもの)
└── [Session / NameSpace] (MAPIという通信プロトコルを司るセッション)
└── [CurrentUser] (今、Outlookにログインしているあなた)
└── [AddressEntry] (あなたのメールアドレスや表示名などの詳細情報)
Excel VBAであれば `ActiveCell` のように「今選択しているセル」を直接触りがちですが、Outlookは違います。Outlookは「メールサーバーと通信する巨大なデータベース」のようなもの。そのため、「今誰がこのOutlookを動かしているのか」というセッション（Session）を必ず経由して取得する必要があります。
—
2. ログインユーザー情報を動的に取得する魔法のコード
百聞は一見に如かず。まずは、現在Outlookを動かしているユーザーの名前とメールアドレスをメッセージボックスに表示するコードを見てみましょう。
以下のコードを、VBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してみてください。
Sub CheckCurrentUserInfo()
‘ — オブジェクト変数の宣言 —
Dim myNamespace As Outlook.NameSpace
Dim currentUser As Outlook.AddressEntry
Dim userEmail As String
Dim userName As String
‘ 1. セッション（NameSpace）の取得
‘ Application.Session または Application.GetNameSpace(“MAPI”) で取得します
Set myNamespace = Application.Session
‘ 2. 現在のログインユーザー（CurrentUser）の AddressEntry を取得
Set currentUser = myNamespace.CurrentUser.AddressEntry
‘ 3. ユーザー名とメールアドレスの取得
userName = myNamespace.CurrentUser.Name
‘ 組織内（Exchange環境など）かインターネットメールかによって
‘ 厳密なメールアドレスの取得方法は変わるため、ExUserオブジェクトを安全に経由します
On Error Resume Next
Dim exUser As Outlook.ExchangeUser
Set exUser = currentUser.GetExchangeUser()
If Not exUser Is Nothing Then
‘ Exchange環境（社内メール等）の場合
userEmail = exUser.PrimarySmtpAddress
Else
‘ POP/IMAPなどの場合
userEmail = currentUser.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x39FE001E”)
End If
On Error GoTo 0
‘ 4. 結果の出力
MsgBox “【ログインユーザー情報】” & vbCrLf & _
“名前: ” & userName & vbCrLf & _
“アドレス: ” & userEmail, vbInformation, “ユーザー確認”
End Sub
コードの解説：ここがポイント！
- `Application.Session`
これが今日の主役の入口です。現在のOutlookセッションを呼び出します。
- `myNamespace.CurrentUser.AddressEntry`
「今、このOutlookを開いて作業しているのは誰か？」という情報をアドレス帳の形式（AddressEntry）で根こそぎ引っ張ってきます。固定の文字列で判定するのではなく、動的に（自動で）取得するため、PCが変わっても、ユーザーが代わっても正しく機能します。
—
3. 実践！権限チェックによるマクロのガード実装
ユーザー情報が取れるようになったら、いよいよ本丸である「権限チェック（セキュリティ制御）」です。
例えば、「一斉メール送信」や「重要データの削除」を行うマクロがあるとします。これを総務や情シスの特定メンバー（例：管理者）以外が実行した場合、即座に処理を中断させたい――そんな現場の要望を満たす実用的なパターンがこちらです。
Sub SecureMacroExecution()
‘ — 1. 管理者のメールアドレスリストを定義 —
‘ 実務では配列や定数、あるいは外部ファイルから読み込んでもOKです
Dim adminEmails As Variant
adminEmails = Array(“admin_takahashi@example.com”, “manager_sato@example.com”)
‘ — 2. 現在のユーザーのアドレスを取得 —
Dim myNamespace As Outlook.NameSpace
Set myNamespace = Application.Session
Dim currentUserEmail As String
currentUserEmail = GetUserEmail(myNamespace.CurrentUser.AddressEntry)
‘ — 3. 権限チェック（ホワイトリスト方式） —
Dim isAuthorized As Boolean
isAuthorized = False
Dim i As Long
For i = LBound(adminEmails) To UBound(adminEmails)
‘ 大文字小文字を区別せずに比較するため LCase を使用
If LCase(currentUserEmail) = LCase(adminEmails(i)) Then
isAuthorized = True
Exit For
End If
Next i
‘ — 4. 権限に応じた処理の分岐 —
If Not isAuthorized Then
MsgBox “【セキュリティ警告】” & vbCrLf & _
“あなたにはこのマクロを実行する権限がありません。” & vbCrLf & _
“実行者: ” & currentUserEmail, _
vbCritical, “アクセス拒否”
Exit Sub ‘ 処理を強制終了！
End If
‘ ==========================================
‘ ここから下が「権限を持つ人のみ」が通る本処理
‘ ==========================================
MsgBox “認証成功！管理者用処理を実行します。”, vbInformation, “成功”
‘ （ここに本来行いたい自動化処理を記述）
End Sub
‘ — 【ヘルパー関数】メールアドレスを安全に取得する関数 —
Private Function GetUserEmail(addrEntry As Outlook.AddressEntry) As String
On Error Resume Next
Dim exUser As Outlook.ExchangeUser
Set exUser = addrEntry.GetExchangeUser()
If Not exUser Is Nothing Then
GetUserEmail = exUser.PrimarySmtpAddress
Else
GetUserEmail = addrEntry.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x39FE001E”)
End If
On Error GoTo 0
End Function
—
4. 陥りやすい罠とエラー回避の知見
Outlook VBAを書き始めると、多くの人がここでつまずくというポイントを先回りして解説しておきます。
罠①：「あれ、メールアドレスが変な文字列（EX形式）で取れる……？」
社内のExchange環境（Active Directory等）でありがちなトラブルです。Outlookが内部的に持っているアドレス形式（`/o=First Organization/…` のようなもの）がそのまま取得されてしまうことがあります。
【対策】
上記のサンプルコードにあるように、`ExchangeUser` オブジェクトにキャストして `PrimarySmtpAddress` を引くか、MAPIプロパティ（`0x39FE001E`）を直接叩くことで、確実に私たちが普段使っている「`xxx@example.com`」の形式で取得できます。ここはプログラマの腕の見せ所です。
罠②：オフライン作業時やプロファイル初期設定時の `Nothing` エラー
Outlookが完全に起動しきっていない状態や、オフラインセッションのタイミングで `Application.Session` にアクセスすると、オブジェクトが正常に返ってこずに「オブジェクト変数が設定されていません（エラー 91）」でクラッシュすることがあります。
【対策】
大規模なマクロを組む際は、処理の冒頭で `If Application.Session.CurrentUser Is Nothing Then …` のようなヌルチェック（空っぽかどうかの確認）を挟むと、極めて堅牢（ロバスト）なコードになります。
—
最後に：ここをクリアすれば、基本はバッチリ！
お疲れ様でした！
今回は「Application.Session.CurrentUser.AddressEntry」を起点としたユーザー情報の動的取得と、それを活用したセキュリティ権限チェックの本質を解説しました。
「誰が実行しているかをプログラムが自ら判断し、アクセスをコントロールする」
これができるようになると、単なる個人用の便利ツールから、チームや組織全体で安心して運用できる「本格的な業務システム」へと、あなたのマクロは生まれ変わります。
ここをクリアしたあなたなら、もうOutlook VBAの基本はバッチリです。自信を持って、次の自動化の扉を叩いてください。あなたのエンジニアライフを、これからも心から応援しています！
