LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase lu# = db.LimitUpdatedBy If lu# > 1000 Then db.LimitUpdatedBy= 0 Else db.LimitUpdatedBy = lu# + 100 End If Messagebox db.LimitUpdatedBy,, "Limit $UpdatedBy" End Sub
See Also