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

Author: Siluvia Last Modified: 2025-08-06

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」方框並點擊「確定」按鈕。

steps on saving only Specific (Excel) Attachment In Outlook using vba