Comment supprimer toutes les pièces jointes d'un email dans Outlook ?
Normalement, lorsque vous prévisualisez un email, vous pouvez supprimer une pièce jointe en faisant un clic droit et en sélectionnant l'option Supprimer la pièce jointe. Parfois, il peut y avoir de nombreuses pièces jointes dans un message électronique, et il serait fastidieux de les supprimer une par une. Voici deux astuces simples pour supprimer toutes les pièces jointes d'un seul email, ainsi que de plusieurs emails dans Outlook.
Supprimer manuellement toutes les pièces jointes d'un seul message électronique dans Outlook
Supprimer toutes les pièces jointes de plusieurs messages électroniques dans Outlook avec du code VBA
Supprimer facilement toutes les pièces jointes d'un ou plusieurs emails avec Kutools pour Outlook
Supprimer manuellement toutes les pièces jointes d'un seul message électronique dans Outlook
Il est facile de supprimer toutes les pièces jointes d'un email sélectionné grâce à la fonctionnalité Supprimer les pièces jointes dans Outlook.
Étape 1 : Sélectionnez le message électronique dont vous allez 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 Tout sélectionner dans le groupe Sélection de l'onglet Pièces jointes.
Cette étape vous permettra de sélectionner toutes les pièces jointes de ce message électronique sélectionné en une seule fois.
É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'avertissement, cliquez sur le bouton Supprimer les pièces jointes.
Ensuite, toutes les pièces jointes de ce message électronique sélectionné seront supprimées dès que possible.
Remarque : La fonctionnalité Supprimer les pièces jointes fonctionne bien dans Outlook 2010 et les versions ultérieures, mais pas dans Outlook 2007.
Supprimer facilement toutes les pièces jointes de plusieurs emails sélectionnés dans Outlook :
Avec l'utilitaire Détacher toutes les pièces jointes de Kutools pour Excel, vous pouvez facilement supprimer toutes les pièces jointes de plusieurs emails sélectionnés comme le montre la démonstration ci-dessous. (Les pièces jointes seront enregistrées dans un dossier spécifié) Téléchargez et essayez maintenant ! (30-jour d'essai gratuit)
Supprimer toutes les pièces jointes de plusieurs messages électroniques dans Outlook avec du code VBA
Si vous souhaitez supprimer toutes les pièces jointes de plusieurs messages électroniques dans Microsoft Outlook, la méthode suivante vous aidera à le faire facilement. Nous vous recommandons d'activer toutes les macros dans votre Microsoft Outlook en premier.
Étape 1 : Allez dans le dossier Mes Documents, créez un nouveau dossier et nommez-le OLAttachments.
Étape 2 : Sélectionnez plusieurs messages électroniques dont vous supprimerez les pièces jointes ultérieurement.
Remarque : Vous pouvez sélectionner des messages électroniques non consécutifs en maintenant la touche Ctrl enfoncée et en cliquant.
Vous pouvez sélectionner des messages électroniques consécutifs en maintenant la touche Maj enfoncée et 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 suivant dans le panneau 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.
Maintenant, toutes les pièces jointes des messages électroniques sélectionnés sont supprimées, en laissant des liens hypertexte vers chaque pièce jointe supprimée au bas de tous les messages électroniques sélectionnés.
Supprimer facilement toutes les pièces jointes d'un ou plusieurs emails avec Kutools pour Outlook
L'utilitaire Détacher toutes les pièces jointes de Kutools pour Outlook peut rapidement supprimer toutes les pièces jointes d'un ou plusieurs emails sélectionnés dans Outlook. Veuillez procéder comme suit.
Kutools pour Outlook : avec plus de 100 add-ins pratiques pour Outlook, essai gratuit sans limitation pendant 30 jours.
1. Sélectionnez un ou plusieurs messages électroniques avec les pièces jointes que vous souhaitez supprimer, puis cliquez sur Kutools > Outils de pièces jointes > Détacher tout. Voir la capture d'écran :
2. Dans la boîte de dialogue Paramètres de détachement, veuillez configurer comme suit.
- 2.1 Cliquez sur le bouton Parcourir pour sélectionner un dossier où enregistrer toutes les pièces jointes supprimées.
- 2.2 Par défaut, la case Détacher les pièces jointes dans le style ci-dessous est cochée, choisissez une option pour enregistrer les pièces jointes dans différents dossiers selon les emails si nécessaire.
- 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 tout.
4. Ensuite, une boîte de dialogue Kutools pour Outlook s'affichera pour vous indiquer combien de pièces jointes ont été supprimées. Veuillez cliquer sur le bouton OK.
Maintenant, toutes les pièces jointes sont immédiatement supprimées, ne laissant que les liens hypertexte dans les emails sélectionnés. Vous pouvez cliquer sur le lien hypertexte pour ouvrir la pièce jointe correspondante si nécessaire.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis appliquer l'opération selon les étapes ci-dessus.
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...
📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...
📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...
🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à 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 – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !
🚀 Téléchargement en un clic — Obtenez tous les compléments Office
Recommandé vivement : Kutools pour Office (5-en-1)
Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !
- ✅ Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
- 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
- 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint