如何从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. 在“引用 - Project1”对话框中，勾选“Microsoft Scripting Runtime”复选框并点击确定。

步骤5：运行VBA脚本

1. 按F5键或点击“运行”按钮执行代码。

2. 将出现一个提示框，输入要删除的附件类型（例如，xlsx）。点击确定。

结果

VBA脚本将从选定的邮件中删除所有匹配指定类型的附件。

如果您经常需要从邮件中删除附件，那么Kutools for Outlook方法是更高效且用户友好的解决方案。

---

📂 轻松自动归档附件！

管理大量邮件附件从未如此轻松！借助 Kutools for Outlook 的自动拆离功能，传入的附件会自动保存到指定文件夹，并在邮件中替换为超链接。告别手动操作和杂乱的收件箱——立即拥抱无缝自动化吧！

💡 您会喜欢的几大优势：

• ✔️ 附件到达时自动保存
• ✔️ 使用超链接替换保持邮件整洁无杂乱
• ✔️ 完全可自定义的选项适应您的工作流程

立即下载免费版本！

使用Kutools for Outlook快速删除特定类型的附件 👍

为了更高效且用户友好的解决方案，Kutools for Outlook提供了“拆离所有”功能，允许您通过几次点击从多封邮件中删除特定文件类型。与VBA方法不同，不需要编写代码或手动执行。

步骤1：选择多封邮件并访问“拆离所有”功能

在“邮件”视图中，选择包含要删除附件的邮件。然后点击 Kutools Plus > 附件工具 > 拆离所有。

步骤2：设置拆离偏好

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

步骤3：确认拆离

将出现一个“拆离所有”确认对话框。点击 是 以继续。

结果：接下来会发生什么？

1. 所有指定的附件都将从选定的邮件中拆离。

2. 附件被安全地存储在指定的文件夹中，而不是被永久删除。如有需要，您可以通过点击 Kutools Plus > 附件工具 > 恢复所有 来恢复它们。

3. 原始邮件中的每个超链接代表一个已拆离的文件，提供快速访问的同时保持您的收件箱井然有序。

---

最佳 Office 办公效率工具

最新消息：Kutools for Outlook 推出免费版！

体验全新 Kutools for Outlook，超过100 种强大功能！立即点击下载！

🤖 Kutools AI ：采用先进的 AI 技术，轻松处理邮件，包括答复、总结、优化、扩展、翻译和撰写邮件。

📧 邮箱自动化：自动答复（支持 POP 和 IMAP） /计划发送邮件 /发送邮件时按规则自动抄送密送 / 自动转发（高级规则） / 自动添加问候语 / 自动将多收件人的邮件分割为单独邮件 ...

📨 邮件管理：撤回邮件 / 按主题及其他条件阻止欺诈邮件 / 删除重复邮件 / 高级搜索 / 整合文件夹 ...

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

🌟 界面魔法：😊更多美观酷炫的表情 /重要邮件到达时提醒 / 最小化 Outlook 而非关闭 ...

👍 一键高效操作：带附件全部答复 / 防钓鱼邮件 / 🕘显示发件人时区 ...

👩🏼‍🤝‍👩🏻 联系人与日历：批量添加选中邮件中的联系人 / 分割联系人组为单独的组 / 移除生日提醒 ...

可根据您偏好选择 Kutools 使用语言——支持英语、西班牙语、德语、法语、中文及40 多种其他语言！

只需点击一下即可立即激活 Kutools for Outlook。无需等待，立即下载，提升工作效率！

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

🚀 一键下载——获取所有 Office 插件

强烈推荐：Kutools for Office（五合一）

一键下载五个安装包：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

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