例: CreateFTIndex method

次のエージェントは、現在のデータベースに全文索引を作成、または再作成します。

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