Examples: Copying a document

  1. This example makes a copy of the first document in the CategoryView view in the same database.
    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Set db = session.CurrentDatabase
  Set view = db.GetView("CategoryView")
  Set doc = view.GetFirstDocument
  Call doc.CopyToDatabase(db)
End Sub
  2. This example copies documents from one database to another.
    Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim db2 As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set db2 = New NotesDatabase _
  ("", Inputbox("Name of database file?"))
  Call db.UpdateFTIndex(True)
  Set dc = db.FTSearch("Acme", 0)
  Set doc = dc.GetFirstDocument()
  While Not(doc Is Nothing)
     'Use the call statement because to return
     'value is needed
     Call doc.CopyToDatabase(db2)
     Set doc = dc.GetNextDocument(doc)
  Wend
End Sub