Email-Größe vorm Senden prüfen

Das Beispiel zeigt eine Meldung nach dem Klick auf Senden an, wenn die Email eine bestimmte Größe überschreitet. Hier ist das Limit auf 10.000 Byte festgelegt, was etwas weniger als 10kb sind. Passen Sie den Wert ggf. an.

  So fügen Sie Makros in Outlook ein

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  If TypeOf Item Is Outlook.MailItem Then
    Cancel = Not (ConfirmBigAttachments(Item))
  End If
End Sub

Private Function ConfirmBigAttachments(oMail As Outlook.MailItem) As Boolean
  Dim lSize As Long
  Const MAX_ITEM_SIZE As Long = 10000 ' Byte
  Dim bSend As Boolean

  bSend = True
  If oMail.Attachments.Count Then
    oMail.Save
    lSize = oMail.Size
    If lSize > MAX_ITEM_SIZE Then
      bSend = (MsgBox("Größe: " & lSize & " Byte. Abbrechen?", vbYesNo) = vbNo)
    End If
  End If
  ConfirmBigAttachments = bSend
End Function