例: SetOption method

次のエージェントは、データベースオプションの値を切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As Notesdatabase
  Set db = session.CurrentDatabase
  If db.GetOption(DBOPT_SOFTDELETE) Then
    Call db.SetOption(DBOPT_SOFTDELETE, False)
  Else
    Call db.SetOption(DBOPT_SOFTDELETE, True)
  End If
  Messagebox db.GetOption(DBOPT_SOFTDELETE) ,, "Soft deletions"
End Sub