Examples: SizeQuota property

  1. This agent displays the size quota and warning for the current database.
    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
  2. This agent removes the size quota and warning for the current database.
    Sub Initialize
  Dim session As New Notessession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  db.SizeQuota = 0
  db.SizeWarning = 0
End Sub