Comment enregistrer les pièces jointes sans ouvrir l'e-mail dans Outlook?

Vous devrez peut-être fréquemment enregistrer les pièces jointes des e-mails reçus sur les disques de votre ordinateur. Il est facile d'enregistrer une pièce jointe ou toutes les pièces jointes d'un e-mail, mais comment enregistrer les pièces jointes de plusieurs e-mails à la fois? Normalement, vous devez ouvrir les e-mails à plusieurs reprises et enregistrer les pièces jointes. Existe-t-il des astuces pour se débarrasser des opérations répétées? Ici, les méthodes de ce didacticiel peuvent vous aider.

Enregistrer les pièces jointes d'un ou plusieurs e-mails sans ouvrir avec le code VBA
Enregistrez les pièces jointes d'un ou plusieurs e-mails sans les ouvrir avec un outil incroyable

Enregistrer les pièces jointes d'un ou plusieurs e-mails sans ouvrir avec le code VBA

Le code VBA ci-dessous peut aider à enregistrer les pièces jointes d'un ou plusieurs e-mails en même temps sans ouvrir les e-mails dans Outlook. Veuillez faire comme suit.

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

2. Développez le Objets Microsoft Outlook dossier, double-cliquez sur le Cette session Outlook ouvrir le Code , puis copiez le code VBA ci-dessous dans celui-ci.

Code VBA: enregistrez les pièces jointes sans ouvrir les e-mails

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. appuie sur le F5 clé pour exécuter le code. Puis un BrowseForFolder apparaît, sélectionnez un dossier pour enregistrer les pièces jointes, puis cliquez sur le OK .

Ensuite, toutes les pièces jointes des e-mails sélectionnés sont immédiatement enregistrées dans le dossier sélectionné.

Remarque: Toutes les pièces jointes seront détachées des e-mails et conserveront les liens de chemin d'enregistrement correspondants dans le corps de l'e-mail.

Enregistrez les pièces jointes d'un ou plusieurs e-mails sans les ouvrir avec un outil incroyable

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

Recommander ici le Enregistrer toutes les pièces jointes utilitaires de Kutools for Outlook pour vous. Si vous souhaitez simplement enregistrer les pièces jointes sans les détacher des e-mails sélectionnés, la fonction Enregistrer toutes les pièces jointes peut vous aider à le faire facilement. Veuillez faire comme suit.
Avant d'appliquer Kutools pour Outlook, veuillez télécharger et installer d'abord.

1. Sélectionnez les e-mails contenant les pièces jointes que vous allez enregistrer, cliquez sur Kutools > Outils de fixation > Enregistrer tout.

2. dans le Enregistrer les paramètres boîte de dialogue, vous devez:

2.1) Dans le Enregistrer les pièces jointes dans ce dossier section, choisissez un dossier pour enregistrer les pièces jointes;
2.2) La Enregistrer les pièces jointes dans le style ci-dessous box est facultatif pour vous permettre de créer un sous-dossier avec le style certian pour enregistrer les pièces jointes, ou de renommer les pièces jointes enregistrées avec le style certian.
2.3) Cliquez sur OK pour commencer à enregistrer toutes les pièces jointes des e-mails sélectionnés.

Pourboires: Avec les configurations ci-dessus, toutes les pièces jointes seront enregistrées dans le dossier spécifié. Si vous souhaitez uniquement enregistrer certaines pièces jointes certian, par exemple enregistrer uniquement les fichiers PDF avec le mot certian «facture» dans le nom de fichier, vous pouvez configurer les conditions de filtrage comme suit.

Cliquez Options avancées bouton pour développer le Condition du filtres;
Spécifiez les conditions en fonction de vos besoins.
Conseils: Ici, je vérifie le Nom de la pièce jointe contient la case, puis saisissez «facture» dans la zone de texte, puis cochez la case Type de pièce jointe , entrez ".pdf" dans la zone de texte.

3. Dans la boîte de dialogue suivante, cliquez sur Oui continuer.

Ensuite, les pièces jointes dans les e-mails sélectionnés sont enregistrées dans le dossier spécifié à la fois.

Pourboires: Pour détacher les pièces jointes des e-mails sélectionnés et ne laisser que les hyperliens des pièces jointes dans le Détacher toutes les pièces jointes la fonctionnalité peut vous aider.

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

Articles connexes

Télécharger / enregistrer automatiquement les pièces jointes à partir d'Outlook dans un certain dossier
De manière générale, vous pouvez enregistrer toutes les pièces jointes d'un e-mail en cliquant sur Pièces jointes> Enregistrer toutes les pièces jointes dans Outlook. Mais, si vous avez besoin de sauvegarder toutes les pièces jointes de tous les e-mails reçus et reçus, l'idéal? Cet article présentera deux solutions pour télécharger automatiquement les pièces jointes à partir d'Outlook vers un certain dossier.

Conserver les pièces jointes lors de la réponse dans Outlook
Lorsque nous transférons un message électronique dans Microsoft Outlook, les pièces jointes d'origine de ce message électronique sont conservées dans le message transféré. Cependant, lorsque nous répondons à un e-mail, les pièces jointes d'origine ne seront pas jointes au nouveau message de réponse. Ici, nous allons présenter quelques astuces pour conserver les pièces jointes d'origine lors de la réponse dans Microsoft Outlook.

Rechercher des mots dans la pièce jointe (contenu) dans Outlook
Lorsque nous tapons un mot-clé dans la zone de recherche instantanée d'Outlook, il recherchera le mot-clé dans les sujets, le corps, les pièces jointes des e-mails, etc. Cet article vous montre les étapes détaillées pour rechercher facilement des mots dans le contenu des pièces jointes dans Outlook.