Examples: Created property (NotesDatabase - LotusScript)

  1. This script gets the date/time that the current database was created. For example, the Created property might return 10/15/95 4:43:51 PM.
    Dim session As New NotesSession
Dim db As NotesDatabase
Dim createDate As Variant
Set db = session.CurrentDatabase
createDate = db.Created
  2. This script checks each database on the server Paris to see if the database was created in the last five days. If so, it sends a memo to the database managers asking them to read and follow the company rules about database maintenance.
    Dim directory As New NotesDbDirectory( "Paris" )
Dim db As NotesDatabase
Set db = directory.GetFirstDatabase( DATABASE )
While Not ( db Is Nothing )
  Call db.Open( "", "" )
  If ( ( Today - db.Created ) <= 5 ) Then
    Set doc = New NotesDocument( db )
    doc.Form = "Memo"
    doc.Subject = "Your new database: " + db.Title
    doc.Body =  
    "Please read rules for db maintenance."
    Call doc.Send( False, db.Managers )
  End If
  Set db = directory.GetNextDatabase
Wend