Lotus Notes / Domino Sonstiges > Tools & Downloads

MailDB-Größe - User-Info

<< < (2/5) > >>

Glombi:
Hier der abgespeckte Code (nicht getestet, aber das Verfahren sollte klar sein). Das ganze arbeitet mit 2 Schwellwerten.

dim session as NotesSession
dim db as NotesDatabase   
   
   Dim DbSize As Double
   Dim DbSizeDiffThreshold1 As Double
   Dim DbSizeDiffThreshold2 As Double
   Dim SizeThreshold1 As Double
   Dim SizeThreshold2 As Double
   
   Dim SizeThreshold1_Above As Integer
   Dim SizeThreshold2_Above As Integer
   
set session = New NotesSession
set db = session.CurrentDatabase

   'Bestimme Größe der Mail-DB (Byte), berechne [MB]
   DbSize = db.Size / 1024 / 1024
   
   'Setze Schwellwerte
   SizeThreshold1 = 450
   SizeThreshold2 = 500
   
   'Berechne Differenz
   DbSizeDiffThreshold1 = SizeThreshold1 - DbSize
   DbSizeDiffThreshold2 = SizeThreshold2 - DbSize
   
   If DbSizeDiffThreshold2 < 0 Then
      SizeThreshold2_Above = True
   Else
      SizeThreshold2_Above = False
   End If
   
   If DbSizeDiffThreshold1 < 0 Then
      SizeThreshold1_Above = True
   Else
      SizeThreshold1_Above = False
   End If
   
   'Falls kleiner 0, ist Schwellwert überschritten => Meldung
   If (SizeThreshold2_Above < 0) Or (SizeThreshold1_Above < 0) Then      
         

      If SizeThreshold2_Above Then
msgbox "Die Größe Ihrer Maildatenbank hat den erlaubten Wert von " & cstr(SizeThreshold2) & " MB überschritten! Bitte löschen oder archivieren Sie nicht mehr benötigte Mails!",0+64,"Hinweis"
      Else
msgbox "Ihre Maildatenbank ist größer als " & cstr(SizeThreshold1) & " MB! Bitte löschen oder archivieren Sie nicht mehr benötigte Mails!",0+64,"Hinweis"
      End If
      
      
Andreas

Redredson:
Hallo,

werd das Ding mal ausprobieren.

Merci !

Redredson  :)

MartinG:
Ich habe die Lösung von OpenNTF bei uns in die Mailschablone eingebaut - die finde ich recht nett. Wird halt immer nur beim Öffnen von Notes aktualisiert...

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")

Gruss
Martin

PS: Sieht dann so aus wie angehängt...
PS2:  50MB halte ich allerdings für sehr sehr heftig. Ist da überhaupt noch sinnvolles arbeiten für die User möglich. Ich habe heute mit einem diskuttiert der jetzt 1,5GB Platz braucht und das Problem ist das seine Argumente wirklich nicht schlecht sind...

Redredson:
Hi,

sowas ähnliches habe ich auch in unserer 5er Mail-Schablone. (Siehe Dateianhang). Dies reicht mir aber nicht: Besser wäre eine Benachrichtigung per Mail,wo "idiotensicher" beschreiben ist, was zu tun ist, wenn der Warnschwellenwert erreicht wird.

50 MB reichen für Standard-Udser aus. Dies sind bei uns ca. 80 % der User. Power User und Mail-In DB's sind natürlich größer.

Redredson

MartinG:
Dateianhang?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete