如何在Outlook中将所有附件从多封电子邮件复制到新电子邮件？

通常，在Outlook中进行复制和粘贴很容易将附件从一封电子邮件复制到另一封电子邮件。但是如何将附件从多封电子邮件复制到新电子邮件呢？本文将为您介绍解决方案。

将所有附件从多封电子邮件复制到新电子邮件

将所有附件从电子邮件复制到其回复电子邮件

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览，让工作变得轻而易举

阅读更多下载...

Kutools for Outlook - 通过 100 多个高级功能增强 Outlook，实现卓越效率

自动发送电子邮件自动CC / BCC, 自动转发按规则；发送自动回复（不在办公室）无需交换服务器...
获取类似提醒 BCC警告当您在密件抄送列表中回复所有内容时，以及缺少附件时提醒对于忘记的附件...
提高电子邮件效率回复（全部）并附上附件, 自动添加问候语或日期和时间到签名或主题中, 回复多封电子邮件...
简化电子邮件发送撤回电子邮件, 附件工具（压缩全部、自动保存全部...）、删除重复及快速报告...

使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受全面的 60 天免费试用并提升您的电子邮件体验！

阅读更多下载...

将所有附件从多封电子邮件复制到新电子邮件

本文将介绍一种VBA，以将所有附件从多封电子邮件中快速复制到Outlook中的新电子邮件中。请执行以下操作：

1。选择要复制其附件的多封电子邮件，然后按其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。
备注：控股 按Ctrl 键，您可以选择多个不相邻的电子邮件，并一一点击；保持转移键，您可以通过单击第一个和最后一个来选择多个相邻的电子邮件。

2。点击插页 > 模块，然后将以下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

3。按 F5 键或运行按钮以运行此VBA。

现在，您将看到所有附件均已从所选电子邮件中复制并粘贴到新电子邮件中。