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ères nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
