LOTUSSCRIPT/COM/OLE CLASSES
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
See Also