Comment enregistrer les pièces jointes sans ouvrir l'email dans Outlook ?

Vous avez peut-être souvent besoin d'enregistrer des pièces jointes des emails reçus sur vos disques d'ordinateur. Il est facile d'enregistrer une pièce jointe ou toutes les pièces jointes d'un message électronique, mais comment enregistrer des pièces jointes de plusieurs emails à la fois ? Normalement, vous devez ouvrir chaque email et enregistrer les pièces jointes un par un. Existe-t-il des astuces pour éviter ces opérations répétitives ? Les méthodes de ce tutoriel peuvent vous aider.

Enregistrer des pièces jointes d'un ou plusieurs emails sans les ouvrir avec du code VBA
Enregistrer des pièces jointes d'un ou plusieurs emails sans les ouvrir avec un outil incroyable

Enregistrer des pièces jointes d'un ou plusieurs emails sans les ouvrir avec du code VBA

Le code VBA ci-dessous peut vous aider à enregistrer des pièces jointes d'un ou plusieurs emails en même temps sans avoir à ouvrir les emails dans Outlook. Veuillez suivre les étapes ci-dessous.

1. Sélectionnez un email ou plusieurs emails dont vous souhaitez enregistrer les pièces jointes, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Développez le dossier Objets Microsoft Outlook, double-cliquez sur ThisOutlookSession pour ouvrir la fenêtre Code, puis copiez le code VBA ci-dessous dedans.

Code VBA : Enregistrer les pièces jointes sans ouvrir les emails

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. Appuyez sur la touche F5 pour exécuter le code. Une fenêtre BrowseForFolder apparaît, veuillez sélectionner un dossier pour enregistrer les pièces jointes, puis cliquez sur le bouton OK.

Toutes les pièces jointes des emails sélectionnés sont alors immédiatement enregistrées dans le dossier choisi.

Remarque : Toutes les pièces jointes seront détachées des emails et les liens correspondants vers leur chemin d'enregistrement seront conservés dans le corps de l'email.

Enregistrer des pièces jointes d'un ou plusieurs emails sans les ouvrir avec un outil incroyable

Si vous êtes débutant en VBA, la méthode décrite dans cette section sera un bon choix pour vous.

Nous recommandons ici Enregistrer toutes les pièces jointes fonctionnalités de Kutools pour Outlook pour vous. Si vous souhaitez simplement enregistrer les pièces jointes sans les détacher des emails sélectionnés, la fonctionnalité Enregistrer toutes les pièces jointes peut vous y aider facilement. Veuillez suivre les étapes ci-dessous.
Avant d'utiliser Kutools pour Outlook, veuillez télécharger et installer le logiciel d'abord.

1. Sélectionnez les emails contenant les pièces jointes que vous souhaitez enregistrer, cliquez sur Kutools Plus > Outils de pièces jointes > Enregistrer tout.

2. Dans la boîte de dialogue Paramètres d'enregistrement, vous devez :

• 2.1) Dans la section Enregistrer les pièces jointes dans ce dossier, choisissez un dossier pour enregistrer les pièces jointes ;
• 2.2) La case Enregistrer les pièces jointes avec le style ci-dessous est facultative pour créer un sous-dossier avec un certain style pour enregistrer les pièces jointes, ou renommer les pièces jointes enregistrées avec un certain style.
• 2.3) Cliquez sur OK pour commencer à enregistrer toutes les pièces jointes des emails sélectionnés.

Astuce : Avec les configurations ci-dessus, toutes les pièces jointes seront enregistrées dans le dossier spécifié. Si vous souhaitez uniquement enregistrer certains types de pièces jointes, comme uniquement les fichiers PDF contenant le mot "facture" dans le nom de fichier, vous pouvez configurer les conditions de filtre comme suit.

• Cliquez sur le bouton Options avancées pour développer les Conditions de filtre ;
• Spécifiez les conditions en fonction de vos besoins.
  Astuce :Ici, je coche la case Nom de la pièce jointe contient, puis j'entre "facture" dans la zone de texte, ensuite je coche la case Type de la pièce jointe et entre ".pdf" dans la zone de texte.

3. Dans la prochaine boîte de dialogue qui apparaît, cliquez sur Oui pour continuer.

Les pièces jointes des emails sélectionnés sont alors immédiatement enregistrées dans le dossier spécifié.

Astuce : Pour détacher les pièces jointes des emails sélectionnés et ne laisser que les hyperliens des pièces jointes dans le corps de l'email, la fonctionnalité Détacher toutes les pièces jointes peut vous aider.

Articles connexes

---

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 !

🤖 Kutools IA : Utilise une technologie IA avancée pour gérer les emails sans effort, y compris répondre, résumer, optimiser, étendre, traduire et composer des emails.

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

Déverrouillez instantanément Kutools pour Outlook d'un simple clic. Ne tardez pas, téléchargez maintenant et boostez votre efficacité !



Liste des fonctionnalités de Kutools pour Outlook Télécharger la version gratuite Passer à la version professionnelle