例: IsInMultiDbIndexing property (NotesDatabase - LotusScript®)

次のエージェントは、現在のデータベースに対するサイト検索の設定を切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.IsInMultiDbIndexing Then
    db.IsInMultiDbIndexing = False
    Messagebox "Do not include in multi-db indexing",, _
    "Multi-db indexing"
  Else
    db.IsInMultiDbIndexing = True
    Messagebox "Include in multi-db indexing",, _
    "Multi-db indexing"
  End If
End Sub