DOMINO全文搜索

数据库属性中建立索引。

然后使用：

Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set dc = db.FTSearch("要查询的关键字在这", 0) '后面的数字代表着每次查询出来的 记录数量。0表示所有的。 
Msgbox dc.Count
If dc.count<>0 Then
Set doc = dc.GetFirstDocument()
While Not(doc Is Nothing)

Msgbox doc.UniversalID
Set doc = dc.GetNextDocument(doc)
Wend
End If