Examples: Created property (NotesDocument - LotusScript)

  1. If the last document in the Main View of the current database was created on February 7, 1995 at 10:17:16 A.M., this script prints "2/7/95 10:17:16 AM."
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim createDate As Variant
Set db = session.CurrentDatabase
Set view = db.GetView( "Main View" )
Set doc = view.GetLastDocument
createDate = doc.Created
Messagebox( createDate )
  2. This script uses the Created property to see if a document was created before August 12, 1995. If so, the document is copied to another database and removed from the current database.
    Dim doc  As NotesDocument
Dim archiveDb As NotesDatabase
'...set value of doc...
'...set value of archiveDb...
If ( doc.Created < Datenumber( 1995, 8, 12 ) ) Then
  Call doc.CopyToDatabase( archiveDb )
  Call doc.Remove( False )
End If