例: 文書をコピーする

次の例では、[CategoryView] ビューの最初の文書を同じデータベース内にコピーします。

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

次の例は、文書をあるデータベースから別のデータベースにコピーします。

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