現在のデータベースのタイトルを取得(NotesDatabase クラス)

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.Currentdatabase
	Print db.Title
End Sub





LotusScript 入門 Step1-2 NotesDatabase

3行目 NotesDatabase クラスの変数 db を宣言
4行目 NotesSession クラスの CurrentDatabase プロパティから現在のデータベースを取得、変数 db に格納。その際、Set ステートメントを使用。
5行目 NotesDatabase クラスの Title プロパティからデータベースのタイトルを取得。Print ステートメントを使って、タイトルをクライアントのステータスバーに表示

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





No comments yetLogin first to comment...