Hallo @All,
als ich gelesen habe, das Interesse an dem Applet besteht, habe ich meine Doku mal durchgesehen. Und zum einen festgestellt, das wir die Größenansicht mit LotusScript gelöst haben, nicht wie von mir geschrieben, über ein JavaApplet!
Aber das dürfte Euch wohl egal sein, denn der Weg ist ja Ziel! Diejenigen, die mich direkt angesprochen haben (Smajli, Notesman,Tttonic), bekommen meine Doku als MS-Word-Dokument inkl. ScreenShots zugesendet. Wer´s noch haben möchte, möge mich anschreiben. Hier nun eine kurze Anleitung der Umsetzung:
1. Erstellen einer lokalen (Sicherheits-)Kopie der Schablone "mail50.ntf"
2. Schablone im Designer-Client öffnen
3. Neue Maske erstellen
4. Drei neue Felder erstellen mit folgenden Inhalten:
4a.Feld "MailDisplay"
Vorgabewert (Wert) eintragen: MailDisplay
Feldinhalte Feld "MailDisplay"
Name: MailDisplay
Typ: Text -> Berechnet zur Anzeige
4b. Feld "FileSize"
Vorgabewert (Wert) eintragen: @Trim(FileSize); FileSize
Feldinhalte Feld "FileSize"
Name: FileSize
Typ: Text -> Berechnet zur Anzeige
4c. Feld "SaveOptions"
Vorgabewert (Wert) eintragen: "0"
= verhindert das Speichern der Maske!
Feldinhalte Feld "SaveOptions"
Name: MailDisplay
Typ: Text -> Berechnet zur Anzeige
Im Register „Verbergen wenn (Hide when)“ alles anhaken
5. Lotus Script für PostOpen-Event beim Öffnen der Maske:
Sub Postopen(Source As Notesuidocument)
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Set db = session.currentdatabase
Set doc = source.document
dbsize = (db.size) / 1024
dbmax = (db.sizequota) / 1024
If dbmax <> 0 Then
percent = (dbsize/dbmax)
End If
If dbmax = 0 Then
message = "Mail-Datei hat keine Größen-" & Chr(13) & "beschränkung !"
doc.MailDisplay = message
End If
If dbmax <> 0 Then
message = "Mail-Datei hat " & Cint(percent*0.1) & "% der max. Größe!"
doc.FileSize = Cint (dbsize/1024) & " von " & Cint (dbmax) & " MB"
doc.MailDisplay = message
End If
End Sub
6. Einfügen der Maske in die Rahmengruppe "MailFS":
Öffnen der Rahmengruppe "MailFS"! Neuen Rahmen links oben erstellen:
Name: z.B.: MailSize
Typ: berechnetes Element vom Typ Maske
Wert: entsprechende Maske über Dialog auswählen, hier: neue MailSize
7. Abschlussbemerkung
Die Datenbankgröße sollte über den Administrator-Client vorgegeben werden. Wir haben uns für 40 MByte pro Nutzer entschieden. Falls keine Größen- beschränkung festgelegt wurde, erscheint u.a. Meldung: "MailDatei hat keine Größenbeschränkung"!