3 façons de télécharger toutes les pièces jointes à partir d'Outlook

Parcourez ce guide pour apprendre toutes les façons

En tant qu'utilisateur professionnel, le téléchargement de tonnes de pièces jointes à partir des e-mails reçus dans Outlook peut être monotone et prendre beaucoup de temps.

Heureusement, vous pouvez facilement télécharger plusieurs pièces jointes à partir d'un e-mail dans Outlook à la fois sans avoir à appuyer sur le bouton Enregistrer pour chacune d'entre elles. De plus, il est également possible de télécharger plusieurs pièces jointes présentes dans plusieurs e-mails grâce à une solution de contournement simple.

Si vous êtes curieux de connaître la procédure étape par étape, restez avec nous pendant que nous vous guidons tout au long de la procédure.

Comment télécharger toutes les pièces jointes d'un e-mail ?

1. Utilisation de l'application de bureau

1. Lancez le Microsoft Outlook application sur votre PC Windows.
2. Recherchez et ouvrez cet e-mail dans le volet de lecture à partir duquel vous téléchargez les pièces jointes.
3. Passez à la Pièces jointes dans la barre de menus supérieure, cliquez avec le bouton droit sur l'une des pièces jointes dans la section de droite, puis sélectionnez Enregistrer toutes les pièces jointes dans le menu déroulant.
4. appuie sur le Ctrl et sélectionnez toutes les pièces jointes que vous souhaitez télécharger dans la petite boîte de dialogue qui s'ouvre.
5. appuie sur le D'ACCORD bouton après avoir sélectionné les pièces jointes requises.
6. Un nouveau Enregistrer sous pop-up pour enregistrer vos pièces jointes s'ouvrira. Naviguez jusqu'au dossier dans lequel vous souhaitez enregistrer les fichiers joints et appuyez sur la touche D'ACCORD bouton en bas à droite pour lancer le téléchargement de la pièce jointe.

Vous pouvez facilement télécharger tous les fichiers joints à un e-mail en une seule fois au lieu de télécharger chaque fichier individuellement.

2. Utilisation de l'application Web

1. Accéder au Application Web Microsoft Outlook en utilisant votre navigateur Web préféré et fournissez vos identifiants de connexion lorsque vous êtes invité à vous connecter.
2. Sélectionnez le Boîte de réception dossier dans la barre de menu de gauche dans le Maison section de l'application Web.
3. Double-cliquez sur l'e-mail en question pour afficher le contenu de l'e-mail dans une nouvelle fenêtre.
4. Clique le Tout télécharger bouton pour télécharger les pièces jointes sous forme de fichier ZIP.
5. Choisissez l'emplacement de téléchargement et appuyez sur le D'ACCORD bouton si le Enregistrer sous la boîte de dialogue s'ouvre.

Il s'agit d'une méthode simple pour télécharger toutes les pièces jointes d'un e-mail si vous préférez l'application Web au lieu de l'application Outlook.

Comment télécharger toutes les pièces jointes de plusieurs e-mails ?

NOTE

Vous pouvez essayer cette méthode uniquement si vous utilisez Outlook 2019, 2016, 2013, 2010, 2007 ou 2003.

1. Créer un nouveau dossier

1. Utilisez le les fenêtres + E raccourci pour lancer Explorateur de fichiers.
2. Naviguez vers le Documents dossier dans la barre latérale gauche.
3. Faites un clic droit n'importe où dans la section de droite et choisissez Nouveau suivie par Dossier depuis le menu contextuel.
4. Double-cliquez sur le nom du dossier et renommez-le en Pièces jointes.

2. Créer un script VBA

1. Lancez maintenant l'application Outlook sur votre PC Windows.
2. Choisir la Déposer puis sélectionnez Choix de la barre latérale gauche.
3. Sélectionner Personnaliser le ruban du panneau de gauche du Options de mots fenêtre.
4. Sélectionnez le Développeur possibilité dans le Onglets principaux et appuyez sur le Plus icône pour ajouter le mode Développeur au menu du ruban Outlook.
5. Fermez la fenêtre contextuelle Options Word, puis sélectionnez Mode développeur suivie par Visual Basic depuis le menu principal.
6. Sélectionner Projet 1 affiché par défaut, puis sélectionnez Insérer suivie par Module pour accéder à la fenêtre Module.
7. Maintenant, copiez et collez le code suivant dans Module 1 et fermez la fenêtre.

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 & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" 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

3. Exécutez le script VBS

1. Passez à la Mode développeur puis sélectionnez Visual Basic depuis le ruban Outlook.
2. Sélectionner Module 1 et frappez le F5 clé pour exécuter le code.
3. Clique le Enregistrer la pièce jointe après avoir sélectionné les pièces jointes pour confirmer l'action.

Les scripts VBA vous permettent d'automatiser le processus de téléchargement des pièces jointes dans Microsoft Outlook. Cependant, vous devez procéder avec précaution avec les scripts VBA pour éviter d'endommager votre ordinateur.

C'est tout dans ce guide! J'espère que vous connaissez les différentes façons de télécharger facilement toutes les pièces jointes à partir de l'application Microsoft Outlook.

Si vous tombez sur le Une erreur s'est produite dans Outlook app, essayez les solutions suggérées dans ce guide.

Si vous avez des questions ou si vous connaissez d'autres méthodes, faites-le nous savoir dans la section des commentaires.