LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New Notessession Dim db As NotesDatabase Set db = session.CurrentDatabase If db.IsFTIndexed Then If db.FTIndexFrequency = FTINDEX_DAILY Then db.FTIndexFrequency = FTINDEX_HOURLY Messagebox "Frequency set to hourly",, "FT index" Elseif db.FTIndexFrequency = FTINDEX_HOURLY Then db.FTIndexFrequency = FTINDEX_IMMEDIATE Messagebox "Frequency set to immediate",, "FT index" Elseif db.FTIndexFrequency = FTINDEX_IMMEDIATE Then db.FTIndexFrequency = FTINDEX_SCHEDULED Messagebox "Frequency set to scheduled",, "FT index" Else db.FTIndexFrequency = FTINDEX_DAILY Messagebox "Frequency set to daily",, "FT index" End If End If End Sub
See Also