例: IsFTIndexed property (NotesDatabase - LotusScript®)

次のスクリプトは現在のデータベースに全文索引があるかどうかを調べてから FTSearch メソッドを呼び出します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
If db.IsFTIndexed Then
  Set collection = db.FTSearch( "Clay tablets", 0 )
End If

次のスクリプトは IsFTIndexed を使用してニュースレターの作成と保存に使用するメソッドを決定します。ニュースレターには、データベース sales.nsf の「press」に関係する 10 個の文書へのリンクが含まれます。データベースに全文索引があるとき、スクリプトは FTSearch を使用してデータベースを検索します。全文索引がないときは、スクリプトは Search を使用して [本文] フィールドに「press」を含む文書を選択します。ニュースレターはフォーム [Search Summary] でデータベースに保存されます。
```
Dim db As New NotesDatabase( "", "sales.nsf" )
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Dim dateTime As NotesDateTime
Dim maxDocs As Integer
maxDocs = 10
If db.IsFTIndexed Then
  Set collection = db.FTSearch( "press", maxDocs )
Else
  Set dateTime = New NotesDateTime( "" )
  Set collection = db.Search _
  ( "@Contains( Body; ""press"" )", dateTime, maxDocs ) 
End If
Set newsletter = New NotesNewsletter( collection )
Set doc = newsletter.FormatMsgWithDoclinks( db )
doc.Form = "Search Summary"
Call doc.Save( True, True )
```