例: SizeQuota property

次のエージェントは、サイズの割り当て値と現在のデータベースへの警告を表示します。

Sub Initialize
  Dim session As New Notessession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Messagebox "Size quota = " & db.SizeQuota & Chr(10) & _
  "Size warning = " & db.SizeWarning,, db.Title
End Sub

次のエージェントは、サイズの割り当て値と現在のデータベースへの警告を削除します。

Sub Initialize
  Dim session As New Notessession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  db.SizeQuota = 0
  db.SizeWarning = 0
End Sub