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

展望解决方案 2025 年 9 月 29 日

如果你想创建一封新邮件，并将其他几封邮件中的所有附件附加到新邮件中，你可以使用本文介绍的方法。它将教您使用 VBA 轻而易举地获得它。

有时，您可能需要将多封电子邮件中的所有附件批量复制到新电子邮件中。当然，您可以选择手动操作，只需先将它们保存到本地驱动器，然后将它们一个一个地附加到新创建的电子邮件中。但是，显然，通过这种方式，这将是一项非常繁琐的任务。因此，何不利用VBA快速实现呢？下面就为大家揭晓详细的操作和对应的VBA代码。

将多封电子邮件中的所有附件批量复制到新电子邮件

一开始，star照常使用您的 Outlook 程序。
接下来在 Outlook 主窗口中，按“Alt + F11”键按钮。
在随后的“Microsoft Visual Basic for Applications”窗口中，插入一个新模块或打开一个未使用的模块。
然后将以下 VBA 代码复制并粘贴到此类模块中。

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

之后，您应该继续将新的 VBA 项目添加到快速访问工具栏。您可以在“Outlook 选项”中完成它。
稍后您应该将 Outlook 宏安全级别更改为低。
最后你可以试试看。

首先，按“Ctrl”键并选择多个要复制其附件的电子邮件。
然后点击快速访问工具栏中的新宏按钮。
随即，将弹出一封新电子邮件，其中包含所有附件。

挑战常见的 Outlook PST 问题

由于 Outlook PST 问题时有发生，您应该花很多精力来保护您的 PST 数据。例如，您最好定期备份您的 PST 数据，这样您就可以找回腐败的前景从备份中获取数据而不费吹灰之力。此外，您必须在附近保留一个信誉良好的工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括修复中密度纤维板和 outlook 修复软件产品。欲了解更多信息，请访问 datanumen.com