¿Cómo copiar todos los archivos adjuntos de varios correos electrónicos a un nuevo mensaje en Outlook?

Gestionar archivos adjuntos de correo electrónico de forma eficiente en Outlook puede resultar complicado, especialmente cuando necesita extraer archivos adjuntos de varios mensajes y consolidarlos en un nuevo correo o copiar todos los archivos adjuntos de un mensaje en una respuesta. Guardar y volver a adjuntar archivos manualmente no solo consume mucho tiempo, sino que además es propenso a errores. Afortunadamente, existen dos formas efectivas de simplificar esta tarea. Puede utilizar VBA para extraer e insertar archivos adjuntos desde varios correos electrónicos en un nuevo correo, aunque requiere ciertos conocimientos técnicos. Sin embargo, para una solución más rápida y sin complicaciones, la herramienta Kutools para Outlook ofrece una opción con un solo clic para copiar al instante todos los archivos adjuntos de un mensaje en un correo de respuesta, lo que la convierte en la opción más eficiente y fácil de usar.

Copiar todos los archivos adjuntos de varios correos electrónicos a una Nuevo Email mediante VBA(Manual y técnico)

Copiar todos los archivos adjuntos de un correo electrónico a un mensaje de respuesta al instante con una herramienta increíble 👍(Sencillo y recomendado)

---

Copiar todos los archivos adjuntos de varios correos electrónicos a una Nuevo Email mediante VBA

Si prefiere utilizar VBA para automatizar el proceso, puede seguir estos pasos para extraer y copiar rápidamente todos los archivos adjuntos de varios correos electrónicos en un nuevo mensaje.

Paso 1: Seleccione varios correos electrónicos

En Outlook, seleccione los correos electrónicos que incluyen los archivos adjuntos que desea copiar.

• Mantenga pulsada la tecla «Ctrl» para seleccionar varios correos electrónicos no consecutivos.
• Mantenga pulsada la tecla «Shift» para seleccionar un rango de correos electrónicos contiguos.

Paso 2: Abra el editor de VBA

Pulse «Alt» + «F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

Paso 3: Inserte el código VBA en un nuevo módulo

Haga clic en  «Insertar» > «Módulo» para crear un nuevo módulo y pegue el siguiente código VBA en la ventana del módulo:

VBA: Copiar todos los archivos adjuntos de varios correos electrónicos a una Nuevo Email

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

Paso 4: Ejecute el código VBA

Pulse "F5" o haga clic en el botón Ejecutar para ejecutar el código. Se abrirá un nuevo correo electrónico que contendrá todos los archivos adjuntos extraídos de los mensajes seleccionados.

---

Copiar todos los archivos adjuntos de un correo electrónico a un mensaje de respuesta al instante con una herramienta increíble 👍

Para una solución más sencilla y rápida, utilice la función **Responder con archivo adjunto original** de *Kutools para Outlook*. Con este método, podrá incluir todos los archivos adjuntos de un correo electrónico directamente en su mensaje de respuesta con un solo clic, sin necesidad de recurrir a VBA ni de copiar manualmente los archivos adjuntos.

1. En la vista de Correo, seleccione el mensaje al que desea responder y, a continuación, haga clic en «Kutools» > «Responder con archivo adjunto original» o «Responder a todos con archivo adjunto original».

2. Ahora, todos los archivos adjuntos del mensaje seleccionado se copian automáticamente en la respuesta.

---

Artículos relacionados

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