title image


Smiley Re: Max. Datenbankgröße erreicht -> Mail an User?
Für die Quota klauen wir ein bischen bei Tode :-))





Set db = source.database



size = db.Size

quota = db.SizeQuota

percent = 90

If size >= (quota*percent/100) Then



If size < quota Then

Msgbox "Ihrer Maildatenbank hat 90 % der erlaubten Größe erreicht! (Zur Zeit: " + Cstr(Cint(w)) + " MB)"



Else

Msgbox "Die maximale Größe Ihrer Maildatenbank ist überschritten (Zur Zeit: " + Cstr(Cint(w)) + " MB)! Bitte löschen Sie nicht benötigte Dokumente!"



End If

End If





Sollte hinhauen.

Christian
Nutzt bitte auch ab und zu die "Archiv"-Schaltfläche!!
So geht preigegebenes Wissen nicht verloren :-))


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: