Comment supprimer automatiquement les pièces jointes des e-mails une fois qu’ils ont été envoyés, directement depuis le dossier Éléments envoyés ?
Lorsque vous envoyez un e-mail avec des pièces jointes, celles-ci sont stockées par défaut dans le dossier Éléments envoyés, accompagnant le message. Pour réduire la taille de votre fichier PST, vous souhaiterez peut-être supprimer automatiquement ces pièces jointes du dossier Éléments envoyés dès que l’e-mail est envoyé. Dans cet article, je vous explique comment automatiser cette opération dans Outlook.
Supprimer automatiquement les pièces jointes après l’envoi des e-mails depuis Éléments envoyés
Supprimer automatiquement les pièces jointes après l’envoi des e-mails depuis Éléments envoyés
Le code VBA suivant vous permet de supprimer automatiquement les pièces jointes dès l’envoi des e-mails depuis Outlook. Voici la marche à suivre :
1. Maintenez enfoncées les touches « ALT » + «F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Dans la fenêtre « Microsoft Visual Basic pour Applications », double-cliquez sur « ThisOutlookSession » dans le volet « Projet1 (VbaProject.OTM) » pour ouvrir le module, puis copiez-collez le code suivant dans le module vide.
Code VBA : suppression automatique des pièces jointes après l’envoi des e-mails depuis Éléments envoyés :
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. Après avoir inséré le code ci-dessus, veuillez redémarrer Outlook pour que les modifications prennent effet.
4. Désormais, lorsque vous envoyez des e-mails avec des pièces jointes, celles-ci sont automatiquement supprimées du dossier Éléments envoyés, comme illustré dans la capture d’écran suivante :
Remarque : Ce code fonctionne uniquement avec le compte de données par défaut.
Meilleurs outils de productivité Office
Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !
📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...
📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…
📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…
🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...
👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…
👩🏼🤝👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…
Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !
🚀 Téléchargement en un clic — Obtenez tous les compléments Office
Fortement recommandé : Kutools for Office (5-en-1)
Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !
- ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
- 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
- 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint