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 Sub

3. 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 pour 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 pour 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.

3.1) Dans le Enregistrer les pièces jointes dans ce dossier section, cliquez sur bouton pour sélectionner un dossier pour enregistrer les pièces jointes ;

3.2) Cliquez sur le Options avancées bouton pour déplier la boîte de dialogue ;

3.3) Dans le Conditions de filtrage section, vérifiez la Type de pièce jointe case à cocher, puis entrez l'extension de fichier des pièces jointes que vous allez enregistrer dans le texte.

Conseils: Pour plusieurs extensions de fichier, vous devez les séparer par des points-virgules.

3.4) Cliquez sur le OK bouton. Voir la capture d'écran:

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.

Cliquez ici pour en savoir plus sur cette fonctionnalité.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.

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?

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

• CC / BCC automatique par des règles lors de l'envoi d'e-mails; 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 e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
• Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
• Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
• Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.

Lire la suite... Télécharger maintenant...