Copiați toate atașamentele de la mai multe e-mailuri la un e-mail nou

Copiați toate atașamentele dintr-un e-mail în e-mailul de răspuns

Acest articol va introduce un VBA pentru a copia rapid toate atașamentele de la mai multe e-mailuri la unul nou în Outlook. Vă rugăm să faceți următoarele:

1. Selectați mai multe e-mailuri ale căror atașamente le veți copia și apăsați Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
notițe: Deținere Ctrl tasta, puteți selecta mai multe e-mailuri neadiacente făcând clic pe ele unul câte unul; deținere Schimba , puteți selecta mai multe e-mailuri adiacente făcând clic pe primul și pe ultimul.

2. Clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului.

VBA: copiați toate atașamentele din mai multe e-mailuri într-una nouă

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. presa F5 tasta sau Alerga pentru a rula acest VBA.

Acum veți vedea că toate atașamentele sunt copiate din e-mailurile selectate și lipite într-un e-mail nou.

Dacă aveți instalat Kutools pentru Outlook, îl puteți aplica Răspundeți cu atașament caracteristică pentru a copia cu ușurință toate atașamentele dintr-un e-mail în e-mailul său de răspuns din Outlook. Vă rugăm să faceți următoarele:

Selectați adresa de e-mail la care veți răspunde și faceți clic Kutools > Răspundeți cu atașament > Răspundeți cu atașament. Vedeți captura de ecran:

Acum veți vedea că toate atașamentele sunt copiate automat în e-mailul de răspuns.

Cum se copiază atașamentul la un alt e-mail în Outlook?