Jeśli działasz w branży, w której codziennie otrzymujesz niezliczoną ilość e-maili, prawdopodobnie otrzymujesz wiele e-maili z wieloma załącznikami. Ręczne wyodrębnianie załączników może być czasochłonne, jeśli jest ich wiele do pobrania. Na szczęście za pomocą programu Microsoft Outlook^{(Microsoft Outlook)} można łatwo zapisać wiele załączników do wiadomości e-mail jednocześnie .

W tym samouczku pokażemy, jak pobrać wszystkie załączniki z programu Outlook^(Outlook) .

Jak pobrać wszystkie załączniki do wiadomości e-mail programu Microsoft Outlook ^{(Microsoft Outlook Email Attachments)}jednocześnie^(Once) w systemie Windows

Aby pobrać wszystkie załączniki jednocześnie za pomocą aplikacji Microsoft Outlook dla systemu Windows^{(Windows Microsoft Outlook)} , wykonaj następujące czynności:

1. Otwórz Outlooka^(Outlook) i zaloguj się do swojego profilu Outlooka^(Outlook) .
2. Wybierz wiadomość e-mail zawierającą żądane załączniki programu Outlook^(Outlook) .
3. Kliknij prawym przyciskiem myszy dowolny plik załącznika i wybierz opcję Zapisz^(Save) wszystkie załączniki z menu rozwijanego. Jeśli chcesz zapisać tylko jeden plik, wybierz opcję Zapisz jako^{(Save As)} .

1. W nowym oknie dialogowym przytrzymaj klawisz CTRL na klawiaturze i zaznacz wszystkie załączniki, które chcesz pobrać. Kliknij OK^{(Click OK)} .

1. Wybierz lokalizację, w której chcesz zapisać pliki i naciśnij przycisk OK.

Jak pobrać wszystkie załączniki do wiadomości e-mail programu Microsoft Outlook ^{(Microsoft Outlook Email Attachments)}jednocześnie^(Once) na komputerze Mac

Oto jak pobrać wszystkie załączniki przy użyciu programu Outlook^(Outlook) dla komputerów Mac^(Mac) :

1. Otwórz aplikację MS Outlook.
2. Wybierz wiadomość e-mail zawierającą załączniki.
3. Kliknij^(Click) Załączniki i wybierz Pobierz ^{(Attachments)}wszystko^{(Download All)} .

1. Wybierz lokalizację, w której chcesz zapisać załączniki, i wybierz Wybierz^(Choose) .

Jak pobrać wiele załączników programu Outlook^{(Download Multiple Outlook Attachments)} z wielu wiadomości e-mail^{(Multiple Emails)}

Możliwe jest także pobranie wielu załączników z wielu wiadomości e-mail jednocześnie. Aby to zrobić:

Użyj kodu VBA

Jeśli używasz Outlooka 2019^{(Outlook 2019)} , 2016, 2013, 2010, 2007 lub 2003, możesz użyć edytora VBA^{(VBA editor)} , aby pobrać wiele załączników z wielu wiadomości e-mail.

1. Otwórz folder Dokumenty i utwórz nowy folder o nazwie „Załączniki”. Tutaj będą pobierane Twoje załączniki.
2. Otwórz Microsoft Outlooka.
3. Naciśnij^(Press) klawisze Alt i F11 na klawiaturze, aby otworzyć edytor VBA .
4. Kliknij prawym przyciskiem myszy Microsoft Outlook Object > Insert > Insert Module .

1. Skopiuj poniższy kod do edytora i naciśnij Enter:

Dim GCount jako liczba całkowita

Dim GFilepath jako ciąg

Publiczne subskrypcje Zapisz załączniki()

„Aktualizacja 20200821

Przyciemnij xMailItem jako Outlook.MailItem

Przyciemnij^(Dim) xAttachments jako Outlook.Attachments

Przyciemnij^(Dim) xSelection jako Outlook.Selection

Przyciemnij i tak długo

