Mail quota information button

ction 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