Examples: IsInMultiDbIndexing property (NotesDatabase - LotusScript®)

This agent toggles the setting for including the current database in multi-database indexing.

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