LOTUSSCRIPT /COM/OLE のクラス

例:LimitUpdatedBy プロパティ
次のエージェントは、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

関連項目