Users exceeding their mail quota is something that occurs all the time. Going through the database properties box can be difficult and doesn't tell a user what their quota actually is. I created an action button that calls an agent in our corporate mail template on the $Inbox folder call Database Info. Users can click it and their database information is displayed to them including a warning window if they are over their quota. See code below.
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Action Button: @Command([ToolsRunMacro] ; "(database properties)" ) Agent: Agent Title: (database properties) Agent Type: Shared, Hidden Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim server As String Dim Size As Long Dim Quota As Double Set db = session.CurrentDatabase server=db.Server If server="" Then server="Local" End If size=db.Size/1056000 quota=db.SizeQuota/1024 Messagebox "Database Information:" &Chr(10)_ &Chr(10)_ & "Database Title: " & db.Title & Chr(10) _ & "Resides on Server: " & server & Chr(10) _ & "Full File Path name: " & db.FilePath & Chr(10) _ &Chr(10)_ & "Database Size Information:" & Chr(10) _ &Chr(10)_ & "Size (Mb): " & size & Chr(10) _ & "Quota: (Mb): " & quota & Chr(10) _ & "Percent used: " & db.PercentUsed & Chr(10) _ &Chr(10)_ & "Database Design Information:" & Chr(10) _ &Chr(10)_ & "Inherits from Template: " & db.DesignTemplateName & Chr(10)_ & "Database is the Template: " & db.TemplateName & Chr(10)_ & "Replica ID: " & db.ReplicaID,MB_OK+MB_ICONINFORMATION,"Database Property Synopsis" If quota <> 0 Then If size > quota Then Messagebox "You are Currently Over your quota" ,MB_OK+MB_ICONINFORMATION,"What this Agent Does" End If End If End Sub