例: GetCurrentDatabase method
次の例は現在のデータベースを取得し、[By Category] ビューを開きます。
Dim workspace As New NotesUIWorkspace
Dim db As NotesUIDatabase
Set db = workspace.GetCurrentDatabase
Call db.OpenView("By Category")次の例は現在のデータベースを取得し、[By Category] ビューを開きます。
Dim workspace As New NotesUIWorkspace
Dim db As NotesUIDatabase
Set db = workspace.GetCurrentDatabase
Call db.OpenView("By Category")