現在のユーザー名を取得（NotesSession クラス）

Sub Initialize
	Dim session As New NotesSession
	Dim user As String
	user = session.Username
	Print user
End Sub





LotusScript 入門 Step1-1 NotesSession

2行目 現在のセッションにアクセスして変数 session に格納。他のクラスとは違って New を使用するのを忘れないように注意
3行目 ユーザー名を格納する変数 user を宣言
4行目 NotesSession クラスの UserName プロパティから現在のユーザーの完全識別名を取得、変数 user に格納。共通名のみを取得する場合、CommonUserName プロパティを使用。（例：完全識別「CN=Administrator/O=test」の場合、共通名は「Administrator」）
5行目 Print ステートメントを使って、ユーザー名をクライアントのステータスバーに表示

LotusScript
tyoshida
April 28, 2018 at 5:15 PM
Rating
0





No comments yetLogin first to comment...