Quota Wert = 0 - Was mach ich falsch?

[sid2002]

Hallo zusammen.

Ich habe hier im Forum ein nettes Script gefunden das ich in die Mailschablone eingebaut habe.

Es geht darum dass der aktuelle Speicherstatus + Quota angezeigt wird in der Schablone unter dem Namen.

Mir zeigt es lediglich die Datenbankbegrenzung (Quota) an. Bei der aktuellen Datenbankgrösse steht immer nur 0.

Kann mir jemand sagen was ich hier falsch gemacht habe?



Hier das Script:



Maske:

Switcher Form for Mail

Globals - Initialize

   Dim session As New NotesSession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   Dim size As Double
   Dim sizeinmb As Double
   Dim used As Double
   Dim quota As Double
   
   size = db.Size
   used = Round ( db.PercentUsed , 2 )
   quota = Round ( db.SizeQuota / 1024 , 2 )
   
   sizeinmb = Round (( size / 1024) / 1024 , 2 )
   
   Call Session.SetEnvironmentVar ( "ONTF_mailfilesize", Cstr ( sizeinmb ))
   Call Session.SetEnvironmentVar ( "ONTF_mailpercent", Cstr ( used ))
   If quota > 0 Then Call Session.SetEnvironmentVar ( "ONTF_mailquota", Cstr (quota ))


Und in der Maske unter dem berechneten Wert wo der User angezeigt wird einen neuen berechneten Wert erstellen mit:

Quota := @Environment("ONTF_MailQuota");
@If(Quota = "";"Speicher: "+ @Environment("ONTF_MailFileSize") + " MB";
"Speicher: " + @Environment("ONTF_MailFileSize") + "MB von " + Quota + "MB")



Danke und Gruss

Patrick

[Tode]

wie wärs mal mit dem Debugger ?

Da könntest Du wunderschön sehen, ob die Variable "size" gefüllt wird, was in der Variablen "sizeninmb" steht, und was sonst noch so passiert... Dann noch schnell in die notes.ini nach den Umgebungsvariablen schauen, und schon hast Du Dein Problem gelöst.

Es ist nun mal in der Notes- Entwicklung nicht damit getan, ein wenig Code von OpenNTF zu kopieren, sondern man sollte sich auch ein kleinwenig mit der Materie befassen.

gruß
Tode