View member feedback to this tip.
If you have a remote user who has a quota set on his/her local mail database and it needs to be removed, send him/her an email with a button containing the code below. When they click the button, the quota is reset.
Or, if you need to set the quota, just change the 0 in the db.sizequota= line to the number of kilobytes required. It is a big help when the user is located across the country or the globe.
Code
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dbsizequota As Long
Set db = session.CurrentDatabase
db.sizequota = 0
Messagebox "Quota Removed!"
End Sub
MEMBER FEEDBACK TO THIS TIP
The code for removing DB quota has a variable DBsizequota that is not used. I want to know what the purpose is of declaring this variable?
Code:
Sub Click(Source As Button) Dim session As
New NotesSession Dim db As NotesDatabase
Dim dbsizequota As Long Set db =
session.CurrentDatabase db.sizequota = 0
Messagebox "Quota Removed!" End Sub
-- Al S.
**********************************************
To answer the question of the unused DBSizeQuota variable, it was used in a previous version of the code for testing purposes. It has no use in this example of the script.
Thanks,
Shawn Tullier
Do you have comments of your own? Let us know.
