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

 

◆ NameSpace.CurrentUserプロパティ

 

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

 

オブジェクト

プロパティ

NameSpace

CurrentUser

記述例: 変数 = 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オブジェクトモデルから学ぶ