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