如何仅在 Outlook 中保存特定的（Excel）附件？

Outlook 提供了“全部保存附件”功能，助您一键将邮件中的所有附件保存到指定文件夹。但如果您只想保存一封或多封邮件中某些特定类型的附件，如 Excel 工作表、Word 文档等，该如何操作？本教程将为您介绍两种方法，轻松解决这一问题。

使用 VBA 代码在 Outlook 中仅保存特定文件类型附件
借助强大工具，轻松在 Outlook 中仅保存特定文件类型附件

使用 VBA 代码在 Outlook 中仅保存特定文件类型附件

以下 VBA 代码可帮助您将选定邮件中指定类型的附件保存到目标文件夹。请按照以下步骤操作。

1. 启动 Outlook，在邮件列表中选择一个或多个包含需保存指定类型附件的邮件。

2. 同时按下“Alt”+“F11”键，打开“Microsoft Visual Basic for Applications”窗口。在该窗口中，点击“插入”>“模块”，然后将以下 VBA 代码粘贴到模块窗口中。

VBA 代码：将一封或多封邮件中的特定附件保存到文件夹

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. 点击“工具”>“引用”，在“引用 —— 项目”对话框中勾选“Microsoft Scripting Runtime”选项，然后点击“确定”。

4. 按下“F5”键运行代码，在弹出的“浏览文件夹”对话框中，选择一个用于保存附件的文件夹。

5. 然后，点击“确定”。在随后的“Kutools for Outlook”对话框中，在文本框内输入您希望保存的附件文件扩展名，然后再次点击“确定”。

注意：如需输入多个文件扩展名，请使用逗号进行分隔。

这样，只有您指定的附件会被保存。

借助强大工具，轻松在 Outlook 中仅保存特定文件类型附件

如果您不熟悉 VBA，建议您使用全部保存附件的全部保存附件工具。借助此功能，您可以轻松在 Outlook 中仅保存特定类型的附件。

1. 选择包含仅需保留指定文件类型附件的邮件。

2. 点击“Kutools”>“附件工具”>“全部保存”。

3. 在“保存设置”对话框中，按如下方式设置。

3.1）在“保存附件到此文件夹”部分，点击按钮，选择选择文件夹用于保存附件；

3.2）点击“高级选项”按钮展开对话框；

3.3）在“过滤条件”部分，勾选“附件类型为”复选框，然后在文本框中输入要保存附件的文件扩展名。

提示：如需输入多个文件扩展名，请使用分号进行分隔。

3.4）点击“确定”按钮，相关截图如下：

4. 弹出对话框询问是否保存附件，请点击“确定”以继续操作。

5. 随后会弹出另一个对话框，告知您已成功保存的附件数量，请点击“确定”按钮。

现在只有特定的文件类型附件被保存。

相关文章：

• 如何在 Outlook 中保存邮件中的所有附件？
• 如何在 Outlook 中删除邮件中的所有附件？

---

最佳办公效率工具

体验全新 Kutools for Outlook，畅享 100+ 强大功能！立即点击下载，不容错过！

🤖KUTOOLS AI：采用先进 AI 技术，轻松处理邮件，涵盖回复、摘要、优化、扩展、翻译及撰写等功能。

📧 邮件自动化：自动答复（支持 POP 和 IMAP）/定时发送邮件/发送邮件时按规则自动抄送密送/自动转发（高级规则）/自动添加称呼/自动将多收件人邮件拆分为单独信息……

📨 邮件管理：撤回邮件/按主题等条件拦截诈骗邮件/删除重复邮件/高级搜索/整合文件夹……

📁 附件增强：批量保存/批量分离/批量压缩/自动保存/自动拆离/自动压缩……

🌟 界面魔法：😊更多美观时尚表情/重要邮件到达时提醒您/最小化 Outlook 而不是直接关闭……

👍 一键精彩功能：带附件全部答复/反钓鱼邮件/🕘显示发送者当前时间时区……

👩🏼‍🤝‍👩🏻 联系人与日历：批量从选定邮件中提取添加联系人/将联系人组拆分为个人组/移除生日提醒……

在您的首选语言中畅享 Kutools —— 支持英语、西班牙语、德语、法语、中文等 40 多种语言！

一键解锁 Kutools for Outlook，告别等待，立即下载，让效率倍增！

Kutools for Outlook 功能列表      立即下载      前往购买

🚀 一键下载 — 即可获取全部 Office 加载项

强烈推荐：Kutools for Office（5 合 1）

一键下载五个安装包，即可同时获得 Kutools for Excel、Outlook、Word、PowerPoint 和 Office Tab Pro。立即点击下载！

• ✅ 一键便捷：只需一次操作，即可下载全部五个安装包。
• 🚀 轻松应对各类 Office 任务：随时按需安装所需插件，助您高效办公，不容错过！
• 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

关于套件⬇ 下载套件💳 购买套件