如何將多封電子郵件中的 Outlook 附件下載到本地文件夾

從一封電子郵件下載附件非常容易。大多數客戶端都提供下載 ZIP 文件的方法。但從多封電子郵件中提取或下載 Outlook 附件時就很棘手。由於任何在線或離線客戶端都沒有提前提供此功能，因此我們必須找到腳本和工具來實現它。

如何從 Outlook 中的多封電子郵件下載附件

您可以使用這些方法中的任何一種來下載附件。這將需要 VB 腳本，因此請確保您的帳戶擁有足夠的權限。

1. NirSoft OutlookAttachView
2. 自定義 VB 腳本

每個工具都有自己的優點和缺點。在選擇使用哪一個之前，請確保您了解它們。

1]NirSoft OutlookAttachView

如果您使用 Microsoft Office 版本的 Outlook 接收電子郵件，則可以使用名為 OutlookAttachView 的免費軟件下載所有附件。自 2003 年以來，它一直適用於所有類型的 Outlook，但不支持顯式 Outlook。

首先，下載該軟件（如果您使用的是 64 位版本的 Outlook，請獲取 64 位版本），解壓縮 ZIP 文件，然後打開 OutlookAttachView.exe。

郵箱掃描選項將打開。您可以指定要掃描的附件。其中，選項包括：

• 要掃描哪個 Outlook 配置文件
• 掃描過去 X 天內創建的郵件
• 排除某些類型的文檔
• 掃描來自特定人員的消息
• 掃描包含特定文本內容的附件

請按照以下步驟提取附件：

• 安裝軟件後，如果您確實希望保存收件箱中的每個附件，請將所有內容保留為默認值。設置軟件。當您準備好開始掃描時，請單擊“確定”。
• 掃描速度快；但是，如果您收到大量電子郵件存檔，則顯然需要更長的時間。不幸的是，掃描上沒有進度條，所以你無法知道它已經走了多遠，所以你最好讓它在後台運行，稍後再回來看看它是否完成了。
• 掃描完成後，您將能夠預覽和查看所有附件，其中列顯示文件名、文件長度和擴展名等條目。
• 要選擇特定附件，請按住 Ctrl 鍵並依次左鍵單擊每一行。或者，按 Ctrl + A 突出顯示（選擇）所有附件。
• 然後單擊“文件”菜單，然後單擊“將所選附件複製到”（按 F4）。您可以指定導出附件的位置並設置文檔名稱的格式。準備好後，單擊“確定”。
• 它將下載或保存所有選定的附件到目標文件夾。

但是，它們無法從您的電子郵件中刪除，因此如果您願意，您仍然可以通過 Outlook 訪問它們。

2]使用VB腳本

本 部分在演練中演示了 VBA 代碼 ，可為 您提供幫助 同時將不同電子郵件中的所有附件 保存到選定的 文件夾 中。

• 首先，您 需要在本地驅動器上創建一個文件夾來保存附件。使用文件資源管理器和已知位置創建一個文件夾並將其命名為“附件”。
• 選擇要從中 下載附件的電子郵件，然後按 Alt+F11 打開Microsoft Visual Basic 程序窗口。

• 單擊“插入 ”>“模塊”打開“模塊”窗口，將以下 VBA 代碼之一複製 到窗口中。
• 按 F5 或使用菜單運行代碼，所選電子郵件中的所有附件將被下載或複製到附件文件夾中。

VBA代碼

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>"& "<a href='file://"& xFilePath & "'>"& xFilePath & "</a>"
End If
End If
Next i
If xSaveFiles <> ""Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = vbCrLf & "The file(s) were saved to "& xSaveFiles & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "<p>"& "The file(s) were saved to "& xSaveFiles & "</p>"& xMailItem.HTMLBody
End If
End If
xMailItem.Save
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\"& xFso.GetBaseName(GFilepath) & ""& GCount & "."+ xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

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

您還可以從此處複製代碼並粘貼。

如何從 Gmail 中的多封電子郵件下載附件

SendPulse 的免費 Gmail 保存電子郵件和附件插件可將您的附件導出到 Google。它的突出之處在於它會自動開始搜索新附件，這意味著您永遠不應該考慮手動執行此方法。如果您只需要一次導出，它可以正常工作。

筆記。該服務將有權訪問您的 Gmail 帳戶，因此如果您想要連接，請做出明智的選擇。

按照說明使用此工具

• 轉到附加組件網頁並單擊“安裝”。
• 選擇您的 Google 帳戶並單擊“允許”，然後完成。
• 轉到 Google 表格並創建一個新表。
• 訪問附加組件 > 保存電子郵件和附件 > 打開側邊欄。
• 設置要掃描的 Gmail 的標籤，然後指定其他過濾器，例如電子郵件的發件人或晚於誰、以及早於日期範圍（您至少要設置這些過濾器）。

• 單擊“上傳設置”，根據需要進行設置，然後單擊“選擇文件夾”以選擇驅動器上應存儲附件的文件夾。
• 完成後，單擊“保存規則”>“運行”。該附加組件甚至會在後台自動運行，並在新電子郵件到達時進行更新。

您可以將附件存儲在驅動器內。或者，打開驅動器，右鍵單擊文件夾，然後選擇“加載”以保存本地副本。然後，您可以從磁盤中刪除該文件夾以釋放雲存儲空間。

從這裡下載擴展

如何從任何郵件服務器上的多封電子郵件下載附件

郵件附件下載器是一個經濟實惠的選擇，因為它適用於許多電子郵件服務，例如 Outlook、Gmail、AOL、Yahoo 或任何郵件服務器。它也免費供個人使用。

缺點是您可以在付費版本中獲得一些附加組件。這包括練習幾個過濾器並同時從多個帳戶上傳的能力。您可以在軟件許可頁面上找到完整的差異。

筆記。您需要在此處輸入您的電子郵件憑據。因此，請確保您有完全的信心並做出明智的選擇。

讓我們看一下從多封電子郵件中提取附件的最簡單步驟​​。

• 下載 ZIP，解壓並運行其中的 EXE 安裝程序。連接後，啟動郵件附件下載器。
• 單擊“設置”。在這裡您可以選擇一個郵件服務器（提交您的電子郵件的人），然後輸入帳戶和密碼。請務必閱讀底部的黑條，包括重要信息。

• 準備就緒後，單擊“測試連接”。如果這不起作用，請確保您已按要求啟用 POP/IMAP 協議，並且您的帳戶質詢和密碼正確。如果正確，請單擊“保存”。
• 如果您希望將附件輸出到唯一的文件夾，請更改保存區域。您可以使用選項卡進一步自定義該系統。例如，在文件夾/文檔中，您可以將搜索限制為選定的文件夾。搜索時，您可以指定日期範圍。在過濾器中，您可以指定由發件人或問題字符串組成的問題。
• 準備好後，單擊“連接並下載”。然後它會將您的附件保存到您選擇的文件夾中。

從官方網站下載。該軟件提供免費版本供個人使用。

最後的話

從多封電子郵件下載多個附件應該是所有電子郵件客戶端的一項功能。我使用腳本下載每天月底從客戶那裡收到的 PDF 文檔。這可以確保我擁有每個人的副本，而不會浪費時間單獨下載它們。