例: CurrentDatabase property (NotesUIWorkspace - LotusScript)

次の例は現在のデータベースのプロパティを設定し、[By Category] ビューを開きます。

Dim workspace As New NotesUIWorkspace
Dim db As NotesUIDatabase
Set db = workspace.CurrentDatabase
Call db.OpenView("By Category")