Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

Comment enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook ?

Author Siluvia Last modified

Outlook propose la fonctionnalité Enregistrer toutes les pièces jointes pour vous aider à enregistrer toutes les pièces jointes d'un email dans un dossier spécifique en une seule fois. Cependant, si vous souhaitez enregistrer uniquement certains types de pièces jointes dans un ou plusieurs emails, comme des classeurs Excel, des documents Word, etc., comment procéder ? Dans ce tutoriel, nous vous proposons deux méthodes pour résoudre ce problème.

Enregistrer uniquement des pièces jointes de formats spécifiques dans Outlook avec du code VBA
Enregistrez facilement uniquement des pièces jointes de formats spécifiques dans Outlook avec un outil incroyable

Enregistrer uniquement des pièces jointes de formats spécifiques dans Outlook avec du code VBA

Le code VBA suivant peut vous aider à enregistrer uniquement des pièces jointes de formats spécifiques dans un ou plusieurs emails sélectionnés vers un dossier spécifique. Veuillez suivre les étapes ci-dessous.

1. Lancez votre Outlook. Dans la liste des emails, sélectionnez un ou plusieurs emails à partir desquels vous souhaitez enregistrer uniquement les pièces jointes dans un format de fichier spécifique.

2. Appuyez sur "Alt" + "F11" pour ouvrir la fenêtre "Microsoft Visual Basic for Applications". Dans la fenêtre qui s'ouvre, cliquez sur "Insérer" > "Module", puis copiez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Enregistrer uniquement une pièce jointe spécifique dans un email ou plusieurs emails dans un dossier

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
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
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Cliquez sur "Outils" > "Références" ; dans la boîte de dialogue "Références – Projet", cochez la case "Microsoft Scripting Runtime" et cliquez sur le bouton "OK".

steps on saving only Specific (Excel) Attachment In Outlook using vba

4. Appuyez sur la touche "F5" pour exécuter le code. Dans la boîte de dialogue "Parcourir le dossier" qui apparaît, choisissez un dossier pour enregistrer les pièces jointes.

steps on saving only Specific (Excel) Attachment In Outlook using vba

5. Ensuite, cliquez sur "OK", dans la boîte de dialogue "Kutools for Outlook" suivante, entrez l'extension de fichier de la pièce jointe que vous souhaitez enregistrer dans la zone de texte et cliquez sur "OK".

Remarque : Pour plusieurs extensions de fichiers, vous devez les séparer par des virgules.

steps on saving only Specific (Excel) Attachment In Outlook using vba

Seules les pièces jointes spécifiées sont ensuite enregistrées.

Enregistrez facilement uniquement des pièces jointes de formats spécifiques dans Outlook avec un outil incroyable

Si vous êtes novice en VBA, nous vous recommandons ici d'utiliser la fonctionnalité Enregistrer toutes les pièces jointes de "Kutools for Outlook". Avec cette fonctionnalité, vous pouvez facilement enregistrer uniquement les pièces jointes dans un format de fichier spécifique dans Outlook.

 👉 Kutools pour Outlook dispose désormais d'une version gratuite, avec 70+ fonctionnalités gratuites à vie. Téléchargez la version gratuite dès maintenant.

1. Sélectionnez les emails à partir desquels vous souhaitez enregistrer uniquement les pièces jointes dans un format de fichier spécifique.

2. Cliquez sur "Kutools" > "Outils de pièces jointes" > "Enregistrer toutes les pièces jointes".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

3. Dans la boîte de dialogue "Paramètres d'enregistrement", vous devez configurer comme suit.

3.1) Dans la section "Enregistrer les pièces jointes dans ce dossier", cliquez sur le steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook bouton pour sélectionner un dossier où enregistrer les pièces jointes ;
3.2) Cliquez sur le bouton "Options avancées" pour déplier la boîte de dialogue ;
3.3) Dans la section "Conditions de filtre", cochez la case "Type de pièce jointe", puis entrez l'extension de fichier des pièces jointes que vous souhaitez enregistrer dans le texte.
Remarque : Pour plusieurs extensions de fichiers, vous devez les séparer par des points-virgules.
3.4) Cliquez sur le bouton "OK". Voir capture d'écran :
steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

4. Une boîte de dialogue apparaît pour vous rappeler si vous souhaitez enregistrer les pièces jointes, cliquez sur "OK" pour continuer.

5. Ensuite, une autre boîte de dialogue apparaît pour vous indiquer combien de pièces jointes ont été enregistrées, cliquez sur le bouton "OK".

steps on saving only Specific (Excel) Attachment In Outlook using kutools for outlook

Maintenant, seules les pièces jointes au format de fichier spécifique sont enregistrées.

Articles connexes :

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 !

🤖 Kutools IA : Exploite une technologie avancée d’IA pour gérer les e-mails en toute simplicité, notamment pour répondre, résumer, optimiser, étendre, traduire et rédiger des e-mails.

📧 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 !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez pas, téléchargez dès maintenant pour gagner en efficacité !

kutools for outlook features1 kutools for outlook features2

🚀 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