LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New Notessession Dim db As NotesDatabase Set db = session.CurrentDatabase options& = FTINDEX_ALL_BREAKS + FTINDEX_CASE_SENSITIVE If db.IsFTIndexed Then Call db.CreateFTIndex(options&, True) Messagebox "Database index recreated",, "FT index" Else Call db.CreateFTIndex(options&, False) Messagebox "New database index created",, "FT index" End If End Sub
See Also