Comment enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook ?
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 Sub3. 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".
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.
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.
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.
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".
3. Dans la boîte de dialogue "Paramètres d'enregistrement", vous devez configurer comme suit.
bouton pour sélectionner un dossier où enregistrer les pièces jointes ;
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".
Maintenant, seules les pièces jointes au format de fichier spécifique sont enregistrées.
Articles connexes :
- Comment enregistrer toutes les pièces jointes des messages électroniques dans Outlook ?
- Comment supprimer toutes les pièces jointes d'un email dans Outlook ?
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 !
