Examples: GetCurrentDatabase method

This example gets the current database and opens the By Category view.

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