例: GetOption method

次のエージェントは、データベースオプションの値を取得します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As Notesdatabase
  Set db = session.CurrentDatabase
  If db.Getoption(DBOPT_SOFTDELETE) Then
    Messagebox "Soft deletions enabled",, db.Title
  Else
    Messagebox "Soft deletions not enabled",, db.Title
  End If
End Sub