¿Cómo copiar todos los nombres de los archivos adjuntos al responder un mensaje en Outlook?

Si previamente hemos convertido el correo HTML a RTF antes de responder, al hacer clic en Inicio > Responder en Outlook, todos los nombres de los archivos adjuntos se copiarán automáticamente en el mensaje de respuesta.

1. Haga doble clic para abrir el correo cuyos nombres de archivos adjuntos desea copiar y, a continuación, haga clic en Mensaje > Acciones > Editar mensaje en la ventana del mensaje. Vea la captura de pantalla:

2. A continuación, haga clic en Texto > Texto enriquecido y, después, en Guardar y cerrar el correo.

3. Ahora volverá a la vista principal. Seleccione nuevamente el correo y haga clic en Inicio > Responder.

4. Ahora, todos los nombres de los archivos adjuntos se han copiado del correo original y pegado en el mensaje de respuesta, tal como se muestra en la siguiente captura de pantalla. Redacte su mensaje y envíelo.

Responda fácilmente Responder a varios correos seleccionados manteniendo todos los archivos adjuntos originales en Outlook

Por lo general, los archivos adjuntos originales se eliminan al responder un correo en Outlook. Sin embargo, con la fantástica función Responder con archivo adjunto de Kutools para Outlook, ¡podrá conservar fácilmente todos los archivos adjuntos al responder correos en Outlook!

Si tiene instalado Kutools para Outlook, puede utilizar su función Copiar nombres para copiar rápidamente todos los nombres de los archivos adjuntos de un correo recibido y luego pegarlos fácilmente en su mensaje de respuesta en Outlook.

1. Seleccione el correo al que va a responder y haga clic en KUTOOLS PLUS > Herramientas de archivos adjuntos > Copiar nombres.

A continuación, aparecerá un cuadro de diálogo indicando que los nombres de los archivos adjuntos se han copiado al portapapeles. Haga clic en Aceptar para cerrarlo.

2. A continuación, haga clic en Inicio > Responder para responder al correo seleccionado.

3. En la ventana del mensaje de respuesta, coloque el cursor en el cuerpo del mensaje y pulse las teclas Ctrl+V para pegar fácilmente el nombre del archivo adjunto.

Este método presenta una macro de VBA que copia los nombres de todos los archivos adjuntos al responder un correo y los pega directamente en el cuerpo del mensaje de respuesta en Outlook.

1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En el Explorador de proyectos de la izquierda, expanda el proyecto 1, haga doble clic en la ventana ThisOutlookSession para abrirla (véase la captura de pantalla a continuación) y pegue el siguiente código en dicha ventana.

VBA: Copie todos los nombres de los archivos adjuntos al responder un correo en Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Haga clic en Herramientas > Referencias.

4. En la ventana Referencias – Proyecto 1 que se abre en Outlook 2016, active la referencia Microsoft Word 16,0 Object Library en el cuadro Referencias disponibles y haga clic en el botón Aceptar. Vea la captura de pantalla:

Nota: active la referencia Microsoft Word 15,0 Object Library si trabaja con Outlook 2013 o la referencia Microsoft Word 14,0 Object Library si usa Outlook 2010.

5. Guarde el código VBA y cierre la ventana de Microsoft Visual Basic para Aplicaciones.

6. Ahora volverá a la interfaz principal de Outlook. Seleccione el correo al que desea responder y haga clic en Inicio > Responder o Responder a todos.
Nota: Si los nombres de los archivos adjuntos no se copian ni pegan automáticamente en el correo de respuesta, reinicie Outlook y vuelva a intentarlo.

Ahora todos los nombres de los archivos adjuntos se han copiado del correo seleccionado y se han pegado en el mensaje de respuesta. Vea la captura de pantalla: