3 måder at downloade alle vedhæftede filer fra Outlook

Gå gennem denne guide for at lære alle måder

Som professionel bruger kan det være monotont og tidskrævende at downloade tonsvis af vedhæftede filer fra de e-mails, der modtages i Outlook.

Heldigvis kan du nemt downloade flere vedhæftede filer fra én e-mail i Outlook på én gang uden at skulle trykke på knappen Gem for hver af dem. Desuden er det også muligt at downloade flere vedhæftede filer, der findes i flere e-mails gennem en simpel løsning.

Hvis du er nysgerrig efter at kende proceduren trin for trin, så bliv hos os, mens vi guider dig gennem proceduren.

Hvordan downloader jeg alle vedhæftede filer fra en e-mail?

1. Brug af desktop-appen

1. Start Microsoft Outlook app på din Windows-pc.
2. Se efter og åbn den e-mail i læseruden, hvorfra du downloader de vedhæftede filer.
instagram story viewer
3. Skift til Vedhæftede filer sektion fra den øverste menulinje, højreklik på en af ​​de vedhæftede filer i højre sektion og vælg Gem alle vedhæftede filer i rullemenuen.
4. Tryk på Ctrl tast og vælg alle de vedhæftede filer, du ønsker at downloade, i den lille dialogboks, der åbnes.
5. Tryk på Okay knappen efter at have valgt de nødvendige vedhæftede filer.
6. En ny Gem som pop op for at gemme dine vedhæftede filer åbnes. Gå til den mappe, hvor du vil gemme de vedhæftede filer, og tryk på Okay knappen nederst til højre for at starte download af vedhæftede filer.

Du kan nemt downloade alle filerne vedhæftet en e-mail på én gang i stedet for at downloade hver fil individuelt.

2. Brug af webappen

1. Få adgang til Microsoft Outlook web-app ved at bruge din foretrukne webbrowser og angive dine loginoplysninger, når du bliver bedt om at logge ind.
2. Vælg Indbakke mappe fra venstre menulinje i Hjem sektion af webappen.
3. Dobbeltklik på den pågældende e-mail for at se e-mail-indholdet i et nyt vindue.
4. Klik på Download alle knappen for at downloade de vedhæftede filer i form af en ZIP-fil.
5. Vælg downloadplacering og tryk på Okay knappen, hvis Gem som dialogboksen åbnes.

Dette er en ligetil metode til at downloade alle e-mailvedhæftninger fra én e-mail, hvis du foretrækker webappen i stedet for Outlook-appen.

Hvordan downloader jeg alle vedhæftede filer fra flere e-mails?

BEMÆRK

Du kan kun prøve denne metode, hvis du bruger Outlook 2019, 2016, 2013, 2010, 2007 eller 2003.

1. Opret en ny mappe

1. Brug Windows + E genvej til lancering Fil Explorer.
2. Naviger til Dokumenter mappe fra venstre sidebjælke.
3. Højreklik hvor som helst på den højre sektion og vælg Ny efterfulgt af Folder fra kontekstmenuen.
4. Dobbeltklik på mappenavnet og omdøb det til Vedhæftede filer.

2. Opret et VBA-script

1. Start nu Outlook-appen på din Windows-pc.
2. Vælg Fil mulighed og vælg derefter Muligheder fra venstre sidebjælke.
3. Vælg Tilpas bånd fra venstre panel af Ordindstillinger vindue.
4. Vælg Udvikler mulighed i Hovedfaner og tryk på Plus ikon for at tilføje udviklertilstand til Outlook-båndmenuen.
5. Luk Word Options popup og vælg derefter Udviklertilstand efterfulgt af Visual Basic fra hovedmenuen.
6. Vælg Projekt 1 vises som standard, og vælg derefter Indsæt efterfulgt af modul for at få adgang til modulvinduet.
7. Kopier og indsæt nu følgende kode i Modul 1 og luk vinduet.

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. Kør VBS-scriptet

1. Skift til Udviklertilstand og vælg derefter Visual Basic fra Outlook-båndet.
2. Vælg Modul 1 og ramte F5 nøglen til at køre koden.
3. Klik på Gem vedhæftet fil knappen efter at have valgt de vedhæftede filer for at bekræfte handlingen.

VBA-scripts giver dig mulighed for at automatisere vedhæftningsoverførselsprocessen i Microsoft Outlook. Du bør dog fortsætte forsigtigt med VBA-scripts for at undgå at beskadige din computer.

Det er alt i denne guide! Håber du er opmærksom på de forskellige måder, du nemt kan downloade alle e-mail-vedhæftede filer fra Microsoft Outlook-appen.

Hvis du løber ind i Noget gik galt fejl i Outlook app, prøv de løsninger, der er foreslået i denne vejledning.

Hvis du har spørgsmål, eller du kender til andre metoder, så lad os det vide i kommentarfeltet.