3 sätt att ladda ner alla bilagor från Outlook

Gå igenom den här guiden för att lära dig alla sätt

Som en professionell användare kan det vara monotont och tidskrävande att ladda ner massor av bilagor från e-postmeddelanden som tas emot i Outlook.

Lyckligtvis kan du enkelt ladda ner flera bilagor från ett e-postmeddelande i Outlook samtidigt utan att behöva trycka på Spara-knappen för var och en av dem. Dessutom är det också möjligt att ladda ner flera bilagor som finns i flera e-postmeddelanden genom en enkel lösning.

Om du är nyfiken på att veta steg-för-steg-proceduren, stanna hos oss när vi guidar dig genom proceduren.

Hur laddar jag ner alla bilagor från ett e-postmeddelande?

1. Använder skrivbordsappen

1. Starta Microsoft Outlook app på din Windows-dator.
2. Leta efter och öppna det e-postmeddelandet i läsrutan där du laddar ner bilagorna.
instagram story viewer
3. Byt till Bilagor från den övre menyraden högerklickar du på en av bifogade filer i den högra delen och väljer Spara alla bilagor i rullgardinsmenyn.
4. tryck på Ctrl och välj alla bilagor du vill ladda ner i den lilla dialogrutan som öppnas.
5. tryck på OK knappen efter att ha valt de nödvändiga bilagorna.
6. En ny Spara som popup-fönster för att spara dina bilagor öppnas. Bläddra till mappen där du vill spara de bifogade filerna och tryck på OK knappen längst ned till höger för att starta nedladdningen av bilagan.

Du kan enkelt ladda ner alla filer som bifogas ett e-postmeddelande på en gång istället för att ladda ner varje fil individuellt.

2. Använda webbappen

1. Få tillgång till Microsoft Outlook webbapp använda din föredragna webbläsare och ange dina inloggningsuppgifter när du uppmanas att logga in.
2. Välj Inkorg mapp från den vänstra menyraden i Hem avsnittet i webbappen.
3. Dubbelklicka på e-postmeddelandet i fråga för att se e-postinnehållet i ett nytt fönster.
4. Klicka på Ladda ner allt knappen för att ladda ner bilagorna i form av en ZIP-fil.
5. Välj nedladdningsplats och tryck på OK knappen om Spara som dialogrutan öppnas.

Detta är en enkel metod för att ladda ner alla e-postbilagor från ett e-postmeddelande om du föredrar webbappen istället för Outlook-appen.

Hur laddar jag ner alla bilagor från flera e-postmeddelanden?

NOTERA

Du kan bara prova den här metoden om du använder Outlook 2019, 2016, 2013, 2010, 2007 eller 2003.

1. Skapa en ny mapp

1. Använd Windows + E genväg för att starta Utforskaren.
2. Navigera till Dokument mapp från det vänstra sidofältet.
3. Högerklicka var som helst på det högra avsnittet och välj Ny följd av Mapp från snabbmenyn.
4. Dubbelklicka på mappnamnet och byt namn på den till Bilagor.

2. Skapa ett VBA-skript

1. Starta nu Outlook-appen på din Windows-dator.
2. Välj den Fil alternativet och välj sedan alternativ från vänster sidofält.
3. Välj Anpassa band från den vänstra panelen på Ordalternativ fönster.
4. Välj Utvecklare alternativet i Huvudflikar och tryck på Plus ikon för att lägga till utvecklarläge till menyfliksområdet i Outlook.
5. Stäng popup-fönstret för Word-alternativ och välj sedan Utvecklarläge följd av Visual Basic från huvudmenyn.
6. Välj Projekt 1 visas som standard och välj sedan Föra in följd av Modul för att komma åt modulfönstret.
7. Kopiera nu och klistra in följande kod i Modul 1 och stäng fönstret.

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-skriptet

1. Byt till Utvecklarläge och välj sedan Visual Basic från Outlook-bandet.
2. Välj Modul 1 och slå på F5 nyckel för att köra koden.
3. Klicka på Spara bilaga efter att ha valt bilagorna för att bekräfta åtgärden.

VBA-skript gör att du kan automatisera nedladdningsprocessen för bilagor i Microsoft Outlook. Du bör dock fortsätta försiktigt med VBA-skripten för att undvika att skada din dator.

Det är allt i den här guiden! Hoppas du är medveten om de olika sätten du enkelt kan ladda ner alla e-postbilagor från Microsoft Outlook-appen.

Om du stöter på Något gick fel fel i Outlook appen, prova lösningarna som föreslås i den här guiden.

Om du har några frågor, eller om du känner till andra metoder, låt oss veta i kommentarsfältet.