如何从 Outlook 电子邮件下载所有附件

如果您所在的行业每天都会收到无数电子邮件，您可能会收到许多带有多个附件的电子邮件。如果要下载的附件较多，则使用手动方法提取附件可能会非常耗时。幸运的是，使用 Microsoft Outlook 可以轻松地一次保存多个电子邮件附件。

在本教程中，我们将向您展示如何从 Outlook 下载所有附件。

如何在 Windows 上一次下载所有 Microsoft Outlook 电子邮件附件

要使用 Windows Microsoft Outlook 应用程序一次下载所有附件，请执行以下操作：

  1. 打开 Outlook并登录您的 Outlook 配置文件。
  2. 选择包含所需 Outlook 附件的电子邮件。
  3. 右键单击任意附件文件，然后在下拉菜单中选择保存所有附件。如果您只想保存一个文件，请选择另存为。
    1. 在新对话框中，按住键盘上的 CTRL键，然后选择要下载的所有附件。点击确定。
      1. 选择您想要保存文件的位置，然后按确定按钮。

        2. 如何在 Mac 上一次下载所有 Microsoft Outlook 电子邮件附件

        以下是使用 Outlook for Mac 下载所有附件的方法：

        1. 打开 MS Outlook 应用程序。
        2. 选择包含附件的电子邮件。
        3. 点击“附件”并选择全部下载。
          1. 选择您要保存附件的位置，然后选择选择。

            2. 如何从多封电子邮件下载多个 Outlook 附件

            还可以一次从多封电子邮件中下载多个附件。为此：

            使用VBA代码

            如果您使用的是 Outlook 2019、2016、2013、2010、2007 或 2003，您可以使用 VBA编辑器 从多封电子邮件下载多个附件。

            1. 打开您的Documents文件夹并创建一个名为“Attachments”的新文件夹。这是您的附件将下载到的位置。.
            2. 打开Microsoft Outlook。
            3. 按键盘上的 Alt和 F11键打开 VBA 编辑器。
            4. 右键单击Microsoft Outlook 对象>插入>插入模块。
            5. 将以下代码复制到编辑器中，然后按 Enter：

              6. 将 GCount 调暗为整数

              将 GFilepath 调暗为字符串

              公共子SaveAttachments()

              ‘更新20200821

              将 xMailItem 调暗为 Outlook.MailItem

              将 xAttachments 调暗为 Outlook.Attachments

              将 xSelection 调暗为 Outlook.Selection

              只要我变暗

              调暗 xAttCount 等长

              将 xFilePath 变暗为字符串，xFolderPath 为字符串，xSaveFiles 为字符串

              出错时继续下一步

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

              设置 xSelection = Outlook.Application.ActiveExplorer.Selection

              xFolderPath = xFolderPath & “\附件\”

              如果 VBA.Dir(xFolderPath, vbDirectory) = vbNullString 那么

              VBA.MkDir xFolderPath

              结束如果

              G文件路径=“”

              对于 xSelection 中的每个 xMailItem

              设置 xAttachments = xMailItem.Attachments

              xAttCount = xAttachments.Count

              xSaveFiles = “”

              如果 xAttCount >0 则

              对于 i = xAttCount 到 1 步骤 -1

              GCount = 0

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

              GFilepath = xFilePath

              xFilePath = 文件重命名(xFilePath)

              如果 IsEmbeddedAttachment(xAttachments.Item(i)) = False 则

              xAttachments.Item(i).SaveAsFile xFilePath

              如果 xMailItem.BodyFormat <>olFormatHTML 那么

              xSaveFiles = xSaveFiles & vbCrLf & “<错误！超链接引用无效。>”

              其他

              xSaveFiles = xSaveFiles & “
              ” & “” & xFilePath & “ ”

              如果结束

              如果结束

              下一个我

              结束如果

              下一步

              设置 xAttachments = 无.

              设置 xMailItem = 无

              设置 xSelection = 无

              结束子

              函数 FileRename(FilePath As String) As String

              将 xPath 调暗为字符串

              将 xFso 调暗为 FileSystemObject

              出错时继续下一步

              设置 xFso = CreateObject(“Scripting.FileSystemObject”)

              xPath = 文件路径

              文件重命名=xPath

              如果 xFso.FileExists(xPath) 那么

              GCount = GCount + 1

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

              文件重命名 = 文件重命名(xPath)

              结束如果

              xFso = 无

              结束函数

              函数IsEmbeddedAttachment（附加为附件）

              将 xItem 调暗为 MailItem

              将 xCid 调暗为字符串

              将 xID 调暗为字符串

              将 xHtml 调暗为字符串

              出错时继续下一步

              IsEmbeddedAttachment = False

              设置 xItem = Attach.Parent

              如果 xItem.BodyFormat <>olFormatHTML 则退出函数

              xCid =“”

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

              如果xCid <>“”那么

              xHtml = xItem.HTMLBody

              xID = “cid:” & xCid

              如果 InStr(xHtml, xID) >0 则

              IsEmbeddedAttachment = True

              结束如果

              结束如果

              结束函数

              注意：您可以复制上面的原始代码来自 Extend Office 并将其粘贴到编辑器中。

              1. 按F5运行脚本。您可能会收到一个弹出窗口，提示您允许该操作。

                2. 使用外部工具

                如果您使用的是其他版本的 Outlook，想要下载PST 以外的文件类型 ，或者觉得 VBA 方法很麻烦，您可以下载一个可以帮助您一次下载多个 Outlook 附件的工具。

                Outlook 附件提取器 等应用程序不仅可以保存 PST 文件的附件，还可以保存其他文件格式（例如 OST、BAK、MSG、OLK 和 OLM 文件）的附件。您还可以将应用配置为按文件大小、日期或发件人过滤附件。

                如何从损坏的文件下载所有附件

                如果您无法在 Outlook 中打开、查看或保存文件附件，则 Microsoft Outlook PST 文件可能已损坏。您可以修复 PST 文件 使用 SCANPST.exe 应用程序等工具检索附件。.

                要使用此工具，请关闭 Outlook 并导航到以下位置之一，具体取决于您的 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

                  6. 然后，双击SCANPST.EXE。

                  选择浏览，找到要扫描的 Outlook 数据文件，然后按开始。

                  如果该工具发现错误，请选择修复以尝试修复它们。完成后，重新启动 Outlook 并检查它现在是否正常工作。

                  简化您的电子邮件活动

                  从 Outlook 下载多个文件非常简单，您甚至可以一次从多封电子邮件下载多个文件。如果您觉得Outlook内置的方法太难，您可以下载Outlook 附件提取器 等工具来帮助您。

                  .

                  相关文章:

                  Outlook 规则不起作用？ 8 个可尝试的修复方法 如何在 iPad 上安装和使用 Microsoft Teams 如何检查写字板中的字数 如何在 Outlook 中恢复已删除的项目或文件夹 如何在 Google 表格中使用查找和替换 如何在 PowerPoint 演示文稿中使用自动播放 如何录制带旁白的 PowerPoint 演示文稿

                  9.03.2023