.
HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1
212-599-2048
Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development
Chat now
.
EN - English
CN - 中文
JP - 日本語
DE - Deutsch
FR - Français
BR - Português
RU - Pу́сский
IT - Italiano
IN - हिन्दी
ES - Español
KR - 한국어
ID - Indonesia
NL - Dutch
TR - Türkçe
SA - العربية
SE - Svenska
NO - Norsk
PL - Polski
TH - ไทย
DK - Dansk
MY - Malay
PH - Filipino
GR - Ελληνικά
FI - Suomi
IL - עברית
IE - Gaeilge
CZ - Čeština
UA - Українська
RO - Română
VN - Tiếng Việt
BD - বাংলা
HU - Magyar
Need a Domino Consultant? Call NotesMail +1 212-599-2048
-
HCLSoftware Business Partner
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
See Also
Created property
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Feedback on
Help
or
Usability
?
Help on Help
All Help Contents