Si hemos convertido el correo electrónico HTML a RTF antes de responder, los nombres de todos los archivos adjuntos se copiarán en el mensaje de respuesta después de hacer clic en Inicio> Responder en Outlook.

1. Haga doble clic para abrir el correo electrónico cuyos nombres de archivos adjuntos necesita copiar, y luego haga clic en Mensaje > Acciones > Editar mensaje en la ventana del mensaje. Ver captura de pantalla:

2. Adelante, haga clic Dar formato al texto > Texto ricoy luego guarde y cierre el correo electrónico.

3. Ahora regresa a la vista principal. Siga seleccionando el correo electrónico y haga clic en Inicio > Responder.

4. Ahora todos los nombres de los archivos adjuntos se copian del correo electrónico original y se pegan en el mensaje de respuesta como se muestra a continuación. Redacte el mensaje de respuesta y envíelo.

Este método introducirá una macro de VBA para copiar todos los nombres de los archivos adjuntos al responder un correo electrónico y luego pegar los nombres en el cuerpo del mensaje del correo electrónico de respuesta en Outlook.

1. prensa otro + F11 teclas simultáneamente 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 para abrir el Esta sesión de Outlook ventana (vea la captura de pantalla a continuación), y luego pegue el código siguiente en la ventana.

VBA: copie el nombre de todos los archivos adjuntos al responder un correo electrónico 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. Hacer clic Enlaces > Referencias.

4. En la ventana de apertura Referencias - Proyecto 1 para Outlook 2016, marque el Biblioteca de objetos de Microsoft Word 16.0 referencia en el cuadro Referencias disponibles y haga clic en el OK botón. Ver captura de pantalla:

Nota:: Seleccione el Biblioteca de objetos de Microsoft Word 15.0 referencia si está trabajando con Outlook 2013, o Biblioteca de objetos de Microsoft Word 14.0 referencia con Outlook 2010.

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

6. Ahora regresa a la interfaz principal de Outlook. Seleccione el correo electrónico que responderá y haga clic en Inicio > Responder or Responder a todos.
Nota:: Si los nombres de los archivos adjuntos no se copian y pegan en el correo electrónico de respuesta, reinicie Outlook y responda nuevamente.

Y ahora el nombre de todos los archivos adjuntos se copia del correo electrónico seleccionado y se pega en el correo electrónico de respuesta. Ver captura de pantalla:

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

1. Seleccione el correo electrónico que responderá y haga clic en Kutools > Herramientas de adjunto > Copiar nombres.

Luego aparece un cuadro de diálogo que le indica que los nombres de los archivos adjuntos se copian en el portapapeles. Hacer clic OK para cerrarlo

2. Adelante, haga clic Inicio > Responder para responder el correo electrónico seleccionado.

3. En la ventana del mensaje de respuesta, coloque el cursor en el cuerpo del mensaje y presione Ctrl + V claves para pegar los nombres de los archivos adjuntos fácilmente.

Responda fácilmente correos electrónicos seleccionados con todos los archivos adjuntos originales guardados en Outlook

En general, los archivos adjuntos originales se eliminan al responder un correo electrónico en Outlook. Pero, con fantástica Responder con archivo adjunto característica de Kutools for Outlook, puede guardar fácilmente todos los archivos adjuntos de correos electrónicos al responderlos en Outlook.