3 måter å laste ned alle vedlegg fra Outlook

Gå gjennom denne veiledningen for å lære alle måtene

Som en profesjonell bruker kan det være monotont og tidkrevende å laste ned tonnevis av vedlegg fra e-postene mottatt i Outlook.

Heldigvis kan du enkelt laste ned flere vedlegg fra én e-post i Outlook samtidig uten å måtte trykke på Lagre-knappen for hver av dem. Videre er det også mulig å laste ned flere vedlegg i flere e-poster gjennom en enkel løsning.

Hvis du er nysgjerrig på å vite trinn-for-trinn-prosedyren, bli hos oss mens vi veileder deg gjennom prosedyren.

Hvordan laster jeg ned alle vedlegg fra en e-post?

1. Bruker skrivebordsappen

1. Start Microsoft Outlook app på din Windows-PC.
2. Se etter og åpne den e-posten i leseruten du laster ned vedleggene fra.
3. Bytt til Vedlegg fra den øverste menylinjen, høyreklikk på et av filvedleggene i høyre seksjon, og velg
   instagram story viewer
   Lagre alle vedlegg i rullegardinmenyen.
4. trykk Ctrl tasten og velg alle vedleggene du ønsker å laste ned i den lille dialogboksen som åpnes.
5. trykk OK knappen etter å ha valgt de nødvendige vedleggene.
6. En ny Lagre som popup for å lagre vedleggene dine åpnes. Bla til mappen der du vil lagre vedleggsfilene og trykk på OK knappen nederst til høyre for å starte nedlastingen av vedlegget.

Du kan enkelt laste ned alle filene vedlagt en e-post samtidig i stedet for å laste ned hver fil individuelt.

2. Ved hjelp av nettappen

1. Få tilgang til Microsoft Outlook web-app ved å bruke din foretrukne nettleser og oppgi påloggingsinformasjonen din når du blir bedt om å logge på.
2. Velg Innboks mappe fra venstre menylinje i Hjem delen av nettappen.
3. Dobbeltklikk på den aktuelle e-posten for å se e-postinnholdet i et nytt vindu.
4. Klikk på Last ned alle knappen for å laste ned vedleggene i form av en ZIP-fil.
5. Velg nedlastingssted og trykk på OK knappen hvis Lagre som dialogboksen åpnes.

Dette er en enkel metode for å laste ned alle e-postvedleggene fra én e-post hvis du foretrekker nettappen i stedet for Outlook-appen.

Hvordan laster jeg ned alle vedlegg fra flere e-poster?

MERK

Du kan bare prøve denne metoden hvis du bruker Outlook 2019, 2016, 2013, 2010, 2007 eller 2003.

1. Lag en ny mappe

1. Bruke Windows + E snarvei for å starte Filutforsker.
2. Naviger til Dokumenter mappe fra venstre sidefelt.
3. Høyreklikk hvor som helst på den høyre delen og velg Ny etterfulgt av Mappe fra kontekstmenyen.
4. Dobbeltklikk på mappenavnet og gi det nytt navn til Vedlegg.

2. Lag et VBA-skript

1. Start nå Outlook-appen på din Windows-PC.
2. Velg Fil og velg deretter Alternativer fra venstre sidefelt.
3. Plukke ut Tilpass bånd fra venstre panel på Ordalternativer vindu.
4. Velg Utvikler alternativet i Hovedfaner og trykk på I tillegg til ikonet for å legge til utviklermodus i Outlook-båndmenyen.
5. Lukk Word Options popup og velg deretter Utviklermodus etterfulgt av Visual Basic fra hovedmenyen.
6. Plukke ut Prosjekt 1 vises som standard, og velg deretter Sett inn etterfulgt av Modul for å få tilgang til modulvinduet.
7. Kopier og lim inn følgende kode i Modul 1 og lukke 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. Kjør VBS-skriptet

1. Bytt til Utviklermodus og velg deretter Visual Basic fra Outlook-båndet.
2. Plukke ut Modul 1 og treffer F5 nøkkel for å kjøre koden.
3. Klikk på Lagre vedlegg knappen etter å ha valgt vedleggene for å bekrefte handlingen.

VBA-skript lar deg automatisere nedlastingsprosessen for vedlegg i Microsoft Outlook. Du bør imidlertid fortsette forsiktig med VBA-skriptene for å unngå å skade datamaskinen.

Det er alt i denne guiden! Håper du er klar over de forskjellige måtene du enkelt kan laste ned alle e-postvedlegg fra Microsoft Outlook-appen.

Hvis du støter på Noe gikk galt feil i Outlook app, prøv løsningene som er foreslått i denne veiledningen.

Hvis du har spørsmål, eller du vet om andre metoder, gi oss beskjed i kommentarfeltet.