このスクリプトは、Somerville サーバー上のディレクトリを開き、ディレクトリナビゲータを作成します。
Dim session As New NotesSession
Dim directory As NotesDirectory
Dim navigator As NotesDirectoryNavigator
Dim db As NotesDatabase
Set directory = session.GetDirectory( "Somerville" )
Set navigator = directory.CreateNavigator()