Du kannst zwar in der Konfiguration des Servers unter SMTP/Routre - Beschränkung eine max. Nachrichtengröße eintragen. Da ist aber
a) sehr ungenau und
b) gilt das auch für interne Mails.
Über Regeln in der Mail In Datenbank geht das auch nicht, da es keine Regel gibt, die ein Attachment erkennt.
Bleibt dir nur der Weg, eine eigene Routine zu schreiben, die ein evt. vorhandenes Attachment automatisch löscht und dann dem Absender eine Nachricht zukommen läßt, daß ihr nur Textnachrichten entgegennehmt.
Hab hier mal nen Code ausgegraben
Description: This agent will delete all of the attachments in the selected documents of your mailbox. It will also leave a short summary of what files were deleted at the bottom of each message. This is a very usefull tool to incorporate into the mail template to assist users in cleaning their mailboxes.
Code: Option Public
Option Compare Nocase
Sub Initialize
Dim Continue As Integer
Continue = Msgbox("You are about to delete all of the attachments from the documents" _
& " that you have selected. Are you sure you want to continue?",292,"Delete Attachments")
If Continue = 6 Then ' 6 = Yes 7 = No
DeleteAttachments
End If
End Sub
Sub DeleteAttachments
Dim Session As New NotesSession
Dim Db As NotesDatabase
Dim DocCollection As NotesDocumentCollection
Dim Doc As NotesDocument
Dim Field As NotesRichTextItem
Dim countera As Integer
Dim counterb As Long
Dim Style As NotesRichTextStyle
Set Db = Session.CurrentDatabase
Set DocCollection = Db.UnprocessedDocuments
Set Doc = DocCollection.GetFirstDocument
Set Style = Session.CreateRichTextStyle
Style.FontSize = 4
Style.NotesColor = 4 '4 = Blue
While Not (Doc Is Nothing)
If Doc.HasEmbedded Then
Set Field = Doc.GetFirstItem("Body")
Call Field.AddNewLine(3)
Style.Underline = True
Call Field.AppendStyle(Style)
Call Field.AppendText("You have removed the following files from this document to conserve space:")
Forall x In Field.EmbeddedObjects
If x.Type = 1454 Then '1454 means the embedded object is an attachment
countera = countera + 1
counterb = counterb + x.filesize
Style.Underline = False
Call Field.AppendStyle(Style)
Call Field.AddNewLine(1)
Call Field.AppendText("(" & x.Name & ")")
Call x.Remove
Call Doc.Save (True,True)
End If
End Forall
End If
Set Doc = DocCollection.GetNextDocument(Doc)
Wend
If countera > 0 Then
Msgbox "Thank you for cleaning your mailbox!" & String$(2,Chr(13)) _
& "Attachments Deleted: " & countera & Chr(13) _
& "Space Recovered: " & Cstr(Cint(counterb/1024)) & " Kb" & String$(2,Chr(13)) _
& "Note: The recovered space will be reallocated after the database is compacted." & Chr(13)_
,48,"Delete Attachments"
Else
Msgbox "The documents you have selected do not contain any attachments.",48, "Delete Attachments"
End If
End Sub
Da ist i.G schon alles drin, was du brauchst.
eknori
