現在のユーザ名を表示する

今回もネタがないのでテキトーに。

現在のユーザ名を取得するというものです。
利用するメソッドそのものは簡単なもので、NotesSessionクラスのUserNameまたはUserNameListメソッドです。
二つの違いは、別名を含むか含まないかというのと、String型で返すかNotesName型で返すかという程度のものです。

この2つのメソッドは現在のセッションに対するユーザ名を取得するものです。
そのため、どこで実行されたかにより返す値が異なります。

クライアント上で実行される場合、その時のノーツユーザ名が表示されますが、
スケジュールエージェントなど、サーバで実行される場合はサーバ名を返します。

サンプルは、UserNameListの値を表示するものです。
クライアントでの実行を想定したものになっているので、ボタンを押したユーザの情報が表示されます。

-------------------------------------------------------------------
Sub Click(Source As Button)
Dim session As New NotesSession
Dim i As Integer

i = 1
Forall x In session.UserNameList
Msgbox x.Common, MB_OK + MB_ICONINFORMATION, "ユーザ名の表示[" + Cstr(i) + "]"
i = i + 1
End Forall
End Sub

【PR】ノーツ/ドミノに関するお問い合わせは下記まで【PR】
Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

コメント