Everytime I check user’s mail file quota, I have to from Admin client or Web Access.
Is there a way to check it when opening the mailbox in Notes Client?
Subject: Is there a way to see mailbox quota in Notes client instead of Admin Client or iNotes?
I’m not sure if there’s a native way to do so; we have an action that we’ve added to the Tools button in the Inbox. Stick this sub in a script library, then call it from the button like this:
Sub Click(Source As Button)
QuotaQuery(1)
End Sub
Sub QuotaQuery (QueryType As Integer)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim subString As String
Dim dbTitle As String
Dim asize As Double
Dim quota As Long
subString$ = session.CommonUserName
dbTitle$ = db.Title
asize = Round((db.Size*(db.PercentUsed/100))/1048576, 0)
quota = 100
If (QueryType = 1) And (asize < (quota - 10)) Then
Msgbox "The mail database titled """ & dbTitle$ & """ is " _
& asize & " MB and contains " _
& db.AllDocuments.Count & " documents. " _
& "REMINDER: The corporate quota limit is " & quota & " MB.", 0, _
"The Size of Your Mail File"
Else
If asize > quota Then
Msgbox "The mail database titled """ & dbTitle$ & """ exceeds the corporate " _
& "maximum quota size of " & quota & " MB. This mail " _
& "database is currently " & asize & " MB and contains " _
& db.AllDocuments.Count & " documents. Please " _
& "remove or archive old messages. If you " _
& "require assistance, please reference the 'Managing Your Mail' " _
& "database on your home server.", 0, _
"URGENT: You Have Exceeded Your Mail File Quota Limit"
Else
If asize => (quota - 10) Then
Msgbox "The mail database titled """ & dbTitle$ & """ is approaching the corporate " _
& "maximum quota size of " & quota & " MB. This mail " _
& "database is " & asize & " MB and contains " _
& db.AllDocuments.Count & " documents. Please " _
& "remove or archive old messages. If you " _
& "require assistance, please reference the 'Managing Your Mail' " _
& "database on your home server.", 0, _
"WARNING: You Are Nearing Your Mail Database Quota Limit"
End If
End If
End If
End Sub