LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim folderName As String Dim view As NotesView Dim count As Integer Dim doc As NotesDocument Set db = session.CurrentDatabase folderName = "Botanist's Delight" Set view = db.GetView( folderName ) count = view.FTSearch( "pollution", 0 ) If count >= 2 Then Set doc = view.GetNthDocument(2) Call doc.RemoveFromFolder( folderName ) Call view.Clear Else Messagebox "Number found: " & count, , _ "No documents removed" End If End Sub
See Also