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