如何從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. 原始郵件中的每個超鏈接代表一個拆解的文件，提供快速訪問的同時保持收件匣整潔。

---

最佳辦公室生產力工具

最新消息：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（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

套件介紹 ⬇下載套件 💳 購買套件