Hoe automatisch de bijlagen verwijderen nadat e-mails zijn verzonden vanuit de verzonden items?

Wanneer u e-mail met enkele bijlagen verzendt, worden de bijlagen standaard bij de e-mails opgeslagen in de map met verzonden items. Om de grootte van uw PST-bestand te verkleinen, wilt u mogelijk de bijlagen automatisch verwijderen uit de verzonden items nadat u e-mails heeft verzonden. In dit artikel zal ik het hebben over deze taak in Outlook.

Verwijder automatisch de bijlagen na het verzenden van e-mails van de verzonden items

Verwijder automatisch de bijlagen na het verzenden van e-mails van de verzonden items

De volgende VBA-code kan u helpen bij het automatisch verwijderen van de bijlagen na het verzenden van e-mails vanuit uw Outlook, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In het Microsoft Visual Basic voor toepassingen venster, dubbelklik DezeOutlookSessie van het Project1 (VbaProject.OTM) deelvenster om de modus te openen en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: bijlagen automatisch verwijderen nadat e-mails zijn verzonden vanaf de verzonden items:

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. Nadat u de bovenstaande code heeft ingevoegd, start u Outlook opnieuw op om de code van kracht te laten worden.

4. Wanneer u vanaf nu e-mails met bijlagen verzendt, worden de bijlagen automatisch verwijderd uit de verzonden items, zoals in de onderstaande schermafbeelding: