Nếu bạn làm trong ngành mà bạn nhận được vô số email mỗi ngày, bạn có thể nhận được nhiều email có nhiều tệp đính kèm. Sử dụng phương pháp thủ công để trích xuất tệp đính kèm có thể tốn thời gian nếu có nhiều tệp để tải xuống. May mắn thay, thật dễ dàng để lưu nhiều tệp đính kèm email cùng một lúc bằng Microsoft Outlook .

Trong hướng dẫn này, chúng tôi sẽ chỉ cho bạn cách tải xuống tất cả các tệp đính kèm từ Outlook .

Cách tải xuống tất cả các tệp đính kèm email Microsoft Outlook^{(Microsoft Outlook Email Attachments)} cùng một lúc^(Once) trên Windows

Để tải xuống tất cả tệp đính kèm cùng một lúc bằng ứng dụng Windows Microsoft Outlook , hãy làm như sau:

1. Mở Outlook và đăng nhập vào hồ sơ Outlook của bạn .
2. Chọn email có tệp đính kèm Outlook mà bạn mong muốn .
3. Nhấp chuột phải vào bất kỳ tệp đính kèm nào và chọn Lưu^(Save) tất cả tệp đính kèm trong menu thả xuống. Nếu chỉ muốn lưu một file thì chọn Save As .

1. Trong hộp thoại mới, giữ phím CTRL trên bàn phím và chọn tất cả các tệp đính kèm bạn muốn tải xuống. Bấm vào đồng ý^{(Click OK)} .

1. Chọn vị trí bạn muốn lưu tệp vào và nhấn nút OK.

Cách tải xuống tất cả các tệp đính kèm email Microsoft Outlook^{(Microsoft Outlook Email Attachments)} cùng một lúc^(Once) trên máy Mac^(Mac)

Dưới đây là cách tải xuống tất cả tệp đính kèm bằng Outlook dành cho Mac :

1. Mở ứng dụng MS Outlook.
2. Chọn thư Email có chứa phần đính kèm của bạn.
3. Bấm^(Click) vào Tệp đính kèm^{(Attachments)} và chọn Tải xuống tất cả^{(Download All)} .

1. Chọn vị trí bạn muốn lưu tệp đính kèm và chọn Chọn^(Choose) .

Cách tải xuống nhiều tệp đính kèm Outlook^{(Download Multiple Outlook Attachments)} từ nhiều email^{(Multiple Emails)}

Cũng có thể tải xuống nhiều tệp đính kèm từ nhiều email cùng một lúc. Làm như vậy:

Sử dụng mã VBA

Nếu bạn đang sử dụng Outlook 2019 , 2016, 2013, 2010, 2007 hoặc 2003, bạn có thể sử dụng trình chỉnh sửa VBA^{(VBA editor)} để tải xuống nhiều tệp đính kèm từ nhiều email.

1. Mở thư mục Tài liệu của bạn và tạo một thư mục mới có tên “Tệp đính kèm”. Đây là nơi các tệp đính kèm của bạn sẽ được tải xuống.
2. Mở Microsoft Outlook.
3. Nhấn^(Press) phím Alt và F11 trên bàn phím để mở trình soạn thảo VBA .
4. Nhấp chuột phải vào Microsoft Outlook Object > Insert > Insert Module .

1. Sao chép đoạn mã sau vào trình chỉnh sửa và nhấn Enter:

Dim GCount dưới dạng số nguyên

Dim GFilepath dưới dạng chuỗi

Lưu phụ công khaiĐính kèm()

'Cập nhật 20200821

Dim xMailItem dưới dạng Outlook.MailItem

Dim xAttachments Như Outlook.Attachments

Dim xSelection Như Outlook.Selection

Dim i As Long

Dim xAttCount As Long

Dim xFilePath dưới dạng chuỗi^(String) , xFolderPath dưới dạng chuỗi^(String) , xSaveFiles dưới dạng chuỗi^(String)

Khi xảy ra lỗi Tiếp tục tiếp theo

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

Đặt^(Set) xSelection = Outlook.Application.ActiveExplorer.Selection

