Si vous travaillez dans un secteur où vous recevez d'innombrables e-mails chaque jour, vous recevez probablement de nombreux e-mails contenant plusieurs pièces jointes. L’utilisation d’une méthode manuelle pour extraire les pièces jointes peut prendre du temps s’il y en a beaucoup à télécharger. Heureusement, il est facile d'enregistrer plusieurs pièces jointes à un e-mail à la fois à l'aide de Microsoft Outlook^{(Microsoft Outlook)} .

Dans ce didacticiel, nous allons vous montrer comment télécharger toutes les pièces jointes depuis Outlook .

Comment télécharger toutes les pièces jointes des e-mails Microsoft Outlook^{(Microsoft Outlook Email Attachments)} à la fois^(Once) sous Windows

Pour télécharger toutes les pièces jointes en même temps à l'aide de l' application Windows Microsoft Outlook , procédez comme suit :

1. Ouvrez Outlook et connectez-vous à votre profil Outlook .
2. Sélectionnez l'e-mail contenant les pièces jointes Outlook^(Outlook) souhaitées .
3. Cliquez avec le bouton droit sur l'un des fichiers joints et sélectionnez Enregistrer^(Save) toutes les pièces jointes dans le menu déroulant. Si vous souhaitez enregistrer un seul fichier, sélectionnez Enregistrer sous^{(Save As)} .

1. Dans la nouvelle boîte de dialogue, maintenez la touche CTRL de votre clavier enfoncée et sélectionnez toutes les pièces jointes que vous souhaitez télécharger. Cliquez sur OK^{(Click OK)} .

1. Sélectionnez l'emplacement où vous souhaitez enregistrer les fichiers et appuyez sur le bouton OK.

Comment télécharger toutes les pièces jointes des e-mails Microsoft Outlook^{(Microsoft Outlook Email Attachments)} à la fois^(Once) sur Mac

Voici comment télécharger toutes les pièces jointes à l'aide d'Outlook^(Outlook) pour Mac :

1. Ouvrez l'application MS Outlook.
2. Sélectionnez le message électronique^(Email) contenant vos pièces jointes.
3. Cliquez^(Click) sur Pièces jointes^{(Attachments)} et sélectionnez Télécharger tout^{(Download All)} .

1. Sélectionnez l'emplacement où vous souhaitez enregistrer vos pièces jointes et sélectionnez Choisir^(Choose) .

Comment télécharger plusieurs pièces jointes Outlook^{(Download Multiple Outlook Attachments)} à partir de plusieurs e-mails^{(Multiple Emails)}

Il est également possible de télécharger plusieurs pièces jointes à partir de plusieurs e-mails à la fois. Faire cela:

Utiliser le code VBA

Si vous utilisez Outlook 2019 , 2016, 2013, 2010, 2007 ou 2003, vous pouvez utiliser l' éditeur VBA^{(VBA editor)} pour télécharger plusieurs pièces jointes à partir de plusieurs e-mails.

1. Ouvrez votre dossier Documents et créez un nouveau dossier nommé « Pièces jointes ». C'est ici que vos pièces jointes seront téléchargées.
2. Ouvrez Microsoft Outlook.
3. Appuyez sur^(Press) les touches Alt et F11 du clavier pour ouvrir l' éditeur VBA .
4. Cliquez avec le bouton droit sur Microsoft Outlook Object > Insert > Insert Module .

1. Copiez le code suivant dans l'éditeur et appuyez sur Entrée :

Dim GCount sous forme d'entier

Dim GFilepath en tant que chaîne

Sous-saveattachments publics()

'Mise à jour 20200821

Dim xMailItem comme Outlook.MailItem

Dim xAttachments comme Outlook.Attachments

Dim xSelection comme Outlook.Selection

Diminuez-moi aussi longtemps

Dim xAttCount aussi longtemps

Dim xFilePath As String , xFolderPath As String , xSaveFiles As String

En cas d'erreur, reprendre ensuite

xFolderPath = CreateObject (« WScript.Shell »).SpecialFolders(16)

Définir^(Set) xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath & « Pièces jointes »

Si VBA.Dir ( xFolderPath , vbDirectory) = vbNullString Alors

VBA.MkDir xFolderPath

Fin si

GFilepath = ""

Pour chaque xMailItem dans xSelection

Définir^(Set) xAttachments = xMailItem.Attachments

xAttCount = xAttachments.Count

xSaveFiles = ""

Si xAttCount > 0 Alors

Pour i = xAttCount To 1 Étape^(Step) -1

GCompte = 0

xFilePath = xFolderPath & xAttachments.Item (i).FileName

GFilepath = xFilePath

xFilePath = FichierRenommer^(FileRename) (xFilePath)

Si IsEmbeddedAttachment ( xAttachments.Item (i)) = False Alors

xAttachments.Item(i).SaveAsFile xFilePath

Si xMailItem.BodyFormat <> olFormatHTML Alors

xSaveFiles = xSaveFiles & vbCrLf & "Référence du lien hypertexte non valide.> »

Autre

