如何在 Outlook 中將多封郵件的所有附件一鍵複製到新郵件中？

在 Outlook 中有效管理郵件附件可能頗具挑戰性，特別是當您需要從多封郵件中提取附件並整合至新建郵件，或將一封郵件中的所有附件複製到回覆郵件時。手動儲存再重新附加檔案不僅耗時，還容易出錯。所幸有兩種高效方法可簡化此任務：您可以使用 VBA 從多封郵件中提取並插入附件至新建郵件，但這需要一定的技術知識；若追求更快速且免煩惱的解決方案，Kutools for Outlook 提供一鍵操作，立即將郵件中的所有附件複製到回覆郵件中，堪稱效率最高、最使用者友善的選擇，不容錯過！

使用 VBA 將多封郵件的所有附件複製到新建郵件(手動且需技術)

使用超讚工具一鍵將郵件附件即時複製到回覆郵件中 👍(輕鬆省事且推薦)

---

使用 VBA 將多封郵件的所有附件複製到新建郵件

若您偏好透過 VBA 自動化此流程，只需依照下列步驟操作，即可快速將多封郵件中的所有附件提取並複製至新建郵件。

步驟 1：選取多封郵件

在 Outlook 中，選取您要複製附件的郵件。

• 按住「Ctrl」鍵，即可選取多封不相鄰的電子郵件。
• 按住「Shift」鍵即可選取連續範圍的電子郵件。

步驟 2：開啟 VBA 編輯器

按下「Alt」+「F11」，即可開啟「Microsoft Visual Basic for Applications」視窗。

步驟 3：將 VBA 程式碼插入新模組

按一下 「Insert」>「Module」以建立新模組，並將下列 VBA 程式碼貼到模組視窗中：

VBA：將多封郵件的所有附件複製到新建郵件

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

步驟 4：執行 VBA 程式碼

按下「F5」或點擊執行按鈕即可執行程式碼，系統將自動開啟一封新郵件，並附上從所選郵件中提取的所有附件。

---

使用超讚工具一鍵將郵件附件即時複製到回覆郵件中 👍

若想採用更簡單快速的解決方案，不妨使用「Kutools for Outlook」的「Reply with Original Attachment」功能——只需一鍵，即可將原郵件中的所有附件自動加入回覆郵件，無需撰寫 VBA 或手動重新附加檔案。

1. 在郵件檢視中，選取您要回覆的郵件，然後點擊「Kutools」>「以原始附件回覆」或「以原始附件全部回覆」。

2. 現在，所選郵件中的所有附件都會自動複製到您的回覆郵件中。

---

相關文章

如何在 Outlook 中將附件複製到另一封郵件？