如何在 Outlook 邮件中删除特定类型的部分附件？

在 Outlook 中管理邮件附件常常让人感到繁琐，尤其是像 .docx 或 .png 等文件类型，容易让收件箱变得杂乱。虽然 Outlook 没有内置一键批量删除特定附件的功能，但依然有高效解决方案。您可以通过 VBA 脚本手动删除指定类型的附件，或使用更快捷、易用的 Kutools for Outlook，只需几步即可筛选并删除附件。本文将为您详细介绍这两种方法。

使用 VBA 删除部分附件的指定类型（手动技术类）

使用 Kutools for Outlook 快速删除部分附件指定类型 👍（快捷且操作友好）

使用 VBA 删除部分附件的指定类型

步骤 1：选择多封邮件

在邮件视图中，选中需要移除附件的邮件。

步骤 2：打开 VBA 编辑器

按下 Alt+F11，即可打开 Microsoft Visual Basic for Applications 窗口。

步骤 3：添加 VBA 代码

在 VBA 窗口中，单击插入 > 模块，新建一个模块。然后将下方 VBA 脚本复制并粘贴到新模块中：

VBA：从邮件中删除部分附件的指定类型

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Enter the attachment type to remove (e.g., docx, png):", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(1, xFileType, Trim(xType), vbTextCompare) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

步骤 4：启用 Microsoft Scripting Runtime

1. 在 VBA 编辑器中，点击工具 > 引用。

2. 在 引用 - Project 1 对话框中，勾选 Microsoft Scripting Runtime 复选框，点击确定即可。

步骤 5：运行 VBA 脚本

1. 按下 F5 键或点击运行按钮即可执行代码。

2. 将弹出提示框，输入要删除的附件类型（如 xlsx），然后点击确定。

结果

VBA 脚本将从所选邮件中删除所有符合类型要求的附件。

如果您经常需要从邮件中移除附件，使用 Kutools for Outlook 的方法将更加高效且操作简便。

---

📂 附件自动归档，高效又省心！

处理大量电子邮件附件变得极为轻松！借助 Kutools for Outlook 的自动拆离功能，所有新收到的附件会自动保存到指定文件夹，并在邮件中以超链接形式替换。无需手动操作，告别杂乱收件箱——立即体验流畅自动化！

💡 您不可错过的优势：

• ✔️ 附件到达时自动保存
• ✔️ 通过超链接替换，让收件箱保持整洁
• ✔️ 完全可自定义的选项，满足您的工作流程需求

立即免费下载体验！

使用 Kutools for Outlook 快速删除部分附件指定类型 👍

如果您需要更高效、易用的解决方案，Kutools for Outlook 的 Detach All 功能可一键筛选并删除多封邮件中的特定文件类型。与 VBA 方法相比，无需编码，也无需手动操作。

步骤 1：多选邮件并进入 Detach All 功能

在邮件视图中，选中包含需移除附件的邮件。然后点击 KUTOOLS PLUS > 附件工具 > Detach All。

步骤 2：设置分离偏好

1. 单击浏览图标，为附件选择目标保存文件夹。
2. 单击高级选项，即可展开对话框。
3. 在过滤条件部分，勾选附件类型为复选框，然后在文本框中输入要删除的文件扩展名（如）.docx; .png）。
4. 点击确定即可确认。
   

步骤 3：确认分离操作

会弹出一个 Detach All 确认对话框窗口。单击是即可继续操作。

结果：处理后会有什么变化？

1. 所有指定附件已成功从选中邮件中分离。

2. 附件安全保存在指定文件夹，不会被永久删除。如需恢复，只需点击 KUTOOLS PLUS> 附件工具>Restore All 即可。

3. 原始邮件中的每个超链接都代表已分离的文件，让您能够快速访问，同时保持收件箱整洁有序。

---

最佳办公效率工具

体验全新 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

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