3 manieren om alle bijlagen uit Outlook te downloaden

Doorloop deze gids om alle manieren te leren

  • Met Microsoft kunt u alle bijlagen die bij de e-mail zijn gevoegd in één keer downloaden.
  • Evenzo kunt u bijlagen downloaden van meerdere bijlagen met behulp van de VB-code.
  • Doorloop deze gids om het stapsgewijze proces te leren om meerdere bijlagen te downloaden.
Outlook download alle bijlagen

Als professionele gebruiker kan het eentonig en tijdrovend zijn om tonnen bijlagen te downloaden van de e-mails die in Outlook zijn ontvangen.

Gelukkig kunt u eenvoudig meerdere bijlagen van één e-mail in Outlook tegelijk downloaden zonder dat u voor elke bijlage op de knop Opslaan hoeft te drukken. Bovendien is het ook mogelijk om via een eenvoudige oplossing meerdere bijlagen in meerdere e-mails te downloaden.

Als u nieuwsgierig bent naar de stapsgewijze procedure, blijf dan bij ons terwijl we u door de procedure leiden.

Hoe download ik alle bijlagen van een e-mail?

1. De desktop-app gebruiken

  1. Start de Microsoft Outlook app op uw Windows-pc.
  2. Zoek en open die e-mail in het leesvenster van waaruit u de bijlagen downloadt.
  3. Schakel over naar de Bijlagen sectie in de bovenste menubalk, klik met de rechtermuisknop op een van de bestandsbijlagen in de rechtersectie en selecteer Bewaar alle bijlagen in het vervolgkeuzemenu.
  4. druk de Ctrl toets en selecteer alle bijlagen die u wilt downloaden in het kleine dialoogvenster dat wordt geopend.
  5. druk de OK knop na het selecteren van de vereiste bijlagen.
  6. Een nieuwe Opslaan als pop-up om uw bijlagen op te slaan wordt geopend. Blader naar de map waarin u de bijlagebestanden wilt opslaan en druk op de OK knop rechtsonder om het downloaden van bijlagen te starten. Outlook download alle bijlagen

U kunt eenvoudig alle bestanden die bij een e-mail zijn gevoegd in één keer downloaden in plaats van elk bestand afzonderlijk te downloaden.

2. De web-app gebruiken

  1. Toegang krijgen tot Microsoft Outlook-webapp met behulp van uw favoriete webbrowser en geef uw inloggegevens op wanneer u wordt gevraagd om u aan te melden.
  2. Selecteer de Postvak IN map uit de linkermenubalk in het Thuis gedeelte van de webapp. Outlook download alle bijlagen
  3. Dubbelklik op de betreffende e-mail om de inhoud van de e-mail in een nieuw venster te bekijken.
  4. Klik op de Download alles knop om de bijlagen in de vorm van een ZIP-bestand te downloaden. Outlook download alle bijlagen
  5. Kies de downloadlocatie en druk op de OK knop als de Opslaan als het dialoogvenster wordt geopend.

Dit is een eenvoudige methode om alle e-mailbijlagen van één e-mail te downloaden als u de voorkeur geeft aan de webapp in plaats van de Outlook-app.

Hoe download ik alle bijlagen van meerdere e-mails?

Opmerking pictogramOPMERKING

U kunt deze methode alleen proberen als u Outlook 2019, 2016, 2013, 2010, 2007 of 2003 gebruikt.

1. Maak een nieuwe folder

  1. Gebruik de ramen + E snelkoppeling om te starten Verkenner.
  2. Navigeer naar de Documenten map in de linkerzijbalk.
  3. Klik met de rechtermuisknop ergens in het juiste gedeelte en kies Nieuw gevolgd door Map vanuit het contextmenu. Outlook download alle bijlagen
  4. Dubbelklik op de mapnaam en hernoem deze als Bijlagen.

2. Maak een VBA-script

  1. Start nu de Outlook-app op uw Windows-pc.
  2. Kies de Bestand optie en selecteer vervolgens Opties uit de linkerzijbalk.
  3. Selecteer Lint aanpassen van het linkerpaneel van de Word-opties raam. Outlook download alle bijlagen
  4. Selecteer de Ontwikkelaar optie in de Hoofdtabbladen en druk op de Plus pictogram om de ontwikkelaarsmodus toe te voegen aan het Outlook-lintmenu.
  5. Sluit het pop-upvenster Word-opties en selecteer vervolgens Ontwikkelaarsmodus gevolgd door Visuele basis vanuit het hoofdmenu.
  6. Selecteer Project 1 standaard weergegeven en selecteer vervolgens Invoegen gevolgd door Modulair om toegang te krijgen tot het modulevenster.
  7. Kopieer en plak nu de volgende code in Module 1 en sluit het venster.
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. Voer het VBS-script uit

  1. Schakel over naar de Ontwikkelaarsmodus en selecteer vervolgens Visuele basis vanaf het Outlook-lint. Outlook download alle bijlagen
  2. Selecteer Module 1 en raak de F5 toets om de code uit te voeren.
  3. Klik op de Bijlage opslaan knop na het selecteren van de bijlagen om de actie te bevestigen.

Met VBA-scripts kunt u het downloadproces voor bijlagen in Microsoft Outlook automatiseren. U moet echter voorzichtig te werk gaan met de VBA-scripts om schade aan uw computer te voorkomen.

Dat staat allemaal in deze gids! Ik hoop dat u op de hoogte bent van de verschillende manieren waarop u eenvoudig alle e-mailbijlagen kunt downloaden van de Microsoft Outlook-app.

Als je tegen de Er is iets fout gegaan in de Outlook app, probeer dan de oplossingen die in deze handleiding worden voorgesteld.

Als u vragen heeft of andere methoden kent, kunt u ons dit laten weten in het opmerkingengedeelte.

Outlook-fout herstellen tijdens het voorbereiden om een ​​bericht voor delen te verzenden

Outlook-fout herstellen tijdens het voorbereiden om een ​​bericht voor delen te verzendenOutlookWindows 10

Veel gebruikers hebben gemeld dat ze bij het verzenden van een agenda-uitnodiging via Outlook de volgende foutmelding krijgen:Fout bij het voorbereiden om een ​​bericht voor delen te verzendenWaar ...

Lees verder
Nieuwe e-mailmeldingen en instellingen instellen in MS Outlook

Nieuwe e-mailmeldingen en instellingen instellen in MS OutlookOutlook

In dit artikel laten we zien hoe u nieuwe e-mailmeldingen kunt ontvangen en hoe u de meldingsinstellingen en het geluid van MS Outlook. Eerst gaan we zien hoe u een e-mailmelding kunt krijgen telke...

Lees verder
Les dernières MAJ Windows déclenchent des problèmes Outlook

Les dernières MAJ Windows déclenchent des problèmes OutlookOutlookPatch Dinsdag

Au désespoir des utilisateurs, les MAJ Windows continuent à déclencher des bogues. Cette fois-ci, Outlook est sous la loupe. Ce n'est pas tout, les defaillances suivent le Patch Tuesday de Juillet:...

Lees verder