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 de 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. Start na het invoeren van de bovenstaande code uw Outlook opnieuw om de code van kracht te laten worden.

4. Vanaf nu, wanneer u e-mails met bijlagen verzendt, worden de bijlagen automatisch verwijderd uit de verzonden items zoals in de volgende schermafbeelding:

Opmerking:: Deze code is alleen beschikbaar voor het standaard data-account.

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.