Lotus Notes Weiterleitungsagent

Hallo Leute,
ich habe unten stehenden Weiterleitungsagenten installiert der auch super funktioniert. Allerdings leitet er alles weiter. Da unsere IT eine extrene Sperre ab 10 MB gesetzt hat bekomme ich das Problem das die Mail nicht rausgeht und ich alle 20 s ne Fehlermeldungsmail …. wenn ich mal etwas länger weg bin sprengt es das Postfach und ich bekomme Ärger.

Hat jemand eine Idee wie man das auf 9 MB o.ä. begerenzen kann.?? Danke für Eure Tips im Vorraus.
s-luigi

Sub Initialize

Const sForward = “mustermann@web.de”
Dim session As New NotesSession
Dim note As NotesDocument
Dim docNew As Notesdocument
Dim db As NotesDatabase
Dim item As NotesItem

Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext
Set item = note.GetFirstItem(“Body”)

Set docNew = New Notesdocument(db)
docNew.Form = “Memo”
Call item.copyitemtodocument(docNew, “”)
docNew.SendTo = sForward
docNew.From = ” ” & note.From(0)
docNew.Principal = ” ” & note.From(0)
docNew.Subject = note.Subject(0)

Call docNew.Send(True)