Comment renommer et enregistrer les pièces jointes de l'e-mail dans un dossier dans Outlook?

Dans Outlook, vous pouvez généralement recevoir des messages avec des pièces jointes, et essayez-vous de renommer les pièces jointes du message et de les enregistrer dans un dossier comme illustré ci-dessous? Évidemment, vous pouvez les enregistrer dans un dossier et les renommer un par un, mais en fait, j'ai un code VBA peut rapidement renommer toutes les pièces jointes avec le même nom puis enregistrer dans un dossier.

Renommez et enregistrez les pièces jointes avec le même nom dans un dossier

Renommez et enregistrez des pièces jointes dans un dossier avec Kutools for Outlook

Message de réponse avec 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 au destinataire dans Outlook. Si vous voulez répondre au massage en conservant les pièces jointes, vous pouvez essayer Kutools for Outlook's Répondre avec pièce jointe fonction, il peut répondre à un message avec les pièces jointes d'origine, fonctionne également pour tous les messafe. Cliquez pour les fonctionnalités complètes Essai gratuit de jours 60!

Kutools for Outlook: avec des dizaines de compléments Outlook très pratiques, gratuit à essayer sans limitation en jours 60.

Renommez et enregistrez 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 renommez le même nom.

2. presse Alt + F11 keys, puis dans le Project1 volet, double clic ThisOutlookSession pour créer un nouveau script vide dans la section droite, puis copiez-collez le code.

VBA: renommer et enregistrer les pièces jointes

Public Sub SaveAttachsToDisk () 'UpdatebyExtendoffice20180521 Dim xItem en tant qu'objet' Outlook.MailItem Dim xSelection en tant que Sélection Dim xAttachment As Outlook.Attachment Dim xFldObj en tant qu'objet Dim xSaveFolder en tant que String Dim xFSO en tant que Scripting.FileSystemObject Dim xFile en tant que fichier Dim xFilePath As String Dim xNewName, xTmpName As Chaîne Dim xExt As Chaîne Dim xCount As Integer Sur Erreur Reprendre Suivant Définir xFldObj = CreateObject ("Shell.Application"). browseforfolder (0, "Sélectionner un dossier", 0, 16) Définir xFSO = New Scripting.FileSystemObject If xFldObj Est-ce que rien ne sort ensuite Sub xSaveFolder = xFldObj.Items.Item.Path & "\" Définir xSelection = Outlook.Application.ActiveExplorer.Selection xNewName = InputBox ("Nom de pièce jointe:", "Kutools for Outlook", xNewName) Si Len (Garniture (xNewName)) = 0 puis Exit Sub pour chaque xItem dans xSelection pour chaque xAtachement dans xItem.Attachments xFilePath = xSaveFolder & xAttachment.FileName xAttachment.SaveAsFile xFilePath Définir xFile = xFSO.GetFile (xFilePath) xCount = 1 enregistré = Faux xExt = "." & xFSO.GetExtensionName (xFilePath) xTmpName = xNewName xNewName = xTmpName & xExt Si xFSO.FileExists (xSaveFolder & xNewName) = False Puis xFile.Name = xNewName xNewName = xTmpName Sinon xTmpName = Left (xNewName, Len (xNewName) - Len (xExt )) While Saved = False xNewName = xTmpName & xCount & xExt Si xFSO.FileExists (xSaveFolder & xNewName) = False Puis xFile.Name = xNewName xNewName = xTmpName Saved = Vrai sinon xCount = xCount + 1 End Si Wend End Si Suivant Suivant xFSO = Nothing End Sub

3. Cliquez Outils > Les références, dans le dialogue popping, vérifiez Microsoft Script Runtime case à cocher.

4. Cliquez OK, presse F5 clé pour exécuter le code, un Parcourir pour le dossier boîte de dialogue apparaît pour sélectionner ou créer un dossier pour placer des pièces jointes.

5. Cliquez OK, puis donnez un nom aux pièces jointes.

6. Cliquez OK, maintenant les pièces jointes sont renommées avec le même nom, s'il y a des doublons, les doublons seront ajoutés en tant que suffixe.

Renommez et enregistrez des pièces jointes dans un dossier avec Kutools for Outlook

En fait, il y a une caractéristique dans Kutools for Outlook - un outil complémentaire très pratique d'Outlook peut renommer toutes les pièces jointes avant de les enregistrer ou de les envoyer.

Installation gratuite Kutools pour Outlook, puis procédez comme ci-dessous:

1. Activez l’email dans le volet nagatif ou dans la boîte de message comme vous le souhaitez, cliquez sur Kutools > Renommer tous.

2. Dans la boîte de dialogue contextuelle, tapez le nouveau nom que vous utilisez pour chaque pièce jointe. Cliquez sur OK, les pièces jointes ont été renommées avec de nouveaux noms.

3. Cliquez avec le bouton droit de la souris sur une pièce jointe, sélectionnez Enregistrer toutes les pièces jointes, cliquez sur OK et sélectionnez un dossier pour enregistrer les pièces jointes en fonction de vos besoins. Ensuite, les pièces jointes renommées ont été enregistrées dans un dossier.

Kutools for Outlook - Apporte les fonctionnalités avancées de 100 à Outlook et simplifie grandement le travail!

• CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
• Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse mail est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
• Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à beaucoup d'emails en secondes; Ajout automatique de message d'accueil quand répondez; Ajouter la date au sujet ...
• Outils de pièce jointe: Gérer toutes les pièces jointes dans tous les courriers, Auto Detach, Compresser tout, Renommer tout, Sauvegarder tout ... Rapport rapide, Compter les mails sélectionnés...
• Puissants courriers indésirables par la coutume; Supprimer les e-mails et les contacts en double... Vous permet de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...