LOTUSSCRIPT/COM/OLE CLASSES
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
See Also