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

Author Xiaoyang Last modified 2025-08-26

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 veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

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

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

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

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

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

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Gehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen