6 formas de mantener los archivos adjuntos de correo electrónico originales al responder en Outlook

Muchos usuarios esperan configurar su Outlook para mantener los archivos adjuntos de correo electrónico originales al responder un correo electrónico. Este artículo expondrá 5 soluciones alternativas, así como una forma inteligente, que es usar VBA para realizarlo automáticamente.

He escuchado a un gran número de usuarios quejarse de que Outlook no tiene una función nativa para mantener los archivos adjuntos originales al responder un correo electrónico. Por lo tanto, aquí le compartiremos 6 métodos, uno de los cuales es bastante útil ya que usa VBA para hacer que Outlook adjunte automáticamente los archivos adjuntos originales al correo electrónico de respuesta. Ahora sigue leyendo para conocerlos en detalle.

1. Responder con correo electrónico original adjunto

Aunque Outlook no proporciona una función para mantener los archivos adjuntos de correo electrónico originales al responder un correo electrónico, permite a los usuarios mantener el correo electrónico original adjunto. Por lo tanto, es una solución alternativa para usted. Puede dirigirse a la sección "Archivo"> ​​"Opciones"> "Correo"> "Respuestas y reenvíos" para cambiar la configuración de respuesta. Para obtener más detalles, se sugiere que consulte mi artículo anterior: "5 pasos para responder con archivos adjuntos originales en Outlook”. Pero, si todavía espera conservar solo los archivos adjuntos originales, continúe para aprender los otros medios.

2. Arrastrar y soltar archivos adjuntos manualmente

1. A start con, haga doble clic en dicho correo electrónico de origen para abrirlo en su propia ventana.
2. Luego haga clic en el botón "Responder", que mostrará el correo electrónico de respuesta.
3. A continuación, debe reducir las dos ventanas de mensajes hasta que pueda verlas en la misma pantalla.
4. Después de eso, seleccione todos los archivos adjuntos en el correo electrónico original.
5. Por último, arrástrelos y suéltelos en la línea "Adjuntos" en el correo electrónico de respuesta.

3. Copiar y pegar archivos adjuntos manualmente

1. En primer lugar, después de abrir el correo electrónico de origen, seleccione todos los archivos adjuntos.
2. Luego haga clic en el botón "Copiar" en la pestaña "Archivos adjuntos".
3. Después de eso, haga clic en el botón "Responder" en la pestaña "Mensaje" para abrir un correo de respuesta.
4. Por último, en el correo electrónico de respuesta, haga clic en la línea "Adjunto" y presione el botón "Ctrl + V" para pegar los archivos adjuntos copiados anteriormente.

4. Reenviar correo electrónico y completar destinatario

1. En primer lugar, seleccione dicho correo electrónico y luego haga clic en el botón "Reenviar" en la cinta.
2. En la nueva ventana emergente Mensaje, se guardan los archivos adjuntos originales. Ahora debe completar el campo "Para" del remitente del correo electrónico original.
3. Opcionalmente, puede cambiar el tema según sus necesidades.

5. Reenviar este correo electrónico y cambiar destinatarios

1. Para empezar, abra el correo electrónico de origen.
2. Luego haga clic en el botón "Acciones" en el grupo "Mover".
3. A continuación, elija "Reenviar este mensaje" de la lista desplegable.
4. Quizás reciba una alerta que le diga que no es el remitente original. Simplemente ignórelo y presione "Sí".
5. En el siguiente correo electrónico nuevo, debe modificar el campo "Para" al remitente del correo electrónico original.
6. Además, recuerde cambiar el envío usando la cuenta de correo electrónico a su propia cuenta.

6. Agregar automáticamente archivos adjuntos originales a través de VBA

Todos los enfoques mencionados anteriormente, para ser honesto, son soluciones alternativas. Si espera que Outlook pueda mantener automáticamente los archivos adjuntos originales al responder, puede usar esta forma.

1. En la ventana principal de Outlook, presione las teclas "Alt + F11".
2. Luego, en la ventana "Microsoft Visual Basic para Aplicaciones", copie el código VBA a continuación en el proyecto "ThisOutlookSession".

Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

3. Posteriormente, firme esta macro y cambie la configuración de la macro de Outlook para permitir las macros firmadas.
4. Después de eso, restart su aplicación de Outlook para activar este proyecto VBA.
5. De ahora en adelante, cada vez que haga clic en el botón "Responder". El correo electrónico de respuesta se mostrará con los archivos adjuntos originales a la vez.

Recurra a una herramienta de reparación preeminente

Outlook ha superado a otros clientes de correo electrónico debido a sus innumerables funciones. Pero todavía es propenso a la corrupción. Por lo tanto, debes prestar más atención a su salud. En general, cuando encuentre pequeños problemas, simplemente puede recurrir a la utilidad de reparación incorporada. Sin embargo, si sufre problemas graves, es mejor que recurra a una herramienta mucho más competente, como DataNumen Outlook Repair. Se puede arreglar Outlook archivo en un instante.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrección de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com