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

Author: Xiaoyang Last Modified: 2025-08-06

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: