如何在Outlook中將所有附件從多封電子郵件批量複製到新電子郵件

Outlook解決方案 2025 年 9 月 29 日

如果要創建新電子郵件並將其他幾封電子郵件中的所有附件附加到新郵件，則可以使用本文介紹的方法。它會教您如何使用VBA輕鬆獲得它。

有時，您可能需要將所有附件從多封電子郵件批量複製到新電子郵件。當然，您可以選擇手動進行操作，只需先將它們保存到本地驅動器，然後再將它們逐個附加到新創建的電子郵件中即可。但是，顯然，通過這種方式，這將是一個非常繁瑣的任務。因此，為什麼不利用VBA快速實現呢？在下文中，我們將向您介紹詳盡的操作和相應的VBA代碼。

將所有附件從多封電子郵件批量複製到新電子郵件

首先，像往常一樣啟動 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數據，這樣您就可以取回PST數據。腐敗的Outlook 備份中的數據，不費吹灰之力。此外，您必須在附近放置信譽良好的工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括維修MDF 和Outlook修復軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM