例: CurrentDatabase property (NotesUIWorkspace - LotusScript)
次の例は現在のデータベースのプロパティを設定し、[By Category] ビューを開きます。
Dim workspace As New NotesUIWorkspace
Dim db As NotesUIDatabase
Set db = workspace.CurrentDatabase
Call db.OpenView("By Category")次の例は現在のデータベースのプロパティを設定し、[By Category] ビューを開きます。
Dim workspace As New NotesUIWorkspace
Dim db As NotesUIDatabase
Set db = workspace.CurrentDatabase
Call db.OpenView("By Category")