xSaveFiles = xSaveFiles & «
» & « xFilePath & “‘>” & xFilePath & “ »

Fin si

Fin si

Ensuite je

Fin si

Suivant

Définir xAttachments = Rien

Définir xMailItem = Rien

Définir xSelection = Rien

Fin du sous-marin

Fonction FileRename ( FilePath As String ) As String

Dim xPath en tant que chaîne

Dim xFso comme FileSystemObject

En cas d'erreur, reprendre ensuite

Set xFso = CreateObject (« Scripting.FileSystemObject »)

xPath = Chemin de fichier

FichierRenommer = xPath

Si xFso.FileExists(xPath) Alors

GCompte = GCompte + 1

xPath = xFso.GetParentFolderName ( GFilepath ) & "" & xFso.GetBaseName ( GFilepath ) & " " & GCount & "." + xFso.GetExtensionName( GFilepath )

FileRename = FileRename (xPath)

Fin si

xFso = Rien

Fonction de fin

Fonction IsEmbeddedAttachment^{(Function IsEmbeddedAttachment)} ( Joindre^(Attach) en tant que pièce jointe^(Attachment) )

Dim xItem comme MailItem

Dim xCid comme chaîne

Dim xID sous forme de chaîne

Dim xHtml comme chaîne

En cas d'erreur, reprendre ensuite

IsEmbeddedAttachment = Faux

Définir xItem = Attach.Parent

Si xItem.BodyFormat <> olFormatHTML Alors quittez la fonction^(Function)

xCid = ""

