Previously we were able to change the quota to allow users to still send email when the reached or exceeded their quota. This no longer works in LN 8.5. Has the syntax of the coding changed in 8.5 such that I would have to update the code below?
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 + 300
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