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
