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