¿Cómo conservar los archivos adjuntos al responder un correo en Outlook?

En Microsoft Outlook, al reenviar un correo electrónico, los archivos adjuntos originales se conservan intactos. Sin embargo, al responder a un mensaje, Outlook elimina automáticamente todos los archivos adjuntos, asumiendo que no son necesarios en la conversación. Esto puede resultar frustrante e ineficiente, especialmente si necesita hacer referencia a archivos importantes, volver a enviar documentos o mantener los adjuntos para contar con un contexto más completo. Afortunadamente, existen varias formas de asegurarse de que los archivos adjuntos se incluyan al responder en Outlook: manualmente, con un solo clic o mediante una solución automatizada.

Responder con Adjuntos copiando y pegando manualmente(Básico y tedioso)

Responder con Adjuntos con un solo clic usando Kutools para Outlook 👍(Rápido y sencillo)

Responder con Adjuntos automáticamente mediante VBA(Técnico y requiere configuración)

Responder con Adjuntos copiando y pegando manualmente

Puede copiar manualmente los archivos adjuntos de un correo y pegarlos en su mensaje de respuesta antes de enviarlo.

1. Abra Outlook, seleccione el correo al que desea responder y previsualícelo en el Panel de lectura o ábralo en una ventana independiente.

2. Haga clic en cualquiera de los archivos adjuntos y, a continuación, haga clic en Seleccionar todo > Copiar en la pestaña Archivos adjuntos.

3. Haga clic en el botón Responder para abrir la ventana de respuesta.

4. En el mensaje de respuesta, haga clic en cualquier lugar del cuerpo del mensaje y pulse Ctrl+V o haga clic en Pegar en la pestaña Mensaje para insertar los archivos adjuntos copiados.

5. Redacte su respuesta, revise los archivos adjuntos y haga clic en Enviar.

---

📂 Guarde los archivos adjuntos de varios correos electrónicos sin esfuerzo

¿Cansado de guardar los archivos adjuntos de un correo electrónico a la vez en Outlook? ¡Optimice su flujo de trabajo con Kutools para Outlook! Su potente función Guardar todo (archivos adjuntos) le permite guardar los archivos adjuntos de varios correos electrónicos o de carpetas completas con solo unos pocos clics. Diga adiós a los tediosos procesos manuales y controle su bandeja de entrada sin esfuerzo.

Descargue Kutools para Outlook ahora

Responder con Adjuntos con un solo clic usando Kutools para Outlook 👍

Para una forma rápida y sencilla de responder con adjuntos, puede utilizar Kutools para Outlook. La función Responder con archivo adjunto original le permite contestar conservando los archivos adjuntos originales con tan solo un clic.

Seleccione el correo que contiene los archivos adjuntos que desea conservar. A continuación, haga clic en Kutools > Responder con archivo adjunto original o Responder a todos con archivo adjunto original.

¡Y listo! El mensaje de respuesta incluirá automáticamente todos los archivos adjuntos del correo original. Solo tienes que redactar tu mensaje y hacer clic en Enviar.

Responder con Adjuntos automáticamente mediante VBA

Para usuarios familiarizados con la programación VBA, este método automatiza el proceso de responder con adjuntos. No obstante, requiere habilitar las macros en Outlook y añadir manualmente el script.

Paso 1: Abrir el editor de VBA

1. Seleccione el mensaje de correo al que quiera responder.

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

3. En el panel izquierdo, expanda Proyecto1 > Objetos de Microsoft Outlook. Haga doble clic en ThisOutlookSession para abrirla.

Paso 2: Insertar el código VBA

Copie y pegue el siguiente código VBA en la ventana de ThisOutlookSession:

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub

Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub

Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.CurrentItem
    End Select
End Function

Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Paso 3: Ejecutar la macro VBA

1. Pulse F5 o haga clic en el botón Ejecutar para ejecutar la macro.

2. En el cuadro de diálogo Macros, seleccione ThisOutlookSession.RunReplyAllWithAttachments para responder a todos o elija ThisOutlookSession.RunReplyWithAttachments para responder únicamente al remitente. Haga clic en Ejecutar.

Resultado

Se abrirá la ventana de respuesta con todos los archivos adjuntos originales incluidos. Simplemente redacte su mensaje y haga clic en Enviar.

Conclusión: ¿Qué método debería elegir?

A continuación encontrará una comparativa de los tres métodos para ayudarle a decidir cuál se adapta mejor a sus necesidades:

Para la mayoría de los usuarios, Kutools para Outlook es la mejor opción, ya que es la forma más rápida y sencilla de responder con adjuntos en Outlook. ¡Ahora puedes responder con adjuntos en Outlook fácilmente utilizando el método que mejor se adapte a tu flujo de trabajo! 🚀

Demostración: Un solo clic paraResponder con Adjuntos conKutools para Outlook

Artículos relacionados:

• ¿Cómo conservar los archivos adjuntos al responder un correo en Outlook?
• ¿Cómo guardar todos los archivos adjuntos de varios correos en una sola carpeta en Outlook?
• ¿Cómo eliminar todos los archivos adjuntos de un correo en Outlook?

---

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook      Descargar ahora      Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

• ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
• 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
• 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto⬇ Descargar el Conjunto💳 Comprar el Conjunto