Comment enregistrer toutes les pièces jointes de plusieurs e-mails dans un dossier dans Outlook?

Il est facile d'enregistrer toutes les pièces jointes d'un e-mail avec la fonctionnalité intégrée Enregistrer toutes les pièces jointes dans Outlook. Cependant, si vous souhaitez enregistrer toutes les pièces jointes de plusieurs e-mails à la fois, aucune fonctionnalité directe ne peut vous aider. Vous devez appliquer à plusieurs reprises la fonction Enregistrer toutes les pièces jointes dans chaque e-mail jusqu'à ce que toutes les pièces jointes soient enregistrées à partir de ces e-mails. Cela prend du temps. Dans cet article, nous présentons deux méthodes pour enregistrer facilement toutes les pièces jointes de plusieurs e-mails dans un dossier spécifique dans Outlook.

Enregistrez toutes les pièces jointes de plusieurs e-mails dans un dossier avec le code VBA
Plusieurs clics pour enregistrer toutes les pièces jointes de plusieurs e-mails dans un dossier avec un outil incroyable

Enregistrez toutes les pièces jointes de plusieurs e-mails dans un dossier avec le code VBA

Cette section présente un code VBA dans un guide étape par étape pour vous aider à enregistrer rapidement toutes les pièces jointes de plusieurs e-mails dans un dossier spécifique à la fois. Veuillez faire comme suit.

1. Tout d'abord, vous devez créer un dossier pour enregistrer les pièces jointes sur votre ordinateur.

Entrez dans le Documents dossier et créez un dossier nommé «Pièces jointes». Voir capture d'écran:

2. Sélectionnez les e-mails dont vous allez enregistrer les pièces jointes, puis appuyez sur autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Cliquez insérer > Module ouvrir le Module fenêtre, puis copiez l'un des codes VBA suivants dans la fenêtre.

Code VBA 1: enregistrer en masse les pièces jointes de plusieurs e-mails (enregistrer exactement les pièces jointes du même nom directement)

Pourboires: Ce code enregistrera exactement les pièces jointes du même nom en ajoutant les chiffres 1, 2, 3 ... après les noms de fichiers.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

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

Code VBA 2: enregistrer en bloc les pièces jointes de plusieurs e-mails (vérifier les doublons)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Notes:

5. appuie sur le F5 clé pour exécuter le code.

Ensuite, toutes les pièces jointes des e-mails sélectionnés sont enregistrées dans le dossier que vous avez créé à l'étape 1. 

Notes: Il peut y avoir un Microsoft Outlook boîte de dialogue qui apparaît, veuillez cliquer sur le Autoriser bouton pour continuer.

Enregistrez toutes les pièces jointes de plusieurs e-mails dans un dossier avec un outil incroyable

Si vous êtes un débutant en VBA, voici fortement recommandé le Enregistrer toutes les pièces jointes utilité de Kutools pour Outook pour vous. Avec cet utilitaire, vous pouvez enregistrer rapidement toutes les pièces jointes de plusieurs e-mails à la fois en plusieurs clics uniquement dans Outlook.
Avant d'appliquer la fonctionnalité, veuillez téléchargez et installez d'abord Kutools pour Outlook.

1. Sélectionnez les e-mails contenant les pièces jointes que vous souhaitez enregistrer.

Conseils: Vous pouvez sélectionner plusieurs e-mails non adjacents en maintenant le bouton Ctrl touchez et sélectionnez-les un par un;
Ou sélectionnez plusieurs e-mails adjacents en maintenant le Shift et sélectionnez le premier e-mail et le dernier.

2. Cliquez Kutools >Outils de fixation > Enregistrer tout. Voir la capture d'écran:

3. dans le Enregistrer les paramètres dialogue, cliquez sur pour sélectionner un dossier pour enregistrer les pièces jointes, puis cliquez sur le OK .

3. Cliquez OK deux fois dans la boîte de dialogue suivante, puis toutes les pièces jointes des e-mails sélectionnés sont enregistrées dans le dossier spécifié à la fois.

Notes:

• 1. Si vous souhaitez enregistrer des pièces jointes dans différents dossiers en fonction des e-mails, veuillez vérifier la Créez des sous-dossiers dans le style suivant et choisissez un style de dossier dans la liste déroulante.
• 2. En plus de sauvegarder toutes les pièces jointes, vous pouvez enregistrer les pièces jointes selon des conditions spécifiques. Par exemple, vous ne souhaitez enregistrer que les pièces jointes PDF dont le nom de fichier contient le mot "Facture", veuillez cliquer sur le bouton Options avancées pour étendre les conditions, puis configurer comme le screebshot ci-dessous montré.
  
• 3. Si vous souhaitez enregistrer automatiquement les pièces jointes à l'arrivée des e-mails, le Enregistrer automatiquement les pièces jointes la fonctionnalité peut vous aider.
• 4. Pour détacher les pièces jointes directement des e-mails sélectionnés, le Détacher toutes les pièces jointes caractéristique de Kutools for Outlook peut vous faire une faveur.

Articles connexes

---

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (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 facile 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   /  Boostez votre productivité Outlook avec des vues à onglets  /  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 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

En savoir plus       Téléchargement gratuit      Achat