当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2009年6月9日火曜日

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

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

現在のユーザ名を取得するというものです。
利用するメソッドそのものは簡単なもので、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 カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: