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ères nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
