Hoe verwijdert u automatisch de bijlagen nadat e-mails zijn verzonden via de map Verzonden items?
Wanneer u een e-mail met bijlagen verzendt, worden deze standaard samen met de e-mail opgeslagen in de map Verzonden items. Om de grootte van uw PST-bestand te verkleinen, kunt u de bijlagen automatisch uit de Verzonden items verwijderen zodra de e-mails zijn verzonden. In dit artikel bespreek ik hoe u deze taak in Outlook uitvoert.
Verwijder automatisch de bijlagen nadat e-mails zijn verzonden vanuit de Verzonden Items
Verwijder automatisch de bijlagen nadat e-mails zijn verzonden vanuit de Verzonden Items
De volgende VBA-code helpt u bij het automatisch verwijderen van bijlagen zodra e-mails zijn verzonden vanuit uw Outlook. Volg deze stappen:
1. Houd de toetsen „ALT” + „F11” ingedrukt om het venster „Microsoft Visual Basic for Applications” te openen.
2. Dubbelklik in het venster „Microsoft Visual Basic for Applications” op „ThisOutlookSession” in het deelvenster „Project1 (VbaProject.OTM)” om de module te openen, en kopieer en plak vervolgens de volgende code in de lege module.
VBA-code: Verwijder automatisch bijlagen nadat e-mails zijn verzonden vanuit 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 Outlook opnieuw op nadat u de bovenstaande code hebt ingevoegd, zodat de code van kracht wordt.
4.Vanaf nu worden bijlagen automatisch verwijderd uit de Verzonden Items zodra u e-mails met bijlagen verzendt, zoals in de volgende schermafbeelding wordt getoond:
Opmerking: Deze code is uitsluitend beschikbaar voor het standaard gegevensaccount.
Beste Office-productiviteitstools
Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!
📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…
📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…
📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…
🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...
👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...
👩🏼🤝👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!
🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!
- ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
- 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
- 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint