Copie todos los archivos adjuntos de varios correos electrónicos a un nuevo correo electrónico

Copie todos los archivos adjuntos de un correo electrónico a su correo electrónico de respuesta

Este artículo presentará un VBA para copiar rápidamente todos los archivos adjuntos de varios correos electrónicos a uno nuevo en Outlook. Por favor haga lo siguiente:

1. Seleccione varios correos electrónicos cuyos archivos adjuntos copiará y presione otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
Note: Sosteniendo Ctrl clave, puede seleccionar varios correos electrónicos no adyacentes haciendo clic en ellos uno por uno; participación Shift clave, puede seleccionar varios correos electrónicos adyacentes haciendo clic en el primero y el último.

2. Hacer clic recuadro > Móduloy luego pegue el código VBA debajo en la nueva ventana del Módulo.

VBA: copie todos los archivos adjuntos de varios correos electrónicos a uno nuevo

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. prensa F5 clave o la Ejecutar botón para ejecutar este VBA.

Ahora verá que todos los archivos adjuntos se copian de los correos electrónicos seleccionados y se pegan en un nuevo correo electrónico.

Si tiene Kutools para Outlook instalado, puede aplicar su Responder con archivo adjunto función para copiar fácilmente todos los archivos adjuntos de un correo electrónico al correo electrónico de respuesta en Outlook. Por favor haga lo siguiente:

Seleccione el correo electrónico que responderá y haga clic en Kutools > Responder con archivo adjunto > Responder con el archivo adjunto. Ver captura de pantalla:

Ahora verá que todos los archivos adjuntos se copian automáticamente en el correo electrónico de respuesta.

¿Cómo copiar un archivo adjunto a otro correo electrónico en Outlook?