LOTUSSCRIPT/COM/OLE CLASSES

Examples: LimitRevisions property
This agent cycles the revision limit from 0 to 1000 in increments of 100.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 lr# = db.LimitRevisions
 If lr# > 999 Then





   db.LimitRevisions = 0
 Else
   db.LimitRevisions = lr# + 100
 End If
 Messagebox db.LimitRevisions,, "Limit $Revisions"
End Sub

See Also