次のスクリプトはサーバー Algiers 上のディレクトリ NEW に置かれたデータベース PLAN.NSF を開きます。このデータベースは [All by Category] ビューで開かれ、[Current] というカテゴリが表示されるまでスクロールされます。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Call workspace.OpenDatabase _
( "Algiers", "new¥plan", "All by Category", _
"Current", False, False )
End Sub