例: RemoveFTIndex method

次のエージェントは、現在のデータベースから全文索引を削除します。

Sub Initialize
  Dim session As New Notessession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.IsFTIndexed Then
    Call db.RemoveFTIndex()
    Messagebox "Database index removed",, "FT index"
  Else
    Messagebox "Database is not indexed",, "FT index"
  End If
End Sub