LOTUSSCRIPT/COM/OLE CLASSES
Examples: Created property
1. This script gets the date 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
Véase también
Created property
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa