Wenn ich definiere, alles größer xx MB geht zwingend über Postlagernd,
und eine automatische Bereinigung nach yy Tagen festlege,
wo ist da das Problem?
Gruß Uwe
.. genauso ist "Postlagernd" gedacht.
Durch die automatische Bereinigung wird sichergestellt, daß der Server nicht "voll läuft". Den Zeitraum kann man natürlich anpasen.
Als Problem kann man ansehen, daß nach der Bereinigung nicht mehr vollständig nachvollzogen werden kann, was dem Adressaten als Anhang gesendet wurde ....
Aber irgendwas ist immer 
Eine generelle Begrenzung wäre dennoch hilfreich - ich hatte neulich einen Kunden, der 30GB postlagernd versenden wollte. Da kann das mit dem "Server volllaufen" ganz schön schnell gehen. 
haha, LOL, ja, die Nutzer sind schon komisch *tztztz*
Unserem Server wäre es egal, ich hab das schlicht mit eingeplant das sowas durchaus gelegentlich vorkommen könnte, verweise bei nachfragen allerdings stets auf USB Sticks und die gelbe Post.
Nicht weil mir, oder unserem Server das Bauchschmerzen bereiten würde, sondern schlicht weil ich weiß das Empfänger zu dumm und nicht in der Lage sind das Zeug wirklich selbst abzuspeichern und es dann später immer wieder zu Theater wegen nicht erfüllter Dokumentationslieferpflichten kommen würde.
Also Fazit: Eine generelle Begrenzung ist nicht möglich. Hmpf. Na gut. Muss man so hinnehmen.
Danke für eure Inputs! 
Oli
Hallo complusit
Doch, es geht!
Einfach das folgende Script z.B. als "MaxAttachmentSize.vbs" im Scripte-Ordner speichern und beim Benutzer mit einbinden. Hier ein Beispiel mit 10MB (kannst du aber ohne Probleme anpassen), ansonsten erscheint beim Benutzer eine Meldung und die E-Mail wird nicht gesendet und der E-maileditor bleibt einfach so geöffnet.
Wir nutzen das Script z.B. noch, um die E-Mailadressen auszuwerten und sobald ein Empfänger mit einer fremden Domain eingetragen wurde, prüfen wir den Text, ob dort z.B. eine Signatur eingebunden wurde. Oder man prüft den Betreff, das z.B. kein "Spam" im Betreff steht, wenn man eine E-Mail weiterleitet, damit sie nicht wieder im Spam-Ordner beim Empfänger landet.
Viel Spaß damit
Baumi
'Strart Deklarationsbereich
Dim totalsize
Dim maxsize
Dim i
Dim attachmentsize
strError = "Fehler beim Setzen der Standardwerte für den David Client"
strAskAgain = "Beim Start des David Client werden vom Administrator vorgegeben Einstellungen gesetzt."+vbCrlf+"Möchten Sie diesen Dialog weiterhin anzeigen?"
strAskKey = "HKCU\Software\Tobit\Tobit InfoCenter\Setup\NoAskICAdmin"
attachmentsize = 0
maxsize = 1024 * 1024 * 10 'Maximal 10MB
sub Initialize(oInfoCenter, key)
'Abfrage beim betätigen des Senden-Buttons
oInfoCenter.RegisterEvent "MessageEditor/OnSend", key, "OnEditorSend"
On Error Resume Next
Set Shell = CreateObject( "WScript.Shell" )
if err <> 0 then
oInfoCenter.MsgBox strError+vbCrlf+ CStr(Err.Number)+vbCrlf+ Err.Description, "Exclamation"
Exit Sub
end if
'Dialog, um dem Benutzer anzuzeigen, das das Script Standardwerte setzt
'oNoAsk = 1 wenn der Benutzer nicht informiert werden soll
oNoAsk = 1
'oNoAsk = Shell.RegRead(strAskKey)
if err <> 0 then
err.Clear
end if
if oNoAsk <> 1 then
iResult = oInfoCenter.MsgBox(cstr(strAskAgain), "YesNoQuestion")
oRegVal = 1
if iResult = DvMbYes then
oRegVal = 0
end if
Shell.RegWrite strAskKey, oRegVal, "REG_DWORD"
end if
end sub
function OnEditorSend(oInfoCenter, oEditor)
totalsize = 0
Set oItem = oEditor.Item
'Betreff:
Subject = oItem.Subject
'Nachrichtentext
strBodyText = oItem.BodyText.HTMLText
'An
If Not oItem.Recipients.Count = 0 Then 'CC: oItem.CC.Count, BCC oItem.BCC.Count
Set oRecipients = oItem.Recipients
For Each oRecipient In oRecipients
oEMail = oRecipient.EMail 'E-Mailadresse
Next
end if
'oInfoCenter.MsgBox oEMail
Set oAttachments = oItem.Attachments
'oInfoCenter.MsgBox oAttachments.Count
For i = 0 To oAttachments.Count - 1
Set oAttachment = oAttachments.Item(Int(i))
attachmentsize = CLng(oAttachment.FileSize)
'oInfoCenter.MsgBox attachmentsize
totalsize = CLng(totalsize) + CLng(attachmentsize)
Next
'oInfoCenter.MsgBox totalsize
if totalsize > maxsize Then
oInfoCenter.MsgBox "Anhänge zu groß " & CInt(totalsize/1024/1024) & " von " & CInt(maxsize/1024/1024) & " MB"
OnEditorSend = false
else
OnEditorSend = true
'oInfoCenter.MsgBox "Anhänge OK"
end If
end functionDu hast noch kein Benutzerkonto auf unserer Seite? Registriere dich kostenlos und nimm an unserer Community teil!