Examples: FTIndexFrequency property

This agent cycles the update frequency for a database with a full-text index.

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