如果您所在的行业每天都会收到无数电子邮件，那么您可能会收到许多带有多个附件的电子邮件。如果要下载的附件较多，则使用手动方法提取附件可能会非常耗时。幸运的是，使用Microsoft Outlook(Microsoft Outlook)可以轻松地一次保存多个电子邮件附件。
在本教程中，我们将向您展示如何从Outlook下载所有附件。
如何在Windows上一次(Once)下载所有Microsoft Outlook 电子邮件附件(Microsoft Outlook Email Attachments)
要使用Windows Microsoft Outlook(Windows Microsoft Outlook)应用程序一次下载所有附件，请执行以下操作：
- 打开Outlook并登录到您的Outlook配置文件。
- 选择包含所需Outlook(Outlook)附件的电子邮件。
- 右键单击任意附件文件，然后在下拉菜单中选择保存所有附件。(Save)如果您只想保存一个文件，请选择另存为(Save As)。
- 在新对话框中，按住键盘上的CTRL键并选择要下载的所有附件。单击“确定”(Click OK)。
- 选择您想要保存文件的位置，然后按“确定”按钮。
如何在Mac上一次(Once)下载所有Microsoft Outlook 电子邮件附件(Microsoft Outlook Email Attachments)
以下是使用Outlook(Outlook) for Mac下载所有附件的方法：
- 打开 MS Outlook 应用程序。
- 选择包含附件的
电子邮件。(Email)
- 单击(Click)附件并选择全部(Attachments)下载(Download All)。
- 选择您想要保存附件的位置，然后选择“选择”(Choose)。
如何从多封电子邮件(Multiple Emails)下载多个 Outlook 附件(Download Multiple Outlook Attachments)
还可以一次从多封电子邮件下载多个附件。为此：
使用VBA代码
如果您使用的是Outlook(Outlook 2019) 2019、2016、2013、2010、2007 或 2003，则可以使用VBA 编辑器(VBA editor)从多封电子邮件下载多个附件。
- 打开“文档”文件夹并创建一个名为“附件”的新文件夹。这是您的附件将下载到的位置。
- 打开微软 Outlook。
- 按键盘上(Press)的 Alt(Alt)和F11键(F11)打开VBA编辑器。
- 右键单击Microsoft Outlook Object > Insert > Insert Module。
- 将以下代码复制到编辑器中并按 Enter：
将 GCount 变暗为整数
将 GFilepath 变暗为字符串
公共子保存附件（）
'更新20200821
将 xMailItem 调暗为 Outlook.MailItem
将(Dim)xAttachments 调暗为 Outlook.Attachments
将(Dim)xSelection 调暗为 Outlook.Selection
暗淡我只要
调暗 xAttCount 等长
Dim xFilePath 作为字符串(String)，xFolderPath作为字符串(String)，xSaveFiles 作为字符串(String)
出错时继续下一步
xFolderPath = CreateObject (“WScript.Shell”).SpecialFolders(16)
设置(Set)xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & “附件”
如果VBA.Dir ( xFolderPath , vbDirectory) = vbNullString 那么
VBA.MkDir xFolderPath
万一
G文件路径=“”
对于 xSelection 中的每个 xMailItem
设置(Set)xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
x保存文件=“”
如果 xAttCount > 0 则
对于 i = xAttCount 至 1步骤(Step)-1
G计数 = 0
xFilePath = xFolderPath & xAttachments.Item (i).FileName
G文件路径 = x文件路径
xFilePath =文件重命名(FileRename)(xFilePath)
如果IsEmbeddedAttachment ( xAttachments.Item (i)) = False 那么
xAttachments.Item(i).SaveAsFile xFilePath
如果 xMailItem.BodyFormat <> olFormatHTML 那么
xSaveFiles = xSaveFiles & vbCrLf & “超链接参考无效。>”
别的
xSaveFiles = xSaveFiles & “
” & “ xFilePath & “‘>” & xFilePath & “ ”
万一
万一
接下来我
万一
下一个
设置 xAttachments = 无
设置 xMailItem = 无
设置 xSelection = 无
结束子
函数FileRename ( FilePath As String ) As String
将 xPath 变暗为字符串
将 xFso 调暗为 FileSystemObject
出错时继续下一步
Set xFso = CreateObject (“ Scripting.FileSystemObject ”)
xPath = 文件路径
文件重命名 = xPath
如果 xFso.FileExists(xPath) 那么
G 计数 = G 计数 + 1
xPath = xFso.GetParentFolderName( GFilepath ) & “” & xFso.GetBaseName ( GFilepath ) & ” ” & GCount & “.” + xFso.GetExtensionName( GFilepath )
文件重命名 = 文件重命名(xPath)
万一
xFso = 无
结束功能
函数 IsEmbeddedAttachment(Function IsEmbeddedAttachment)（附加(Attach)为附件(Attachment)）
将 xItem 调暗为 MailItem
将 xCid 变暗为字符串
将 xID 变暗为字符串
将 xHtml 变暗为字符串
出错时继续下一步
嵌入附件 = False
设置 xItem = Attach.Parent
如果 xItem.BodyFormat <> olFormatHTML 那么退出函数(Function)
xCid=“”
xCid = Attach.PropertyAccessor.GetProperty（“http://schemas.microsoft.com/mapi/proptag/0x3712001F”）
如果 xCid <> “” 那么
xHtml = xItem.HTMLBody
xID = “cid:” & xCid
如果 InStr(xHtml, xID) > 0 那么
嵌入附件 = True
万一
万一
结束功能
注意：您可以从 Extend Office 复制上面的原始代码(original code above from Extend Office)并将其粘贴到编辑器中。
- 按 F5(Press F5)运行脚本。您可能会收到一个弹出窗口，提示您允许该操作。
使用外部工具
如果您使用的是其他版本的Outlook，想要下载PST 以外的文件类型(a file type other than PST)，或者觉得VBA方法很麻烦，您可以下载一个可以帮助您一次
下载多个Outlook附件的工具。(Outlook)
Outlook Attachment Extractor等应用程序不仅可以保存PST文件中的附件，还可以保存其他文件格式（例如OST、BAK、MSG、OLK和OLM文件）的附件。您还可以将应用程序配置为按文件大小、日期或发件人过滤附件。
如何从损坏的(Corrupted)文件
下载所有附件
如果您无法在Outlook中打开、查看或保存文件附件，则Microsoft Outlook PST文件可能已损坏或损坏。您可以使用SCANPST.exe应用程序等工具修复(SCANPST.exe)PST 文件(repair the PST file)以检索附件。
要使用此工具，请关闭Outlook并导航到以下位置之一，具体取决于您的Outlook版本：
- Outlook 2019：C:Program Files (x86)Microsoft Office\root\Office16
- Outlook 2016：C:Program Files (x86)Microsoft Office\root\Office16
- Outlook 2013: C:Program Files (x86)Microsoft Office\Office15
- Outlook 2010：C:Program Files (x86)Microsoft Office\Office14
- Outlook 2007：C:Program Files (x86)Microsoft Office\Office12
然后，双击 SCANPST.EXE。
选择“浏览”(Select Browse)，找到要扫描的Outlook数据文件，然后按(Outlook)“开始”(Start)。
如果该工具发现错误，请选择“修复”(Repair)以尝试修复它们。完成后，重新启动Outlook并检查它现在是否正常工作。
简化您的电子邮件活动
从Outlook(Outlook)下载多个文件非常简单，您甚至可以一次从多封电子邮件下载多个文件。如果您发现Outlook(Outlook)中的内置方法太困难，您可以下载Outlook Attachment Extractor等工具来帮助您。
How to Download All Attachments From Outlook Emails
If you’re in аn industry where you reсeive countless emails every day, you likely get many emails with multiple attachments. Using a manual method to extrаct attachments сan be time-consuming if there are many tо downloаd. Luckily, it’s easy to savе multiple email attachments 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:
- Open Outlook and sign in to your Outlook profile.
- Select the email with your desired Outlook attachments.
- 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.
- 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.
- 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:
- Open the MS Outlook application.
- Select the Email message that contains your attachments.
- Click on Attachments and select Download All.
- 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.
- Open your Documents folder and create a new folder named “Attachments.” This is where your attachments will download to.
- Open Microsoft Outlook.
- Press the Alt and F11 keys on the keyboard to open the VBA editor.
- Right-click Microsoft Outlook Object > Insert > Insert Module.
- 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.
- 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:
- Outlook 2019: C:\Program Files (x86)\Microsoft Office\root\Office16
- Outlook 2016: C:\Program Files (x86)\Microsoft Office\root\Office16
- Outlook 2013: C:\Program Files (x86)\Microsoft Office\Office15
- Outlook 2010: C:\Program Files (x86)\Microsoft Office\Office14
- 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.
