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プロパティで条件式を作成します。

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