例: 文書を削除する

次の例では、フォルダのすべての文書を削除します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim doc As NotesDocument  
  Set db = session.CurrentDatabase
  Set view = db.GetView("Folder1")
  Set doc = view.GetFirstDocument()
  While Not(doc Is Nothing)
     Call doc.Remove(True)
     Set doc = view.GetFirstDocument()
  Wend
End Sub

次の例では、コレクションから文書を削除します。

Sub Initialize 
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim nid As String
  Set db = session.CurrentDatabase
  Set collection = db.FTSearch("white wine", 0)
  Set doc = collection.GetFirstDocument()
  Call collection.DeleteDocument(doc)
End Sub