Examples: CopyToDatabase method

This script checks if a document was created before August 12, 1995. If so, it copies the document to an archive database.

Dim archiveDb As New NotesDatabase( "", "" )
Dim doc  As NotesDocument
'...set value of archiveDb...
'...set value of doc...
If ( doc.Created < Datenumber( 1995, 8, 12 ) ) Then
  Call doc.CopyToDatabase( archiveDb )
'You can use the call statement because the
'program does not need the return value 
'(a handle to the new document)
End If