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.
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
- Start de Microsoft Outlook app op uw Windows-pc.
- Zoek en open die e-mail in het leesvenster van waaruit u de bijlagen downloadt.
- 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.
- druk de Ctrl toets en selecteer alle bijlagen die u wilt downloaden in het kleine dialoogvenster dat wordt geopend.
- druk de OK knop na het selecteren van de vereiste bijlagen.
- 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.
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
- 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.
- Selecteer de Postvak IN map uit de linkermenubalk in het Thuis gedeelte van de webapp.
- Dubbelklik op de betreffende e-mail om de inhoud van de e-mail in een nieuw venster te bekijken.
- Klik op de Download alles knop om de bijlagen in de vorm van een ZIP-bestand te downloaden.
- 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?
U kunt deze methode alleen proberen als u Outlook 2019, 2016, 2013, 2010, 2007 of 2003 gebruikt.
1. Maak een nieuwe folder
- Gebruik de ramen + E snelkoppeling om te starten Verkenner.
- Navigeer naar de Documenten map in de linkerzijbalk.
- Klik met de rechtermuisknop ergens in het juiste gedeelte en kies Nieuw gevolgd door Map vanuit het contextmenu.
- Dubbelklik op de mapnaam en hernoem deze als Bijlagen.
2. Maak een VBA-script
- Start nu de Outlook-app op uw Windows-pc.
- Kies de Bestand optie en selecteer vervolgens Opties uit de linkerzijbalk.
- Selecteer Lint aanpassen van het linkerpaneel van de Word-opties raam.
- Selecteer de Ontwikkelaar optie in de Hoofdtabbladen en druk op de Plus pictogram om de ontwikkelaarsmodus toe te voegen aan het Outlook-lintmenu.
- Sluit het pop-upvenster Word-opties en selecteer vervolgens Ontwikkelaarsmodus gevolgd door Visuele basis vanuit het hoofdmenu.
- Selecteer Project 1 standaard weergegeven en selecteer vervolgens Invoegen gevolgd door Modulair om toegang te krijgen tot het modulevenster.
- 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
- Schakel over naar de Ontwikkelaarsmodus en selecteer vervolgens Visuele basis vanaf het Outlook-lint.
- Selecteer Module 1 en raak de F5 toets om de code uit te voeren.
- 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.