Comment renommer et enregistrer les pièces jointes d'un email dans un dossier dans Outlook ?
Dans Outlook, vous recevez souvent des emails avec des pièces jointes. Avez-vous essayé de renommer les pièces jointes du message et de les enregistrer dans un dossier comme le montre la capture d'écran ci-dessous ? Évidemment, vous pouvez les enregistrer dans un dossier et les renommer une par une, mais en réalité, j'ai un code VBA qui peut rapidement renommer toutes les pièces jointes avec le même nom, puis les enregistrer dans un seul dossier.
Renommer et enregistrer des pièces jointes avec le même nom dans un dossier
Renommer et enregistrer des pièces jointes dans un dossier avec Kutools pour Outlook
Renommer et enregistrer des pièces jointes avec le même nom dans un dossier
1. Sélectionnez l'email dont vous souhaitez enregistrer les pièces jointes et leur attribuer le même nom.
2. Appuyez sur "Alt" + "F11", puis dans le volet "Projet1", double-cliquez sur "ThisOutlookSession" pour créer un nouveau script vierge dans la section de droite, puis copiez et collez le code dedans.
VBA : Renommer et enregistrer des 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", dans la fenêtre contextuelle, cochez la case "Microsoft Script Runtime".
 |  |  |
4. Cliquez sur "OK", appuyez sur la touche "F5" pour exécuter le code, une boîte de dialogue "Parcourir un dossier" s'affiche pour sélectionner ou créer un dossier où placer les pièces jointes.
5. Cliquez OK, puis donnez un nom aux pièces jointes.
6. Cliquez sur "OK", maintenant les pièces jointes sont renommées avec le même nom, s'il y a des doublons, les doublons se verront ajouter des numéros comme suffixe.
Répondre au message avec les pièces jointes d'origine dans Outlook |
| Comme nous le savons tous, les pièces jointes attachées seront supprimées du message d'origine lorsque vous répondez à un message pour le destinataire dans Outlook. Si vous souhaitez répondre au message tout en conservant les pièces jointes, vous pouvez essayer la fonction Répondre avec pièce jointe de Kutools pour Outlook. Elle permet de répondre à un message avec les pièces jointes d'origine et fonctionne également pour tous les messages. Cliquez ici pour découvrir toutes les fonctionnalités 30 jours d'essai gratuit ! |
 |
| Kutools pour Outlook : avec des dizaines de modules complémentaires pratiques pour Outlook, essayez gratuitement sans limitation pendant 30 jours. |
Renommer et enregistrer des pièces jointes dans un dossier avec Kutools pour Outlook
En fait, il existe une fonctionnalité dans "Kutools pour Outlook" -- un outil complémentaire pratique pour Outlook qui permet de renommer toutes les pièces jointes avant de les enregistrer ou de les envoyer.
Installez gratuitement Kutools pour Outlook, puis suivez les étapes ci-dessous :
1. Activez l'email dans le volet de navigation ou dans la boîte de réception selon votre préférence, cliquez sur "Kutools" > "Outils de pièces jointes" > "Renommer tout".
2. Dans la fenêtre contextuelle, saisissez le nouveau nom que vous souhaitez utiliser pour chaque pièce jointe. Cliquez sur "OK", les pièces jointes ont été renommées avec les nouveaux noms.
3. Faites un clic droit sur une pièce jointe, sélectionnez "Enregistrer toutes les pièces jointes", cliquez sur "OK" et choisissez un dossier pour enregistrer les pièces jointes selon vos besoins. Ensuite, les pièces jointes renommées seront enregistrées dans un dossier.
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