Größe der Nachricht vor dem Versenden prüfen mit Outlook VBA

“Gibt es eine Möglichkeit, eine Warnung (oder möglicherweise eine Begrenzung) für die Größe der Dateien einzurichten, die ich per E-Mail versenden kann, über ein Outlook VBA Skript?

Ja, es ist möglich, eine Warnung oder Begrenzung für die Größe der Dateien einzurichten, die Sie per E-Mail über ein Outlook VBA-Skript versenden können. Sie können ein VBA-Skript (Visual Basic for Applications) erstellen, das die Größe der angehängten Dateien überprüft und eine Warnmeldung ausgibt oder den Versand der E-Mail verhindert, wenn die Dateigröße über einem bestimmten Schwellenwert liegt.

Hier ist ein Beispiel für ein VBA-Skript, das eine Warnung ausgibt, wenn die Größe der angehängten Datei(en) einen festgelegten Schwellenwert überschreitet:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olAttachments As Outlook.Attachments
Dim olAttachment As Outlook.Attachment
Dim lngAttachmentSize As Long
Dim lngMaxSize As Long

' Setzen Sie die maximale Dateigröße in KB
lngMaxSize = 5000 ' 5000 KB entspricht 5 MB

On Error Resume Next

If Item.Class = olMail Then
Set olAttachments = Item.Attachments
If olAttachments.Count > 0 Then
For Each olAttachment In olAttachments
lngAttachmentSize = lngAttachmentSize + olAttachment.Size
Next olAttachment

' Umrechnung von Bytes in KB
lngAttachmentSize = lngAttachmentSize / 1024

If lngAttachmentSize > lngMaxSize Then
MsgBox "Die Gesamtgröße der angehängten Datei(en) überschreitet " & lngMaxSize & " KB. Aktuelle Größe: " & lngAttachmentSize & " KB", vbExclamation
Cancel = True
End If
End If
End If
End Sub

Um das Skript in Outlook zu verwenden, führen Sie die folgenden Schritte aus:

1. Öffnen Sie Microsoft Outlook.
2. Drücken Sie ALT + F11, um den VBA-Editor zu öffnen.
3. Klicken Sie im Projektfenster auf Microsoft Outlook Objects.
4. Doppelklicken Sie auf ThisOutlookSession, um den Code-Editor zu öffnen.
5. Kopieren Sie das oben angegebene VBA-Skript und fügen Sie es in den Code-Editor ein.
6. Drücken Sie CTRL + S, um das Skript zu speichern.
7. Schließen Sie den VBA-Editor.
8. Starten Sie Outlook neu.

Nachdem Sie das Skript erfolgreich implementiert haben, erhalten Sie eine Warnung, wenn die Größe der angehängten Datei(en) den festgelegten Schwellenwert überschreitet, und der Versand der E-Mail wird abgebrochen. Sie können den Schwellenwert lngMaxSize anpassen, um die maximal zulässige Größe für E-Mail-Anhänge festzulegen.