¿Cómo responder a todos incluyendo los archivos adjuntos originales en Outlook?

¿Alguna vez ha pulsado «Responder a todos» en Outlook y ha perdido los archivos adjuntos originales? ¡Es muy frustrante! ¿Se pregunta cómo conservar esos archivos adjuntos al responder a todos? ¡Sí, es posible! Descubra cómo incluir los archivos adjuntos originales en sus respuestas y haga que la gestión de su correo electrónico sea fluida y eficiente. ¡No se lo pierda!

Responder a Todos con Adjuntos Originales con código VBA

Responder a Todos con Adjuntos Originales con Kutools para Outlook

---

Responder a Todos con Adjuntos Originales con código VBA

Outlook no incluye una función directa para realizar esta tarea, pero puede lograrlo aplicando el siguiente código VBA. Siga estos pasos:

1. Inicie Outlook y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Project1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Responder a todos con los archivos adjuntos originales:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = 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

3. A continuación, haga clic en Herramientas > Referencias en la ventana de Microsoft Visual Basic para Aplicaciones. En el cuadro de diálogo emergente Referencias - Proyecto1, active la opción Microsoft Scripting Runtime en la lista Referencias disponibles. Consulte la captura de pantalla:

4. A continuación, cierre la ventana del código y añada el botón de macro a la Barra de herramientas de acceso rápido.

5. Abra en la ventana de Mensaje el correo al que desea responder a todos con archivos adjuntos y, a continuación, seleccione Más comandos en el menú desplegable Personalizar barra de herramientas de acceso rápido. Consulte la captura de pantalla:

6. En el cuadro de diálogo Opciones de Outlook, realice las siguientes operaciones:

(1.) Seleccione Macrosen la lista desplegable Elegir comandos de;

(2.) Haga clic en el nombre de la macro que acaba de insertar;

(3.) A continuación, haga clic en el botón Agregar para añadir la macro a la Barra de herramientas de acceso rápido.

7. A continuación, haga clic en Aceptar para cerrar el cuadro de diálogo. Ahora, el botón de macro se ha insertado en la Barra de herramientas de acceso rápido. Consulte la captura de pantalla:

8. Ahora, haga clic en el botón de macro y se abrirá la ventana de respuesta con los archivos adjuntos originales. Redacte su mensaje y haga clic en el botón Enviar. Consulte la captura de pantalla:

---

Responder a Todos con Adjuntos Originales con Kutools para Outlook

Si dispone de Kutools para Outlook, con su función Responder a todos con archivos adjuntos, podrá responder a todos con los archivos adjuntos con un solo clic.

Tras instalar Kutools para Outlook, proceda de la siguiente manera:

1. Seleccione el mensaje al que desea responder a todos con adjuntos y, a continuación, haga clic en Kutools Responder a todos con archivo adjunto original. Consulte la captura de pantalla:

2. Se abrirá la ventana de respuesta con los archivos adjuntos originales. Redacte su mensaje y envíelo; consulte la captura de pantalla:

¡Haga clic para descargar ya laversión gratuita de Kutools para Outlook !