LOTUSSCRIPT/COM/OLE CLASSES
Examples: Created property
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
See Also
Created property
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary