User Email Quota report

I was wondering if anyone knew of a way to let users know what their email quota was. I would like to be able to send an email to each user in my organization with their current email quota. People are constantly getting confused with the %used button. Can I code an agent that will grab that information and deliver it via email?

TIA,

Tina

Subject: User Email Quota report

Try this: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

Subject: Nice discussion about this on Bruce Elgort’s blog

http://www.bruceelgort.com/blogs/be.nsf/plinks/BELT-69JRE7