KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在不開啟郵件的情況下儲存 Outlook 附件？

作者Siluvia修改日期

您是否經常需要將收到郵件中的附件儲存至電腦磁碟？從單封郵件儲存一個或多個附件很簡單，但若要一次從多封郵件中儲存附件該怎麼辦？通常您得反覆開啟郵件並逐一儲存附件——是否有更聰明的方法，幫您擺脫這些重複又耗時的操作？本教學提供的方法，正是為此而生，助您輕鬆達成目標！

使用 VBA 程式碼從一封或多封郵件儲存附件而不需開啟郵件
使用強大工具從一封或多封郵件儲存附件而不需開啟郵件

使用 VBA 程式碼從一封或多封郵件儲存附件而不需開啟郵件

以下 VBA 程式碼可協助您無需開啟 Outlook 郵件，即可一次從單封或多封郵件中儲存附件。請依照下列步驟操作。

1. 選取一封或多封要儲存附件的郵件，按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 展開 Microsoft Outlook 物件資料夾，雙擊 ThisOutlookSession 以開啟程式碼視窗，並將下方的 VBA 程式碼複製貼上至其中。

使用 VBA 儲存附件 1

VBA 程式碼：儲存附件而不開啟郵件

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. 按下 F5 鍵以執行程式碼，隨即彈出 BrowseForFolder 視窗。請選擇要儲存附件的資料夾位置，再點擊確定按鈕即可！

接著，所選郵件中的所有附件將立即儲存至指定資料夾。

注意：所有附件將從郵件中分離，並在郵件內文保留對應的儲存路徑連結。

使用 VBA 儲存附件 2

使用強大工具從一封或多封郵件儲存附件而不需開啟郵件

如果您是 VBA 新手，本節所介紹的方法將是您的理想選擇。

這裡推薦您使用儲存所有附件功能，此功能屬於 Kutools for Outlook。若您僅想儲存附件，卻不想從所選郵件中移除它們，「儲存所有附件」功能可輕鬆幫您完成！請依下列步驟操作。
套用 Kutools for Outlook 前，請先下載並安裝。

告別 Outlook 效率低落的困擾！Kutools for Outlook 讓批次處理電子郵件變得更輕鬆——立即體驗 30 天免費試用！立即下載 Kutools for Outlook！！

1. 選取包含要儲存附件的郵件，點擊 KUTOOLS PLUS＞ 附件工具＞ 儲存全部。

2. 在儲存設定對話方塊中，您需要：

  • 2.1) 在儲存附件到此資料夾區段中，選擇一個資料夾來儲存附件；
  • 2.2)按以下樣式保存附件方塊為選用項目，可讓您建立具特定樣式的子資料夾來儲存附件，或以特定樣式重新命名已儲存的附件。
  • 2.3) 按一下確定，即可開始儲存所選郵件中的所有附件！

提示：根據上述設定，所有附件將儲存至指定資料夾。若您只想儲存特定附件（例如僅儲存檔名包含「invoice」字樣的 PDF 檔案），可依照下列方式設定過濾條件。

  • 按一下高級選項按鈕以展開篩選條件；
  • 根據您的需求指定條件。
    提示：在此我勾選了附件名稱包含方塊，並在文字方塊中輸入「invoice」；接著勾選附件類型為方塊，並在文字方塊中輸入「。pdf」。
使用 Kutools 儲存附件 2

3. 在接下來彈出的對話方塊中，按一下是以繼續。

接著，所選郵件中的附件將立即儲存至指定資料夾。

提示：若要從所選郵件中分離附件，並僅在郵件內文中保留附件超連結，請使用分離所有附件功能。

相關文章

自動將 Outlook 中的附件下載／儲存至特定資料夾
一般來說，您可以透過 Outlook 的「附件 > 儲存所有附件」功能，輕鬆儲存單封郵件中的所有附件。但若您希望自動從所有收到的電子郵件中儲存附件，有什麼更有效率的方法嗎？本文將為您介紹兩種實用方案，協助您自動將 Outlook 附件下載並儲存至指定資料夾！

在 Outlook 中回覆郵件時保留附件
當您在 Microsoft Outlook 中轉寄郵件時，原始郵件的附件會自動保留在轉寄內容中；但回覆郵件時，系統卻不會自動附上原始附件。本文將為您介紹幾種實用技巧，輕鬆解決此問題，讓您在 Outlook 回覆郵件時也能完整保留原始附件！

在 Outlook 中搜尋附件（內容）內的文字
當您在 Outlook 的搜尋方塊輸入關鍵字時，系統會自動於郵件主旨、內文及附件等位置進行搜尋。但若您只想針對附件內容中的文字進行搜尋，該如何操作？本文將一步步教您輕鬆在 Outlook 中精準搜尋附件內的文字！