Dim xAttCount Tak długo

Dim xFilePath jako ciąg znaków^(String) , xFolderPath jako ciąg znaków^(String) , xSaveFiles jako ciąg znaków^(String)

W przypadku błędu Wznów dalej

xFolderPath = CreateObject („WScript.Shell”).SpecialFolders(16)

Ustaw^(Set) xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath i „Załączniki”

Jeśli VBA.Dir ( xFolderPath , vbDirectory) = vbNullString Wtedy

VBA.MkDir xFolderPath

Zakończ jeśli

GFilepath = „”

Dla każdego xMailItem w xSelection

Ustaw^(Set) xAttachments = xMailItem.Attachments

xAttCount = xAttachments.Count

xSaveFiles = „”

Jeśli xAttCount > 0 To

Dla i = xAttCount do 1 Krok^(Step) -1

GCount = 0

xFilePath = xFolderPath & xAttachments.Item (i).NazwaPliku

GFilepath = xFilePath

xFilePath = Zmiana nazwy pliku^(FileRename) (xFilePath)

Jeśli IsEmbeddedAttachment ( xAttachments.Item (i)) = False To

xAttachments.Item(i).SaveAsFile xFilePath

Jeśli xMailItem.BodyFormat <> olFormatHTML Wtedy

xSaveFiles = xSaveFiles & vbCrLf & „Odniesienie do hiperłącza jest nieprawidłowe.>”

W przeciwnym razie

xSaveFiles = xSaveFiles & „
” i „ xFilePath & “‘>” & xFilePath & “ ”

Zakończ jeśli

Zakończ jeśli

Następny ja

Zakończ jeśli

Następny

Ustaw xAttachments = Nic

Ustaw xMailItem = Nic

Ustaw xSelection = Nic

Napis końcowy

Funkcja FileRename ( FilePath As String ) Jako String

Wymnij xPath jako ciąg

Dim xFso jako obiekt FileSystemObject

W przypadku błędu Wznów dalej

Set xFso = CreateObject („ Scripting.FileSystemObject ”)

xPath = ścieżka pliku

Zmiana nazwy pliku = xPath

Jeśli xFso.FileExists(xPath) to

GCount = GCount + 1

xPath = xFso.GetParentFolderName( GFilepath ) & „” & xFso.GetBaseName ( GFilepath ) & ” ” & GCount & „.” + xFso.GetExtensionName( GFilepath )

FileRename = FileRename(xPath)

Zakończ jeśli

xFso = Nic

Funkcja końcowa

Funkcja IsEmbeddedAttachment^{(Function IsEmbeddedAttachment)} ( dołącz^(Attach) jako załącznik^(Attachment) )

Przyciemnij xItem jako element poczty

Dim xCid jako ciąg

Wymiar xID jako ciąg

Dim xHtml jako ciąg

W przypadku błędu Wznów dalej

IsEmbeddedAttachment = Fałsz

Ustaw xItem = Dołącz.Parent

Jeśli xItem.BodyFormat <> olFormatHTML, to wyjdź z funkcji^(Function)

xCid = „”

