Wie entferne ich die Anhänge automatisch, nachdem E-Mails von den gesendeten Artikeln gesendet wurden?

Beim Senden von E-Mails mit einigen Anhängen werden die Anhänge mit den E-Mails standardmäßig im Ordner für gesendete Elemente gespeichert. Um die Größe Ihrer PST-Datei zu verringern, möchten Sie möglicherweise die Anhänge nach dem Senden von E-Mails automatisch aus den gesendeten Elementen entfernen. In diesem Artikel werde ich über diese Aufgabe in Outlook sprechen.

Entfernen Sie die Anhänge automatisch, nachdem E-Mails von den gesendeten Elementen gesendet wurden

Entfernen Sie die Anhänge automatisch, nachdem E-Mails von den gesendeten Elementen gesendet wurden

Der folgende VBA-Code kann Ihnen helfen, die Anhänge nach dem Senden von E-Mails aus Ihrem Outlook automatisch zu löschen. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Im Microsoft Visual Basic für Applikationen Fenster, Doppelklick DieseOutlookSession von dem Projekt1 (VbaProject.OTM) Bereich, um den Modus zu öffnen, und kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Entfernen Sie Anhänge automatisch, nachdem E-Mails von den gesendeten Elementen gesendet 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

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

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