アイテムを開くと現在のユーザー名を表示

sub Item_Open()
Set MyNameSpace = Application.GetNameSpace("mapi")
Msgbox "編集者は" & MyNameSpace.CurrentUser & "です。"
End Sub

★アイテムを開いた際に発生するイベント

★Outlookルートオブジェクトを取得（NameSpaceオブジェクト）

★現在のOutlookログインユーザー名を表示

　

※関連：現在のOutlookログオンユーザーを取得する

開こうとするユーザーが「yamada taro」以外の場合は開かない

Function Item_Open()
Set MyNameSpace = Application.GetNameSpace("mapi")
IF MyNameSpace.CurrentUser <> "yamada taro" then
Item_Open = False
End if
End Function

★アイテムを開いた際に発生するイベント

★Outlookルートオブジェクトを取得（NameSpaceオブジェクト）

★現在のOutlookログインユーザーがyamada taroでないなら

★処理を中止する（＝アイテムは開かない）

　

　

※Item_Openイベントでは戻り値をFalseに設定すると閉じる操作を中止することができます。（戻り値を格納するにはFunctionプロシージャを使う必要があります。）