Examples: CreateFTIndex method

This agent creates or recreates a full-text index in the current database.

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