xFolderPath = xFolderPath & “Đính kèm”

Nếu VBA.Dir ( xFolderPath , vbDirectory) = vbNullString thì

VBA.MkDir xFolderPath

Kết thúc nếu

GFilepath = “”

Đối với mỗi xMailItem trong xSelection

Đặt^(Set) xAttachments = xMailItem.Attachments

xAttCount = xAttachments.Count

xSaveFiles = “”

Nếu xAttCount > 0 thì

Với i = xAttCount Đến 1 Bước^(Step) -1

GCount = 0

xFilePath = xFolderPath & xAttachments.Item (i).Tên tệp

GFilepath = xFilePath

xFilePath = Đổi tên tệp^(FileRename) (xFilePath)

Nếu IsEmbeddedAttachment ( xAttachments.Item (i)) = Sai thì

xAttachments.Item(i).SaveAsFile xFilePath

Nếu xMailItem.BodyFormat <> olFormatHTML thì

xSaveFiles = xSaveFiles & vbCrLf & “Tham chiếu siêu liên kết không hợp lệ.>”

Khác

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

Kết thúc nếu

Kết thúc nếu

Tiếp theo tôi

Kết thúc nếu

Kế tiếp

Đặt xAttachments = Không có gì

Đặt xMailItem = Không có gì

Đặt xSelection = Không có gì

Kết thúc phụ

Hàm FileRename ( FilePath dưới dạng chuỗi^(String) ) Dưới dạng chuỗi^(String)

Dim xPath dưới dạng chuỗi

Dim xFso Như FileSystemObject

Khi xảy ra lỗi Tiếp tục tiếp theo

Set xFso = CreateObject (“ Scripting.FileSystemObject ”)

xPath = Đường dẫn tệp

Đổi tên tệp = xPath

Nếu xFso.FileExists(xPath) thì

GCount = GCount + 1

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

FileRename = FileRename(xPath)

Kết thúc nếu

xFso = Không có gì

Chức năng kết thúc

Chức năng IsEmbeddedAttachment^{(Function IsEmbeddedAttachment)} ( Đính kèm^(Attach) dưới dạng tệp đính kèm^(Attachment) )

Dim xItem dưới dạng MailItem

Dim xCid dưới dạng chuỗi

Dim xID dưới dạng chuỗi

Dim xHtml dưới dạng chuỗi

Khi xảy ra lỗi Tiếp tục tiếp theo

IsEmbeddedĐính kèm = Sai

Đặt xItem = Đính kèm.Parent

Nếu xItem.BodyFormat <> olFormatHTML thì thoát chức năng^(Function)

xCid = “”

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

Nếu xCid <> “” Thì

xHtml = xItem.HTMLBody

xID = “cid:” & xCid

Nếu InStr(xHtml, xID) > 0 thì

IsEmbeddedĐính kèm = Đúng^(True)

Kết thúc nếu

Kết thúc nếu

Chức năng kết thúc

Lưu ý: Bạn có thể sao chép mã gốc ở trên từ Extend Office^{(original code above from Extend Office)} và dán vào trình chỉnh sửa.

1. Nhấn F5^{(Press F5)} để chạy tập lệnh. Bạn có thể nhận được một cửa sổ bật lên nhắc bạn cho phép hành động.

Sử dụng công cụ bên ngoài

Nếu bạn đang sử dụng một phiên bản khác của Outlook , muốn tải xuống loại tệp khác ngoài PST^{(a file type other than PST)} hoặc thấy phương pháp VBA cồng kềnh, bạn có thể tải xuống một công cụ có thể giúp bạn tải xuống nhiều tệp đính kèm Outlook cùng một lúc.

Các ứng dụng như Outlook Attachment Extractor có chức năng lưu tệp đính kèm không chỉ từ tệp PST mà còn từ các định dạng tệp khác như tệp OST , BAK , MSG , OLK và OLM . Bạn cũng có thể định cấu hình ứng dụng để lọc tệp đính kèm theo kích thước tệp, ngày hoặc người gửi.

Cách tải xuống tất cả tệp đính kèm từ một tệp bị hỏng^(Corrupted)

