Outlookサポートナビ！  ≫≫≫ Outlookフォーム作成／VBSプログラミング

　

◆ 現在のOutlookログオンユーザーを取得する

オブジェクト

プロパティ（現在のOutlookログオンユーザーを取得）

NameSpace

CurrentUser

記述法： NameSpaceオブジェクト.CurrentUser

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

　

★NameSpaceオブジェクトの取得はApplicationオブジェクトのGetNameSpace("mapi")メソッドを使います。

Set 変数 ＝ Application.GetNameSpace("mapi")  → NameSpaceオブジェクトを取得します。

　

　

記述例：

記号

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

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

★Outlookルートオブジェクト 取得 (NameSpace Object)

★現在の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ルートオブジェクトを取得

　

★アイテムが新規なら（＝作成日時が4501/01/01なら）

★作者プロパティを現在のログオンユーザーとする

　

　

※新規アイテム／既存アイテムで処理を分ける場合はItem.CreationTimeプロパティで条件式を作成します。

※参考：既存アイテムのみ処理を実行する ／ 新規アイテムのみ処理を実行する