例: NotesSession class

次のスクリプトは、新しい NotesSession を作成し、その NotesSession を使用して現在のデータベースにアクセスします。現在のデータベースとは、スクリプトが実行されるデータベースです。この方法を使用すると、スクリプトにデータベースのファイル名をコーディングする必要がありません。

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If ( db.IsOpen ) Then
  Print db.Title
Else
  Call db.Open( "", "" )
  Print db.Title
End If