xCid = Attach.PropertyAccessor.GetProperty („http://schemas.microsoft.com/mapi/proptag/0x3712001F”)

Jeśli xCid <> „” Wtedy

xHtml = xItem.HTMLBody

xID = „cid:” i xCid

Jeśli InStr(xHtml, xID) > 0 To

IsEmbeddedAttachment = True

Zakończ jeśli

Zakończ jeśli

Funkcja końcowa

Uwaga: Możesz skopiować powyższy oryginalny kod z Extend Office^{(original code above from Extend Office)} i wkleić go do edytora.

1. Naciśnij klawisz F5^{(Press F5)} , aby uruchomić skrypt. Może pojawić się wyskakujące okienko z prośbą o zezwolenie na tę akcję.

Korzystanie z narzędzia zewnętrznego

Jeśli używasz innej wersji Outlooka^(Outlook) , chcesz pobrać plik innego typu niż PST^{(a file type other than PST)} lub uważasz, że metoda VBA jest uciążliwa, możesz pobrać narzędzie, które pomoże Ci pobrać wiele załączników Outlooka^(Outlook) jednocześnie.

Aplikacje takie jak Outlook Annex Extractor^{(Outlook Attachment Extractor)} mają funkcję zapisywania załączników nie tylko z plików PST , ale także z innych formatów plików, takich jak pliki OST , BAK , MSG , OLK i OLM . Możesz także skonfigurować aplikację tak, aby filtrowała załączniki według rozmiaru pliku, daty lub nadawcy.

Jak pobrać wszystkie załączniki z uszkodzonego^(Corrupted) pliku

Jeśli nie możesz otwierać, przeglądać ani zapisywać załączników w programie Outlook^(Outlook) , plik PST programu Microsoft Outlook^{(Microsoft Outlook PST)} może być uszkodzony. Możesz naprawić plik PST^{(repair the PST file)} , aby odzyskać załącznik, korzystając z narzędzi takich jak aplikacja SCANPST.exe .

Aby skorzystać z tego narzędzia, zamknij program Outlook^(Outlook) i przejdź do jednej z następujących lokalizacji, w zależności od wersji programu Outlook :

1. Outlook 2019: C: Pliki programów (x86) Microsoft Office\root\Office16
2. Outlook 2016: C: Pliki programów (x86) Microsoft Office\root\Office16
3. Outlook 2013: C:Pliki programów (x86)Microsoft Office\Office15
4. Outlook 2010: C:Pliki programów (x86)Microsoft Office\Office14
5. Outlook 2007: C:Pliki programów (x86)Microsoft Office\Office12

Następnie kliknij dwukrotnie SCANPST.EXE.

Wybierz Przeglądaj^{(Select Browse)} , zlokalizuj plik danych programu Outlook^(Outlook) , który chcesz przeskanować i naciśnij Start .

Jeśli narzędzie znajdzie błędy, wybierz opcję Napraw^(Repair) , aby spróbować je naprawić. Po zakończeniu uruchom ponownie Outlooka^(Outlook) i sprawdź, czy teraz działa.

Usprawnij swoje działania e-mailowe

Pobieranie wielu plików z programu Outlook^(Outlook) jest łatwe i można nawet pobrać wiele plików z wielu wiadomości e-mail jednocześnie. Jeśli metody wbudowane w programie Outlook^(Outlook) wydają Ci się zbyt trudne, możesz pobrać narzędzia, takie jak Ekstraktor załączników programu Outlook,^{(Outlook Attachment Extractor)} które Ci w tym pomogą.

How to Download All Attachments From Outlook Emails

If you’re in an industry where you receiνe countless emails every day, you likely get many emails with multiple attachments. Using a mаnual method to extract attachments cаn be time-consuming if there are many to download. Luсkily, it’s easy to save multiple email attachmеnts at once using Microsoft Outlook.

In this tutorial, we’ll show you how to download all attachments from Outlook.

How to Download All Microsoft Outlook Email Attachments at Once on Windows

To download all attachments at once using the Windows Microsoft Outlook app, do the following:

1. Open Outlook and sign in to your Outlook profile.
2. Select the email with your desired Outlook attachments.
3. Right-click any of the attachment files and select Save all attachments in the drop-down menu. If you only want to save one file, select Save As.

1. In the new dialog box, hold down the CTRL key on your keyboard and select all of the attachments you want to download. Click OK.

1. Select the location that you would like to save the files to and press the OK button.

How to Download All Microsoft Outlook Email Attachments at Once on Mac

Here’s how to download all attachments using Outlook for Mac:

1. Open the MS Outlook application.
2. Select the Email message that contains your attachments.
3. Click on Attachments and select Download All.

1. Select the location that you would like to save your attachments and select Choose.

How to Download Multiple Outlook Attachments From Multiple Emails

It’s also possible to download multiple attachments from many emails at once. To do so:

Use VBA Code

If you are using Outlook 2019, 2016, 2013, 2010, 2007, or 2003, you can use the VBA editor to download multiple attachments from multiple emails.

1. Open your Documents folder and create a new folder named “Attachments.” This is where your attachments will download to.
2. Open Microsoft Outlook.
3. Press the Alt and F11 keys on the keyboard to open the VBA editor.
4. Right-click Microsoft Outlook Object > Insert > Insert Module.

1. Copy the following code into the editor and press Enter:

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 & “<Error! Hyperlink reference not valid.>”

Else

xSaveFiles = xSaveFiles & “<br>” & “<a href=’file://” & xFilePath & “‘>” & xFilePath & “</a>”

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

Note: You can copy the original code above from Extend Office and paste it into the editor.

1. Press F5 to run the script. You may get a pop-up window prompting you to allow the action.

Using an External Tool

If you’re using another version of Outlook, want to download a file type other than PST, or find the VBA method cumbersome, you can download a tool that can help you download multiple Outlook attachments at once.

Apps such as Outlook Attachment Extractor have the functionality to save attachments not only from PST files, but from other file formats such as OST, BAK, MSG, OLK, and OLM files, too. You can also configure the app to filter attachments by file size, date, or sender.

How to Download All Attachments From a Corrupted File

If you cannot open, view, or save file attachments in Outlook, the Microsoft Outlook PST file may be corrupted or damaged. You can repair the PST file to retrieve the attachment using tools such as the SCANPST.exe application.

To use this tool, close Outlook and navigate to one of the following locations, depending on your version of Outlook:

1. Outlook 2019: C:\Program Files (x86)\Microsoft Office\root\Office16
2. Outlook 2016: C:\Program Files (x86)\Microsoft Office\root\Office16
3. Outlook 2013: C:\Program Files (x86)\Microsoft Office\Office15
4. Outlook 2010: C:\Program Files (x86)\Microsoft Office\Office14
5. Outlook 2007: C:\Program Files (x86)\Microsoft Office\Office12

Then, double-click SCANPST.EXE.

Select Browse, locate the Outlook data file you want to scan and press Start.

If the tool finds errors, select Repair to attempt to fix them. Once complete, restart Outlook and check whether it now works.

Streamline Your Email Activities

Downloading multiple files from Outlook is easy and you can even download multiple files from multiple emails all at once. If you find the built-in methods in Outlook too difficult, you can download tools such as Outlook Attachment Extractor to help you out.

Related posts

• Jak zmienić jasność ekranu w systemie Windows 11?

• Jak obracać ekran w systemie Windows 11

• Jak wyłączyć ekran blokady w systemie Windows 11?

• Jak nagrywać ekran w systemie Windows 11

• Napraw ten komputer nie może uruchomić błędu systemu Windows 11

• Jak zmienić serwer DNS w systemie Windows 11?

• Jak zainstalować system Windows 11 w starszym systemie BIOS?

• Jak korzystać z karteczek samoprzylepnych w systemie Windows 11

• Jak zsynchronizować czas w systemie Windows 11

• Jak zmienić kraj w Microsoft Store w Windows 11?

• Jak wyłączyć programy startowe w systemie Windows 11?

• Jak naprawić brzęczenie dźwiękowe w systemie Windows 11?

• Jak włączyć Edytor zasad grupy w systemie Windows 11 Home Edition

• Jak wyłączyć adaptacyjną jasność w systemie Windows 11?

• Jak zwiększyć prędkość Internetu w systemie Windows 11?

• Jak wyświetlić działające procesy w systemie Windows 11?

• Napraw błąd krytycznego procesu w systemie Windows 11

• Jak korzystać z PowerToys w systemie Windows 11

• Jak włączyć tryb hibernacji w systemie Windows 11?

• Jak przywrócić brakującą ikonę kosza w systemie Windows 11?