hab hier ein kleines script, das die größe einer Mail incl Attachments checked:
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc_size As Double
Dim quota As Integer
Set uidoc = ws.currentdocument
Set doc = uidoc.document
doc_size = doc.size()
'convert attachment size to mb
doc_size = Round(doc_size / (1024^2),1)
quota = 2
If doc_size < quota Then
Msgbox "Your attachment is ok to send. "_
& "The total size is " & doc_size & "mb",MB_ICONINFORMATION,"Attachments"
Else
Msgbox "Your attachment is too large to send. " _
& "The total size is " & doc_size & "mb" _
& "The maximum size allowed is " & quota & "mb",MB_ICONINFORMATION,"Attachments"
End If
das "Quota" ist hier auf 2MB eingestellt. Mußt nur noch ein bisschen code drum herum schreiben, da hier nur gewarnt wird, daß die Mail zu groß ist. Trotzdem wird sie aber versendet.