Comment supprimer toutes les pièces jointes d’un e-mail dans Outlook ?
Normalement, lors de la prévisualisation d’un courriel, vous pouvez supprimer une pièce jointe en cliquant dessus avec le bouton droit et en sélectionnant l’option Supprimer la pièce jointe. Cependant, si un message contient de nombreuses pièces jointes, les supprimer une par une devient vite fastidieux. Découvrez ici deux méthodes simples pour supprimer toutes les pièces jointes d’un seul courriel — ou même celles de plusieurs courriels simultanément — directement dans Outlook.
Supprimer manuellement toutes les pièces jointes d’un seul message dans Outlook
Supprimer toutes les pièces jointes de plusieurs messages dans Outlook à l’aide d’un code VBA
Supprimez facilement toutes les pièces jointes d’un ou de plusieurs courriels avec Kutools pour Outlook
Supprimer manuellement toutes les pièces jointes d’un seul message dans Outlook
Il est facile de supprimer toutes les pièces jointes d’un message sélectionné grâce à la fonctionnalité Supprimer les pièces jointes d’Outlook.
Étape 1 : Sélectionnez le message dont vous souhaitez supprimer les pièces jointes ultérieurement.
Étape 2 : Cliquez sur l’une des pièces jointes dans le volet de lecture pour activer les Outils de pièces jointes.
Étape 3 : Cliquez sur le bouton Sélectionner tout dans le groupe Sélection de l’onglet Pièces jointes.
Cette étape vous permet de sélectionner en un clic toutes les pièces jointes du message choisi.
Étape 4 : Cliquez sur le bouton Supprimer la pièce jointe dans le groupe Actions de l’onglet Pièces jointes.
Étape 5 : Dans la boîte de dialogue d’alerte, cliquez sur le bouton Supprimer les pièces jointes.
Toutes les pièces jointes du message sélectionné sont alors supprimées instantanément.
Remarque : La fonctionnalité « Supprimer les pièces jointes » fonctionne parfaitement dans Outlook 2010 et les versions ultérieures, mais n’est pas disponible dans Outlook 2007.
Supprimez facilement toutes les pièces jointes de plusieurs courriels sélectionnés dans Outlook :
Grâce à l’outil Détacher toutes les pièces jointes de Kutools pour Excel, vous pouvez facilement supprimer toutes les pièces jointes de plusieurs e-mails sélectionnés, comme illustré dans la démonstration ci-dessous. (Les pièces jointes seront enregistrées dans un dossier spécifié.) Téléchargez et essayez dès maintenant ! (Essai gratuit de 30 jours)
Supprimer toutes les pièces jointes de plusieurs messages dans Outlook à l’aide d’un code VBA
Si vous souhaitez supprimer toutes les pièces jointes de plusieurs messages dans Microsoft Outlook, la méthode suivante vous permettra de le faire facilement. Nous vous recommandons tout d’abord d’activer toutes les macros dans votre Microsoft Outlook.
Étape 1 : Accédez au dossier Mes documents, créez un Nouveau dossier et nommez-le OLAttachments
Étape 2 : Sélectionnez plusieurs messages dont vous souhaitez supprimer les pièces jointes ultérieurement.
Remarque : Vous pouvez sélectionner des messages non consécutifs en maintenant la touche Ctrl enfoncée tout en cliquant.
Vous pouvez sélectionner des messages consécutifs en maintenant la touche Maj enfoncée tout en cliquant.
Étape 3 : Ouvrez l’éditeur VBA en appuyant simultanément sur les touches Alt et F11.
Étape 4 : Développez Projet1 > Objets Microsoft Outlook dans la barre de gauche, puis double-cliquez sur ThisOutlookSession pour l’ouvrir dans l’éditeur. Voir la capture d’écran suivante :
Étape 5 : Copiez et collez le code VBA ci-dessous dans le volet d’édition.
Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
' Get the path to your My Documents folder
sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
On Error Resume Next
' Instantiate an Outlook Application object.
Set objApp = CreateObject("Outlook.Application")
' Get the collection of selected objects.
Set oSelection = objApp.ActiveExplorer.Selection
' Set the Attachment folder.
sFolderPath = sFolderPath & "\OLAttachments"
' Check each selected item for attachments. If attachments exist,
' save them to the Temp folder and strip them from the item.
For Each aMail In oSelection
' This code only strips attachments from mail items.
' If aMail.class=olMail Then
' Get the Attachments collection of the item.
Set oAttachments = aMail.Attachments
iCount = oAttachments.Count
If iCount > 0 Then
' We need to use a count down loop for removing items
' from a collection. Otherwise, the loop counter gets
' confused and only every other item is removed.
For i = iCount To 1 Step -1
' Save attachment before deleting from item.
' Get the file name.
sFile = oAttachments.Item(i).FileName
' Combine with the path to the Temp folder.
sFile = sFolderPath & "\" & sFile
' Save the attachment as a file.
oAttachments.Item(i).SaveAsFile sFile
' Delete the attachment.
oAttachments.Item(i).Delete
'write the save as path to a string to add to the message
'check for html and use html tags in link
If aMail.BodyFormat <> olFormatHTML Then
sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
Else
sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
sFile & "'>" & sFile & "</a>"
End If
Next i
'End If
' Adds the filename string to the message body and save it
' Check for HTML body
If aMail.BodyFormat <> olFormatHTML Then
aMail.Body = aMail.Body & vbCrLf & _
"The file(s) were saved to " & sDeletedFiles
Else
aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
"The file(s) were saved to " & sDeletedFiles & "</p>"
End If
aMail.Save
'sets the attachment path to nothing before it moves on to the next message.
sDeletedFiles = ""
End If
Next 'end aMail
ExitSub:
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End SubÉtape 6 : Appuyez sur la touche F5 pour exécuter ce code VBA.
Toutes les pièces jointes des messages sélectionnés sont désormais supprimées, et des liens hypertexte vers chacune d’entre elles apparaissent en bas des messages concernés.
Supprimez facilement toutes les pièces jointes d’un ou de plusieurs courriels avec Kutools pour Outlook
L’utilitaire Détacher toutes les pièces jointes de Kutools pour Outlook permet de supprimer rapidement toutes les pièces jointes d’un ou plusieurs courriels sélectionnés dans Outlook. Procédez comme suit.
Kutools pour Outlook : plus de 100 compléments pratiques pour Outlook, essayez-les gratuitement et sans limitation pendant 30 jours.
1. Sélectionnez un ou plusieurs messages contenant les pièces jointes que vous souhaitez supprimer, puis cliquez sur Kutools > Outils de pièces jointes > Détacher toutes. Voir la capture d’écran :
2. Dans la boîte de dialogue Paramètres de détachement, configurez les options comme suit.
- 2,1 Cliquez sur le bouton Parcourir pour sélectionner un dossier dans lequel enregistrer toutes les pièces jointes supprimées.
- 2,2 Par défaut, la case Détacher les pièces jointes avec le style suivant est cochée. Choisissez une option pour enregistrer les pièces jointes dans des dossiers distincts selon les courriels, en fonction de vos besoins.
- 2,3 Cliquez sur le bouton OK. Voir la capture d’écran :
3. Cliquez sur le bouton Oui dans la boîte de dialogue Détacher toutes.
4. Une boîte de dialogue Kutools pour Outlook s’affiche alors pour vous indiquer combien de pièces jointes ont été supprimées. Veuillez cliquer sur le bouton OK.
Toutes les pièces jointes sont désormais supprimées immédiatement ; seuls les liens hypertexte restent dans les courriels sélectionnés. Vous pouvez cliquer sur ces liens pour accéder à la pièce jointe correspondante si nécessaire.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire, cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
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