Note: The other languages of the website are Google-translated. Back to English

¿Cómo mantener los archivos adjuntos al responder en Outlook?

Cuando reenviamos un mensaje de correo electrónico en Microsoft Outlook, los archivos adjuntos originales de este mensaje de correo electrónico permanecen en el mensaje reenviado. Sin embargo, cuando respondemos un mensaje de correo electrónico, los archivos adjuntos originales no se adjuntarán en el nuevo mensaje de respuesta. Aquí vamos a presentar un par de trucos para mantener los archivos adjuntos originales al responder en Microsoft Outlook.

Responder con archivos adjuntos copiando y pegando manualmente
Responder con archivos adjuntos automáticamente por VBA
Un clic para responder con archivos adjuntos con Kutools para Outlook


Responder con archivos adjuntos copiando y pegando manualmente

Podemos copiar manualmente los archivos adjuntos originales en un mensaje de correo electrónico y pegarlos en la ventana Mensaje de respuesta cuando respondamos el mensaje de correo electrónico más tarde.

Paso 1: haga clic en el mensaje de correo electrónico para obtener una vista previa en el panel de lectura.

Paso 2: haga clic con el botón derecho en un archivo adjunto en el mensaje de correo electrónico de vista previa y seleccione el Seleccionar todo desde el menú contextual.

Paso 3: haga clic con el botón derecho en los archivos adjuntos seleccionados y seleccione el Copiar desde el menú contextual.

Paso 4: Responda el mensaje de correo electrónico haciendo clic en el Responder botón de la Inicio pestaña (o en la barra de herramientas en Outlook 2007).

Paso 5: en la ventana Mensaje de respuesta, haga clic en el Pasta botón de la Mensaje pestaña para pegar estos archivos adjuntos.

Si está utilizando Outlook 2013 o la versión posterior, haga clic en el Salir en la esquina superior izquierda del Panel de lectura para abrir la ventana Mensaje de respuesta. Haga clic para saber más ...

Paso 6: redacte el mensaje de respuesta y haga clic en el Enviar


Responda fácilmente correos electrónicos con archivos adjuntos originales en Outlook:

Kutools para Outlook's Responder con archivo adjunto La utilidad puede ayudarlo a responder fácilmente un correo electrónico recibido con sus archivos adjuntos originales en Outlook. Vea la demostración a continuación: 
¡Descárgalo y pruébalo ahora! (Sendero gratuito de 60 días)


Responder con archivos adjuntos automáticamente por VBA 

Hay una macro de VBA que puede ayudarlo a responder automáticamente con los archivos adjuntos originales.

Nota: antes de ejecutar cualquier macros VBA, debe habilitar macros en Microsoft Outlook.

Paso 1: Seleccione el mensaje de correo electrónico que responderá con sus archivos adjuntos.

Paso 2: Presione el otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

Paso 3: expanda los objetos Project1 y Microsoft Outlook en la barra izquierda y haga doble clic en el Esta sesión de Outlook Para abrirlo.

Paso 4: Pegue el siguiente código en la ventana ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    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 Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New 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 = ""
    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 5: Presione el F5 clave para ejecutar esta macro. En la apertura Macros cuadro de diálogo, haga clic en EjecutarReplyAllWithAttachments si desea responder a todos con archivos adjuntos. De lo contrario, seleccione Ejecutar respuesta con archivos adjuntos, haga clic en el Corral

Luego abre la ventana Mensaje de respuesta con todos los archivos adjuntos originales.

Paso 6: redacte el mensaje de respuesta y haga clic en Enviar


Responda con archivos adjuntos automáticamente con Kutools para Outlook

La Responder con adjuntar utilidad de Kutools para Outlook puede ayudarlo a responder correos electrónicos con archivos adjuntos originales con solo un clic.

Kutools para Outlook : con más de 100 útiles complementos de Outlook, gratis para probar sin límite en 60 días.

1. Seleccione el correo electrónico que contiene los archivos adjuntos con los que necesita responder.

2. Luego haga clic Kutools > Responder con archivo adjunto > Responder con archivo adjunto. Ver captura de pantalla:

Luego, todos los archivos adjuntos del correo electrónico seleccionado se enumeran en el Se adjunta campo del mensaje de respuesta. Redacte su correo electrónico y envíelo.

Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.


