如何将多封邮件中的所有附件复制到 Outlook 的新邮件中？

在 Outlook 中高效管理邮件附件并非易事，尤其是在需要从多封邮件中提取附件并整合到新建邮件，或将一封邮件的所有附件复制到回复邮件时。手动保存并重新添加附件不仅耗时，还容易出错。幸运的是，您可以通过两种高效方法轻松简化这一流程。您可以使用 VBA，将多封邮件中的附件提取并插入到新建邮件中，但这需要一定的技术基础。如果您想要更快捷、省心的解决方案，Kutools for Outlook 工具可一键将邮件中的所有附件立即复制到回复邮件中，是高效且易用的最佳选择。

使用 VBA 将多封邮件所有附件复制到新建邮件（手动且技术性较强）

使用高效工具一键将邮件所有附件复制到回复邮件 👍（省心推荐）

---

使用 VBA 将多封邮件中的所有附件复制到新建邮件

如果您更倾向于使用 VBA 实现自动化，只需按照以下步骤，即可快速提取并复制多封邮件中的所有附件到新建邮件中。

步骤 1：选择多封邮件

在 Outlook 中，选择包含所需附件的邮件。

• 按住“Ctrl”键，可选择多封不相邻的邮件。
• 按住“Shift”键，即可选择一组连续的邮件。

步骤 2：打开 VBA 编辑器

按下“Alt”+“F11”组合键，即可打开“Microsoft Visual Basic for Applications”窗口。

步骤 3：将 VBA 代码插入新模块

单击 “插入”>“模块”，以创建一个新模块，并将以下 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 中将附件复制到另一封邮件？