Temporary Quota Increase button

[Ron Mesic]

Greetings:
I'm not a Lotus Developer... but we had a "Magic Button" passed around that when clicked would temporarialy increase the user's mail quota in Lotus Notes 6.5.

Now, I'm told that the button does not work with new version of Lotus Notes 8.5.

Can anyone on this forum help out with a revision or a new method for temporary extension to the quota?

Here is the 6.5 button's code:

Sub Click(Source As Button)
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Set db = session.currentdatabase   
   Set doc = db.GetProfileDocument("Database Profile")
   
   If doc Is Nothing Then
      Msgbox "Database Profile not found"
      Exit Sub
   End If
   
   If doc.HasItem("DBQuotaSize") Then
      quota = doc.DBQuotaSize(0)
      '100 on next line increases quota by 100MB, use 1000 for 1GB.
      doc.DBQuotaSize = quota + 100
      Call doc.Save(True,False)
      nuquota = doc.DBQuotaSize(0)
      Msgbox "Old quota: " + Str(quota) + " has been changed to "  + Str(nuquota)
   Else
      Exit Sub
   End If
   
   
End Sub