例: 文書をコピーする

  1. 次の例では、[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
  2. 次の例は、文書をあるデータベースから別のデータベースにコピーします。
    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