xCid = Attach.PropertyAccessor.GetProperty (« http://schemas.microsoft.com/mapi/proptag/0x3712001F »)

Si xCid <> "" Alors

xHtml = xItem.HTMLBody

xID = « cid : » & xCid

Si InStr(xHtml, xID) > 0 Alors

IsEmbeddedAttachment = Vrai^(True)

Fin si

Fin si

Fonction de fin

Remarque : Vous pouvez copier le code original ci-dessus depuis Extend Office^{(original code above from Extend Office)} et le coller dans l'éditeur.

1. Appuyez sur F5^{(Press F5)} pour exécuter le script. Vous pouvez obtenir une fenêtre contextuelle vous invitant à autoriser l'action.

Utiliser un outil externe

Si vous utilisez une autre version d' Outlook , si vous souhaitez télécharger un type de fichier autre que PST^{(a file type other than PST)} ou si vous trouvez la méthode VBA lourde, vous pouvez télécharger un outil qui peut vous aider à télécharger plusieurs pièces jointes Outlook à la fois.

Des applications telles qu'Outlook Attachment Extractor^{(Outlook Attachment Extractor)} ont la fonctionnalité nécessaire pour enregistrer les pièces jointes non seulement à partir de fichiers PST , mais également à partir d'autres formats de fichiers tels que les fichiers OST , BAK , MSG , OLK et OLM . Vous pouvez également configurer l'application pour filtrer les pièces jointes par taille de fichier, date ou expéditeur.

Comment télécharger toutes les pièces jointes d'un fichier corrompu^(Corrupted)

Si vous ne parvenez pas à ouvrir, afficher ou enregistrer les pièces jointes dans Outlook , le fichier PST de Microsoft Outlook est peut-être corrompu ou endommagé. ^{(Microsoft Outlook PST)}Vous pouvez réparer le fichier PST^{(repair the PST file)} pour récupérer la pièce jointe à l'aide d'outils tels que l' application SCANPST.exe .

Pour utiliser cet outil, fermez Outlook et accédez à l'un des emplacements suivants, en fonction de votre version d' Outlook :

1. Outlook 2019 : C:Program Files (x86)Microsoft Office\root\Office16
2. Outlook 2016 : C:Program Files (x86)Microsoft Office\root\Office16
3. Outlook 2013 : C:Fichiers de programme (x86)Microsoft Office\Office15
4. Outlook 2010 : C : Fichiers de programme (x86)Microsoft Office\Office14
5. Outlook 2007 : C : Fichiers de programme (x86)Microsoft Office\Office12

Ensuite, double-cliquez sur SCANPST.EXE.

Sélectionnez Parcourir^{(Select Browse)} , localisez le fichier de données Outlook que vous souhaitez analyser et appuyez sur Démarrer^(Start) .

Si l'outil détecte des erreurs, sélectionnez Réparer^(Repair) pour tenter de les corriger. Une fois terminé, redémarrez Outlook et vérifiez s'il fonctionne maintenant.

Rationalisez vos activités de messagerie

Le téléchargement de plusieurs fichiers depuis Outlook est simple et vous pouvez même télécharger plusieurs fichiers à partir de plusieurs e-mails en même temps. Si vous trouvez les méthodes intégrées dans Outlook trop difficiles, vous pouvez télécharger des outils tels que Outlook Attachment Extractor pour vous aider.

How to Download All Attachments From Outlook Emails

If yoυ’re in an industry where you receіve countless emails every day, yоu likelу get many emails with multiple attachments. Usіng a manual method to extract attachments can be time-consuming if there are many to download. Luckily, it’s easy to save multiple email attachments at once using Microsoft Outlook.

In this tutorial, we’ll show you how to download all attachments from Outlook.

How to Download All Microsoft Outlook Email Attachments at Once on Windows

To download all attachments at once using the Windows Microsoft Outlook app, do the following:

1. Open Outlook and sign in to your Outlook profile.
2. Select the email with your desired Outlook attachments.
3. Right-click any of the attachment files and select Save all attachments in the drop-down menu. If you only want to save one file, select Save As.

1. In the new dialog box, hold down the CTRL key on your keyboard and select all of the attachments you want to download. Click OK.

1. Select the location that you would like to save the files to and press the OK button.

How to Download All Microsoft Outlook Email Attachments at Once on Mac

Here’s how to download all attachments using Outlook for Mac:

1. Open the MS Outlook application.
2. Select the Email message that contains your attachments.
3. Click on Attachments and select Download All.

1. Select the location that you would like to save your attachments and select Choose.

How to Download Multiple Outlook Attachments From Multiple Emails

It’s also possible to download multiple attachments from many emails at once. To do so:

Use VBA Code

If you are using Outlook 2019, 2016, 2013, 2010, 2007, or 2003, you can use the VBA editor to download multiple attachments from multiple emails.

1. Open your Documents folder and create a new folder named “Attachments.” This is where your attachments will download to.
2. Open Microsoft Outlook.
3. Press the Alt and F11 keys on the keyboard to open the VBA editor.
4. Right-click Microsoft Outlook Object > Insert > Insert Module.

1. Copy the following code into the editor and press Enter:

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

Note: You can copy the original code above from Extend Office and paste it into the editor.

1. Press F5 to run the script. You may get a pop-up window prompting you to allow the action.

Using an External Tool

If you’re using another version of Outlook, want to download a file type other than PST, or find the VBA method cumbersome, you can download a tool that can help you download multiple Outlook attachments at once.

Apps such as Outlook Attachment Extractor have the functionality to save attachments not only from PST files, but from other file formats such as OST, BAK, MSG, OLK, and OLM files, too. You can also configure the app to filter attachments by file size, date, or sender.

How to Download All Attachments From a Corrupted File

If you cannot open, view, or save file attachments in Outlook, the Microsoft Outlook PST file may be corrupted or damaged. You can repair the PST file to retrieve the attachment using tools such as the SCANPST.exe application.

To use this tool, close Outlook and navigate to one of the following locations, depending on your version of Outlook:

1. Outlook 2019: C:\Program Files (x86)\Microsoft Office\root\Office16
2. Outlook 2016: C:\Program Files (x86)\Microsoft Office\root\Office16
3. Outlook 2013: C:\Program Files (x86)\Microsoft Office\Office15
4. Outlook 2010: C:\Program Files (x86)\Microsoft Office\Office14
5. Outlook 2007: C:\Program Files (x86)\Microsoft Office\Office12

Then, double-click SCANPST.EXE.

Select Browse, locate the Outlook data file you want to scan and press Start.

If the tool finds errors, select Repair to attempt to fix them. Once complete, restart Outlook and check whether it now works.

Streamline Your Email Activities

Downloading multiple files from Outlook is easy and you can even download multiple files from multiple emails all at once. If you find the built-in methods in Outlook too difficult, you can download tools such as Outlook Attachment Extractor to help you out.

Related posts

• FIX bootrec /FixBoot Access est une erreur refusée sous Windows 11/10

• Correction d'une erreur de disque ou de disque non système Écran noir sous Windows 11/10

• Correction du code d'erreur 99 de la carte mère sur les ordinateurs Windows

• Correction de PXE-E61, échec du test de support, vérification de l'erreur de démarrage du câble sous Windows 11/10

• Correction de NTLDR manquant, appuyez sur Ctrl-Alt-Suppr pour redémarrer l'erreur dans Windows 10

• Windows ne démarre pas ; Réparation de démarrage automatique, réinitialisation du PC échoue, passe en boucle

• Comment réparer les temps de démarrage SSD lents sur Windows 10

• Correction de la VIOLATION D'ACCÈS AU STATUT dans Chrome

• 10 façons de réparer le WiFi connecté mais pas d'accès Internet

• Correction d'une erreur de périphérique de démarrage inaccessible dans Windows 11

• Correction de l'erreur d'accès au dossier de destination refusé

• Correction du fichier de données de configuration de démarrage manquant de certaines informations requises

• La version du système d'exploitation est incompatible avec Startup Repair

• Comment réparer l'accès est refusé Windows 10

• Veuillez formater la clé USB en tant que partition FAT unique : Boot Camp Assistant

• Comment démarrer sur le bureau sous Windows 8 et Windows 8.1

• Qu'est-ce qu'un virus de secteur d'amorçage et comment le prévenir ou le supprimer ?

• Qu'est-ce que le démarrage rapide et comment l'activer ou le désactiver dans Windows 11/10

• Restaurer, réparer, réparer l'enregistrement de démarrage principal (MBR) dans Windows 11/10

• Correction de Windows 10 ne démarre pas depuis USB [RÉSOLU]