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

將所有附件從電子郵件複製到其回復電子郵件

本文將介紹一種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。

現在您將看到所有附件均從所選電子郵件複製並貼上到新電子郵件中。

如果您安裝了Kutools for Outlook，則可以應用它 帶附件回复 功能可輕鬆將電子郵件中的所有附件複製到 Outlook 中的回覆電子郵件中。 請依照以下步驟操作：

選擇您要回覆的電子郵件，然後按一下 庫工具 > 帶附件回复 > 回覆並附上附件。 見截圖：

現在您將看到所有附件都自動複製到回覆電子郵件中。

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