Examples: DeleteDocument method (NotesDocumentCollection - LotusScript®)

This example deletes the first document in the collection and puts the remaining documents in a folder called "My Favorites."

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  
  Set db = session.CurrentDatabase
  Set collection = db.FTSearch("Business reports", 10)
  Set doc = collection.GetFirstDocument
  Call collection.DeleteDocument(doc)
  Call collection.PutAllinFolder("My Favorites")
End Sub