Comment enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook ?
Outlook fournit la fonctionnalité Enregistrer toutes les pièces jointes pour vous aider à enregistrer toutes les pièces jointes d'un e-mail 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 e-mails, tels que des classeurs Excel, des documents Word, etc., comment y parvenez-vous ? Dans ce tutoriel, nous vous proposons deux méthodes pour résoudre ce problème.
Enregistrer uniquement les pièces jointes au format de fichier spécifique dans Outlook avec le code VBA
Enregistrez facilement uniquement les pièces jointes au format de fichier spécifique dans Outlook avec un outil incroyable
Enregistrer uniquement les pièces jointes au format de fichier spécifique dans Outlook avec le code VBA
Le code VBA suivant peut aider à enregistrer uniquement des pièces jointes au format de fichier spécifique dans un ou plusieurs e-mails sélectionnés dans un dossier spécifique. Veuillez procéder comme suit.
1. Lancez votre Outlook. Dans la liste Courrier, sélectionnez un ou plusieurs e-mails dont vous souhaitez enregistrer uniquement les pièces jointes dans un format de fichier spécifique.
2. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications la fenêtre. Dans la fenêtre d'ouverture, cliquez sur insérer > Module, puis copiez ci-dessous le code VBA dans la fenêtre Module.
Code VBA: enregistrez uniquement une pièce jointe spécifique dans un e-mail ou plusieurs e-mails 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 Outils > Références , Dans le Références - Projet boîte de dialogue, vérifiez la Exécution de scripts Microsoft boîte et cliquez sur le OK .
4. appuie sur le F5 clé pour exécuter le code. Dans le sauté Rechercher un dossier boîte de dialogue, choisissez un dossier pour enregistrer les pièces jointes.
5. Et puis, cliquez sur OK, dans ce qui suit Kutools for Outlook boîte de dialogue, entrez l'extension de fichier de la pièce jointe que vous allez enregistrer dans la zone de texte et cliquez sur OK.
Remarque : Pour plusieurs extensions de fichier, vous devez les séparer par des virgules.
Ensuite, seules les pièces jointes spécifiées sont enregistrées.
Enregistrez facilement uniquement les pièces jointes au format de fichier spécifique dans Outlook avec un outil incroyable
Si vous débutez avec VBA, nous vous recommandons ici d'utiliser le Enregistrer toutes les pièces jointes caractéristique 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 e-mails dont vous souhaitez enregistrer uniquement les pièces jointes dans un format de fichier spécifique.
2. Cliquez Kutools > Outils de fixation > Enregistrer tout.
3. dans le Enregistrer les paramètres boîte de dialogue, vous devez configurer comme suit.
bouton pour sélectionner un dossier pour enregistrer les pièces jointes ;
4. Une boîte de dialogue apparaît vous rappelant si vous souhaitez enregistrer les pièces jointes, cliquez sur OK 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 OK .
Désormais, seules les pièces jointes au format de fichier spécifique sont enregistrées.
Articles Liés:
- Comment enregistrer toutes les pièces jointes des messages électroniques dans Outlook?
- Comment supprimer toutes les pièces jointes du courrier électronique dans Outlook?
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
