Examples: CurrentDatabase property (NotesUIWorkspace - LotusScript)

This example sets the current database property and opens the By Category view.

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