Zum Hauptinhalt springen

Wie kann man Anhänge automatisch aus den gesendeten Elementen entfernen, nachdem E-Mails versendet wurden?

Author: Xiaoyang Last Modified: 2025-05-28

Wenn Sie eine E-Mail mit Anhängen versenden, werden die Anhänge standardmäßig zusammen mit den E-Mails im Ordner „Gesendete Elemente“ gespeichert. Um die Größe Ihrer PST-Datei zu reduzieren, möchten Sie möglicherweise die Anhänge aus den gesendeten Elementen automatisch entfernen, nachdem die E-Mails versendet wurden. In diesem Artikel werde ich über diese Aufgabe in Outlook sprechen.

Anhänge automatisch aus den gesendeten Elementen entfernen, nachdem E-Mails versendet wurden


Anhänge automatisch aus den gesendeten Elementen entfernen, nachdem E-Mails versendet wurden

Der folgende VBA-Code kann Ihnen helfen, Anhänge automatisch zu löschen, nachdem E-Mails aus Ihrem Outlook versendet wurden. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten „ALT“ + F11“ gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie im Fenster „Microsoft Visual Basic for Applications“ doppelt auf „ThisOutlookSession“ im Bereich „Project1(VbaProject.OTM)“, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.

VBA-Code: Anhänge automatisch entfernen, nachdem E-Mails aus den gesendeten Elementen versendet wurden:

Public WithEvents SentMailItems As Outlook.Items
    Private Sub Application_Startup()
    Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
    End Sub
    Sub SentMailItems_ItemAdd(ByVal Item As Object)
    Dim xSentMail As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xAttachment As Outlook.Attachment
    Dim xAttachmentInfo As String
    On Error Resume Next
    If Item.Class = olMail Then
       Set xSentMail = Item
    End If
    Set xAttachments = xSentMail.Attachments
    For i = xAttachments.Count To 1 Step -1
        Set xAttachment = xAttachments.Item(i)
        xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
                          "</BODY></HTML>" & vbCrLf & xAttachmentInfo
        xAttachment.Delete
    Next
    xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
                         xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
    xSentMail.Save
End Sub
the screenshot of step about using vba to automatically remove the attachments after emails sending from the sent items 1

3. Nachdem Sie den obigen Code eingefügt haben, starten Sie Ihr Outlook neu, damit der Code wirksam wird.

4. Von nun an werden die Anhänge automatisch aus den gesendeten Elementen gelöscht, wenn Sie E-Mails mit Anhängen versenden, wie im folgenden Screenshot gezeigt:

the screenshot of step about using vba to automatically remove the attachments after emails sending from the sent items 2

Hinweis: Dieser Code ist nur für das Standard-Datenkonto verfügbar.


Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu bearbeiten, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...

📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...

📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...

🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...

👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...

Entsperren Sie Kutools für Outlook sofort mit einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

kutools for outlook features1 kutools for outlook features2