Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: sid2002 am 30.11.06 - 09:55:12
-
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
-
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