例: LimitUpdatedBy property (NotesDatabase - LotusScript®)

次のエージェントは、UpdatedBy の制限を 100 ずつ増やして 0 から 1000 の間で切り替えます。

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