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
