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 une 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 emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
