Dim session As New NotesSession
Dim db As NotesDatabase
Dim indexDate As Variant
Set db = session.CurrentDatabase
indexDate = db.LastFTIndexed
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If ( db.LastModified > db.LastFTIndexed ) Then
Call db.UpdateFTIndex( False )
End If