Hallo pluto,
Ich habe diese Toll von Forum bekommen. ich denke das ist was du willst.
Mit diesem script bekommt die User Permanet die Meldung Ihre Mail-datenbank hat eine Große.... erreicht hat.
Script wird bei -Ressuren-anderen-datenbank script-postevent gepeichert
mit diesem Script kannst Du deinen Usern auf die Nerven gehen:
Sub PostOpen(Source as Notesuidatabase)
Dim db As NotesDatabase
Dim MaxSize As Double, CurrSize As Double
Set db=source.Database
Maxsize = 20 'Megabytes
CurrSize = Round( db.Size/1000000, 2)
If CurrSize > MaxSize Then
MsgBox "Your mail database exceeds the corporate " _
& "maximum size of " & MaxSize & " Mb. Your mail " _
& "database is " & CurrSize & " Mb and contains " _
& db.AllDocuments.Count & " documents. Please " _
& "remove or archive old messages. If you " _
& "require assistance, please contact IS.", 0, _
"Mail Database Needs Archiving"
End If
End Sub
bei Maxsiz gibst die Grosse an. Warnung ist nur ein Text .das kannst du bliebig ändern
mfg