Nếu bạn không thể mở, xem hoặc lưu tệp đính kèm trong Outlook thì tệp Microsoft Outlook PST có thể bị hỏng hoặc bị hỏng. Bạn có thể sửa chữa tệp PST^{(repair the PST file)} để truy xuất tệp đính kèm bằng các công cụ như ứng dụng SCANPST.exe .

Để sử dụng công cụ này, hãy đóng Outlook và điều hướng đến một trong các vị trí sau, tùy thuộc vào phiên bản Outlook của bạn :

1. Outlook 2019: C:Tệp chương trình (x86)Microsoft Office\root\Office16
2. Outlook 2016: C:Tệp chương trình (x86)Microsoft Office\root\Office16
3. Outlook 2013: C:Tệp chương trình (x86)Microsoft Office\Office15
4. Outlook 2010: C:Tệp chương trình (x86)Microsoft Office\Office14
5. Outlook 2007: C:Tệp chương trình (x86)Microsoft Office\Office12

Sau đó, bấm đúp vào SCANPST.EXE.

Chọn Duyệt^{(Select Browse)} , định vị tệp dữ liệu Outlook bạn muốn quét và nhấn Bắt đầu^(Start) .

Nếu công cụ tìm thấy lỗi, hãy chọn Sửa chữa^(Repair) để cố gắng khắc phục chúng. Sau khi hoàn tất, hãy khởi động lại Outlook và kiểm tra xem nó có hoạt động không.

Hợp lý hóa các hoạt động email của bạn

Tải xuống nhiều tệp từ Outlook thật dễ dàng và thậm chí bạn có thể tải xuống nhiều tệp từ nhiều email cùng một lúc. Nếu bạn thấy các phương pháp tích hợp trong Outlook quá khó, bạn có thể tải xuống các công cụ như Outlook Attachment Extractor để trợ giúp.

How to Download All Attachments From Outlook Emails

If you’re in an industry where you receіve countless emailѕ every daу, you likelу get many emails with multiple attachments. Using a manual method to extract attachments can be time-сonsuming if there are many to download. Luckily, it’s easy to save multiple email attachments at onсe 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

• RetroShare là công cụ mạng P2P miễn phí cho Windows PC

• NetTraffic: Theo dõi lưu lượng mạng theo thời gian thực cho Windows 11/10

• eToolz bao gồm tất cả các công cụ Mạng bạn muốn cho Windows 10

• Công cụ thay đổi địa chỉ MAC miễn phí cho Windows 11/10

• NetSetMan: Trình quản lý cài đặt mạng dành cho Windows 10

• Phần mềm thiết kế cảnh quan miễn phí tốt nhất cho Windows 11/10

• Cách tạo Sơ đồ phím đàn guitar trong Windows 11/10

• Chuyên gia hóa đơn: Phần mềm lập hóa đơn, kiểm kê và thanh toán miễn phí cho Windows

• Cách đo Thời gian phản ứng trong Windows 11/10

• Alt-Tab Terminator nâng cao chức năng ALT-Tab mặc định của Windows

• Phần mềm miễn phí để xóa các thư mục trống trong Windows 11/10

• Tạo hình ảnh thân thiện với web với Bzzt! Trình chỉnh sửa hình ảnh cho Windows PC

• Giải pháp thay thế Adobe InDesign miễn phí tốt nhất cho Windows PC

• Phần mềm cập nhật trình điều khiển miễn phí tốt nhất cho Windows 11/10

• Tạo ghi chú đơn giản với PeperNote cho Windows 10

• TrIDNet: Xác định loại tệp không xác định không có phần mở rộng trong Windows

• Định vị lại các chương trình đã cài đặt bằng Ứng dụng Mover trên Windows 10

• Geek Uninstaller - Trình gỡ cài đặt tất cả trong một di động dành cho Windows 10

• Windows Easy Switcher cho phép bạn chuyển đổi giữa các cửa sổ của cùng một ứng dụng

• Cách hoán đổi ổ đĩa cứng trong Windows 11/10 với Hot Swap