Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Plattenplatz und Größenbeschränkung - Anzeige

<< < (2/2)

tschroeder:
ähhhhh tja also mhhhhh

Werbung ja ok, in eigener Sache nö  ;D

Du kannst die Schablonen bei OpenNtf runterladen, mußt dich aber einmal registrieren.

...

VG Thorsten

P.S.: das mit dem selber machen würd ich lassen. Kann durchaus zu "Verwirrungen" führen

hallo.dirk:
Das ist wirklich nicht ohne und alleine hätte ich das auch nicht geschafft......


Eingebaut ist das in der Maske "Switcher Form for Mail"



Das ist die Berechnung:

--- Zitat ---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
   If dbmax > 0 Then   
      percent = (dbsize/dbmax)
      For i = 0 To (percent*100)
         bars = bars & "|"
    ' Each bar represents 5%
         i = i + 5
      Next
   Else
      percent = 0
   End If
   message = Cint(percent*100) & "%"
   doc.FS = Format((dbsize/1024) , "Fixed") & " MB"
   doc.MD = message
   doc.DisplayBar = bars
End Sub
--- Ende Zitat ---

So sieht das dann im Designer aus......
Bin mir aber nicht mehr sicher wo die Sache mit den Bars war.... ???

gossifu:
Hallo & danke,

dieser Beitrag gefällt mir und ich werd' das gleich bei uns einbauen.
Die User bekommen demnächst sowieso ein neues Template, und jetzt kann sich nach der Warnungsmeldung
keiner mehr rausreden, er wüsste nicht, wie groß seine Mailbox werden darf.

mfg

Kjeld

Pascal F.:

--- Zitat von: hallodirk am 26.01.07 - 15:42:46 ---Das ist wirklich nicht ohne und alleine hätte ich das auch nicht geschafft......


Eingebaut ist das in der Maske "Switcher Form for Mail"



Das ist die Berechnung:

--- Zitat ---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
   If dbmax > 0 Then   
      percent = (dbsize/dbmax)
      For i = 0 To (percent*100)
         bars = bars & "|"
    ' Each bar represents 5%
         i = i + 5
      Next
   Else
      percent = 0
   End If
   message = Cint(percent*100) & "%"
   doc.FS = Format((dbsize/1024) , "Fixed") & " MB"
   doc.MD = message
   doc.DisplayBar = bars
End Sub
--- Ende Zitat ---

So sieht das dann im Designer aus......
Bin mir aber nicht mehr sicher wo die Sache mit den Bars war.... ???

--- Ende Zitat ---

Okay,

ich glaub ich bin doch nicht ganz dazu in der Lage  :'(

Also Fakt ist:
Wir haben eine 6.5.5er Mailschablone, die schon alles hat, außer eben diese Platzanzeige...

Kann man diesen Code (von Dirk) irgendwo in dieser Maske per Copy and Paste reinhauen und es läuft um mal ganz doof zu fragen? Die Maske "Switcher Form for Mail" hat ja auch noch mehrere Punkte  :-\  :o

DerAndre:
Einfach die Felder unter die Zeile Berechneter Text einfügen.
Sie sollten nicht bearbeitbar sein, und daß war es schon.

Navigation

[0] Themen-Index

[*] Vorherige Sete