◆ NameSpace.CurrentUserプロパティ

現在のOutlookログオンユーザーの表示名を取得します。

記述例：

現在のOutlookログオンユーザーを表示

Set MyNameSpace = Application.GetNameSpace("mapi") Msgbox MyNameSpace.CurrentUser

★Outlookルートオブジェクト 取得 (NameSpaceオブジェクト) ★現在のOutlookログオンユーザー名を表示

　

新規フォームを開くと「作者」に現在のログオンユーザー名が自動表示

Sub item_open() Set MyNameSpace = Application.GetNameSpace("mapi") If Item.CreationTime = #4501/01/01# then UserProperties("作者").value = MyNameSpace.CurrentUser End if End sub

★アイテムを開いた時に発生するイベント ★Outlookルートオブジェクトを取得(NameSpaceオブジェクト) 　 ★アイテムが新規なら（＝作成日時が4501/01/01なら） ★作者プロパティを現在のログオンユーザーとする

≫≫  Outlookフォーム作成／開発／VBSプログラミング  ≫≫ Outlookオブジェクトモデルから学ぶ