Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'ENREGISTRER
x

or

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.
doc renommer sauvegarder joindre 1

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!

doc réponse avec attach
Kutools for Outlook: avec des dizaines de compléments Outlook très pratiques, gratuit à essayer sans limitation en jours 60.
Onglet Office - Activer l'édition et la navigation par onglets dans Office, et simplifier considérablement le travail ...
Kutools for Outlook - apporte de puissantes fonctionnalités avancées 100 à Microsoft Outlook
  • CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par règles; 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 de messagerie 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épondez plusieurs courriels à la fois; Ajout automatique de message d'accueil quand répondez; Ajout automatique Date et heure dans le sujet ...
  • Outils de fixation: Détacher automatiquement, tout compresser, tout renommer, tout enregistrer automatiquement ... Rapport rapide, Compter les messages sélectionnés, Supprimer les e-mails et les contacts en double ...
  • Plus que les fonctionnalités avancées de 100 résoudre la plupart de vos problèmes dans Outlook 2010-2019 et 365. Fonctionnalités complètes Essai gratuit du jour 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

doc renommer enregistrer les pièces jointes dans un dossier 2

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

doc renommer enregistrer les pièces jointes dans un dossier 3 doc arrow droite doc renommer enregistrer les pièces jointes dans un dossier 4

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.
doc renommer enregistrer les pièces jointes dans un dossier 5

5. Cliquez OK, puis donnez un nom aux pièces jointes.
doc renommer enregistrer les pièces jointes dans un dossier 6

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.

Kutools for Outlook , Comprend +100 ans fonctionnalités et outils puissants pour Microsoft Outlook 2016, 2013, 2010 et Office 365.

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.
doc renommer sauvegarder joindre 2

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.
doc renommer sauvegarder joindre 3
doc renommer sauvegarder joindre 4

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.
doc renommer sauvegarder joindre 5


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.
tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lipe · 1 years ago
    Hey there! Do you know how we can improve the below code to rename the file when saved?

    Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    saveFolder = "C:\Users\acheng\Desktop"
    For Each objAtt In itm.Attachments
    objAtt.SaveAsFile saveFolder
    Set objAtt = Nothing
    Next
    End Sub
    • To post as a guest, your comment is unpublished.
      Sunny · 11 months ago
      Hello, Lipe, may be this code can help you.

      Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
      Dim xCopiedAppointment As Outlook.AppointmentItem
      Dim xMovedAppointment As Outlook.AppointmentItem
      Dim xMeeting As MeetingItem
      Dim xApoint As AppointmentItem
      On Error Resume Next
      If Item.Class = olAppointment Then
      Set xApoint = Item
      Set xCopiedAppointment = xApoint.Copy
      Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
      If xApoint.Subject <> xMovedAppointment.Subject Then
      If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
      xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
      xMovedAppointment.Save
      End If
      End If
      ElseIf Item.Class = olMeetingRequest Then
      Set xMeeting = Item
      Set xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
      Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
      If xMeeting.Subject <> xMovedAppointment.Subject Then
      If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
      xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
      xMovedAppointment.Save
      End If
      End If
      xCopiedAppointment.Delete
      End If
      Set xCopiedAppointment = Nothing
      End Sub