¿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 del botón.
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! (Pista gratuita 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 FunctionPaso 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 Ejecutar del botón.
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 del botón.
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:
- ¿Cómo mantener los archivos adjuntos al responder en Outlook?
- ¿Cómo guardar todos los archivos adjuntos de varios correos electrónicos en una carpeta en Outlook?
- ¿Cómo eliminar todos los archivos adjuntos del correo electrónico en Outlook?
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.
