Comment renommer et enregistrer les pièces jointes d’un e-mail dans un dossier sous Outlook ?
Dans Outlook, vous recevez souvent des messages accompagnés de pièces jointes. Avez-vous déjà essayé de renommer les pièces jointes d’un message et de les enregistrer dans un dossier, comme le montre la capture d’écran ci-dessous ? Bien sûr, vous pouvez toujours les enregistrer dans un dossier et les renommer une par une — mais j’ai une solution encore plus rapide : un code VBA qui permet de renommer instantanément toutes les pièces jointes avec le même nom et de les sauvegarder en un seul clic dans le dossier de votre choix.
Renommer et enregistrer les pièces jointes avec le même nom dans un dossier
Renommer et enregistrer les pièces jointes dans un dossier avec Kutools pour Outlook
Renommer et enregistrer les pièces jointes avec le même nom dans un dossier
1. Sélectionnez le message dont vous souhaitez enregistrer les pièces jointes et leur attribuer un nom identique.
2. Appuyez sur les touches « Alt » + « F11 » , puis, dans le volet « Projet1 », double-cliquez sur « ThisOutlookSession » pour ouvrir un nouveau script vierge dans le volet de droite, et collez-y le code.
VBA : Renommer et enregistrer les pièces jointes
Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object 'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xAttachment.SaveAsFile xFilePath
Set xFile = xFSO.GetFile(xFilePath)
xCount = 1
Saved = False
xExt = "." & xFSO.GetExtensionName(xFilePath)
xTmpName = xNewName
xNewName = xTmpName & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Else
xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
While Saved = False
xNewName = xTmpName & xCount & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Saved = True
Else
xCount = xCount + 1
End If
Wend
End If
Next
Next
Set xFSO = Nothing
End Sub
3. Cliquez sur « Outils » > « Références », puis cochez la case « Microsoft Script Runtime » dans la boîte de dialogue qui s’ouvre.
 |  |  |
4. Cliquez sur « OK », puis appuyez sur la touche « F5 » pour exécuter le code. La boîte de dialogue « Parcourir les dossiers » s’ouvre alors, vous permettant de sélectionner ou de créer un dossier destiné à recevoir les pièces jointes.
5. Cliquez sur OK, puis attribuez un nom à vos pièces jointes.
6. Cliquez sur « OK ». Vos pièces jointes portent désormais toutes le même nom. En cas de doublons, des numéros seront automatiquement ajoutés en suffixe pour les différencier.
Répondre à un message avec les pièces jointes d’origine dans Outlook |
| Comme chacun le sait, les pièces jointes sont supprimées du message d’origine lorsque vous répondez à un destinataire dans Outlook. Si vous souhaitez répondre tout en conservant les pièces jointes, découvrez la fonction qui vous permet d’inclure automatiquement les pièces jointes d’origine — et ce, pour tous vos messages !Cliquez pour découvrir toutes les fonctionnalités avec un essai gratuit de 30 jours !Kutools pour Outlook's Répondre avec pièce(s) jointe(s) |
 |
| Kutools pour Outlook : doté de dizaines de modules complémentaires pratiques pour Outlook, à tester gratuitement sans aucune limitation pendant 30 jours. |
Renommer et enregistrer les pièces jointes dans un dossier avec Kutools pour Outlook
En réalité, « Kutools pour Outlook », un complément pratique pour Outlook, intègre une fonctionnalité qui vous permet de renommer toutes vos pièces jointes avant de les enregistrer ou de les envoyer.
Installer gratuitement Kutools pour Outlook, puis procédez comme suit :
1. Activez l’e-mail dans le volet de navigation ou dans la fenêtre de message selon vos préférences, puis cliquez sur « Kutools » > « Outils de pièces jointes » > « Renommer tout ».
2. Dans la boîte de dialogue qui s’ouvre, saisissez le nouveau nom que vous souhaitez attribuer à chaque pièce jointe, puis cliquez sur « OK ». Vos pièces jointes sont désormais renommées avec ce nouveau nom.
3. Cliquez avec le bouton droit sur l’une des pièces jointes, sélectionnez « Enregistrer toutes les pièces jointes », cliquez sur « OK », puis choisissez un dossier pour enregistrer les pièces jointes selon vos besoins. Les pièces jointes renommées sont alors sauvegardées dans ce dossier.
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