例: GetDatabase method

次のエージェントはデータベースを取得し、結果として得られた NotesDatabase オブジェクトを IsOpen を使用してテストし、データベースが存在し、開けることを確認します。

Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Set db = s.GetDatabase("snapper", "names2")
  If Not db.IsOpen Then
    Messagebox "names2.nsf does not exist on snapper",, _
    "No names2.nsf"
  Else
    Messagebox db.Title,, "Title of names2.nsf"
  End If
End Sub

次のエージェントはデータベースを取得し、データベースが存在し開ける場合のみ NotesDatabase オブジェクトを作成します。エージェントは、NotesDatabase オブジェクトが作成されたかどうかを確認するテストを行います。
```
Sub Initialize
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Set db = s.GetDatabase("snapper", "names2", False)
  If db Is Nothing Then
    Messagebox "names2.nsf does not exist on snapper"
  Else
    Messagebox db.Title,, "Title of names2.nsf"
  End If
End Sub
```