Un clic para responder con archivos adjuntos con Kutools para Outlook

  Si desea tener una prueba gratuita (60 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.


Artículos relacionados:


Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (24)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Hola equipo, hay una manera de ejecutar esta macro usando algunas teclas de método abreviado en Outlook.
Rituraj Sharma
Este comentario fue minimizado por el moderador en el sitio
Sí. Debajo de las opciones principales, puede agregar una pestaña de desarrollador donde puede encontrar las macros. Y, aún mejor, si hace clic derecho en la tira en la parte superior con todos los botones, lo llaman "cinta", puede agregar un nuevo grupo personalizado y mostrar sus macros como botones allí mismo en la pestaña de inicio.
mr
Este comentario fue minimizado por el moderador en el sitio
Estoy tratando de usar Responder con archivos adjuntos, pero no agrega el archivo adjunto, solo mantiene el enlace. Utilizo la separación automática cuando se recibe un correo electrónico. ¿Hay algún ajuste de configuración que deba actualizar? ¡Gracias por tu ayuda!
susana landas
Este comentario fue minimizado por el moderador en el sitio
Querida Susan,

Los archivos adjuntos ya no se ubicarán en el correo electrónico, ya que se separan automáticamente del correo electrónico. Desactive la función de desconexión automática para usar esta función Responder con archivo adjunto.

Saludos, Cristal.
cristal
Este comentario fue minimizado por el moderador en el sitio
¿Cómo se desactiva la función de desconexión automática?
Dakota
Este comentario fue minimizado por el moderador en el sitio
Estimado cliente,

Si está utilizando la función Separar automáticamente todos los archivos adjuntos recibidos de Kutools para Outlook, haga lo que se muestra a continuación para desactivar esta función desmarcándola en su Outlook. ¡Gracias!
cristal
Este comentario fue minimizado por el moderador en el sitio
He descargado la pestaña Kutools. ¿Puedo agregar 'Responder con archivo adjunto' a mi pestaña de inicio o a Pasos rápidos?
Jim
Este comentario fue minimizado por el moderador en el sitio
Querido Jim,
Puede hacer clic con el botón derecho en el botón Responder con archivo adjunto y seleccionar "Agregar a la barra de herramientas de acceso rápido" para agregar esta función a la barra de herramientas de acceso rápido en la cinta. Ver captura de pantalla:
cristal
Este comentario fue minimizado por el moderador en el sitio
En la última parte del script, muchas de las variables no están definidas.
NMGMarques
Este comentario fue minimizado por el moderador en el sitio
Usé el código VBA pero se adjunta con todas las imágenes (.gif, jpg,...) en el contenido del correo electrónico. Por favor, muéstrame cómo resolver este problema.
Nhan Nguyen Tuan
Este comentario fue minimizado por el moderador en el sitio
Buenos días,
El código está actualizado en la publicación. El problema ahora está resuelto. Pruébalo y gracias por tu comentario.
cristal
Este comentario fue minimizado por el moderador en el sitio
Muy bien, gracias, pero tengo un error de compilación: Tipo definido por el usuario no definido. Se resalta Dim xFSO As Scripting.FileSystemObject en parte Sub CopyAttachments
Gato
Este comentario fue minimizado por el moderador en el sitio
Hola Honza,
El código funciona bien en mi caso. ¿Qué versión de Office usas?
cristal
Este comentario fue minimizado por el moderador en el sitio
Yo también. Tengo el problema con la misma gente de arriba. Yo uso Office 2016.
Hien
Este comentario fue minimizado por el moderador en el sitio
estoy usando office 365 con el mismo error
Robar
Este comentario fue minimizado por el moderador en el sitio
Hola Bob,
Por favor, inténtalo:
1. Presione las teclas Alt + F11 para abrir nuevamente la ventana de Microsoft Visual Basic para Aplicaciones;
2. Haga clic en Herramientas > Referencias y marque la casilla Microsoft Scripting Runtime.
Ahora el código puede funcionar.
cristal
Este comentario fue minimizado por el moderador en el sitio
¡Eso me lo soluciona!

Gracias.
httan
Este comentario fue minimizado por el moderador en el sitio
¡Hola!

¡Muchas gracias por tan buena herramienta!

¿Se puede ejecutar el comando para que la ventana de respuesta no aparezca sino que permanezca en la vista del panel de lectura?
Alexey
Este comentario fue minimizado por el moderador en el sitio
Hola Alexey,
Hemos lanzado una nueva versión con la herramienta actualizada. Gracias por tu apoyo.
cristal
Este comentario fue minimizado por el moderador en el sitio
Hola cristal

gracias por actualizar!
¿Había cambiado el código de la macro o funcionaría solo con la herramienta instalada?
Alexey
Este comentario fue minimizado por el moderador en el sitio
Hola Alexey,
El código se usa solo sin la herramienta instalada.
cristal
Este comentario fue minimizado por el moderador en el sitio
Hi
Voy a usar el código para responder a todos con archivos adjuntos en los resultados de búsqueda de Todos los buzones, pero me muestra un error y no funciona.
por favor, hágame saber cómo cambiar el código para que se pueda usar en Todos los buzones.

Atentamente
Shahrooz
Shahroz Bral
Este comentario fue minimizado por el moderador en el sitio
Hola,
El error no se debe a la búsqueda.
Para evitar el error, haga clic en Herramientas > Referencias para abrir el cuadro de diálogo Referencias y luego habilite la opción Microsoft Scripting Runtime. Ver la imagen adjunta para los pasos.
cristal
Este comentario fue minimizado por el moderador en el sitio
Hola, Estoy usando su código para responder, lo cual es genial, gracias por ponerlo a disposición. Tengo mis opciones de correo configuradas para comenzar los comentarios con mis iniciales, lo que funciona cuando uso la respuesta estándar. Cuando creo una respuesta usando este código, no se insertan mis iniciales ¿Puedes ayudar por favor? Gracias Steve
</div>
Steve
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0  Personajes.
Ubicaciones sugeridas