¿Cómo responder todo con archivos adjuntos originales en Outlook?

Normalmente, cuando aplica la función Responder a todos para responder el mensaje a todos los destinatarios en Outlook, los archivos adjuntos originales se perderán automáticamente. ¿Es posible adjuntar archivos adjuntos originales al responder a todos en Outlook?

Responder a todos con archivos adjuntos originales con código VBA

Responder a todos con archivos adjuntos originales con Kutools para Outlook

Responder a todos con archivos adjuntos originales con código VBA

No hay una función directa para hacer frente a esta tarea en Outlook, pero puede aplicar el siguiente código VBA para lograrlo. Siga los pasos a continuación:

1. Inicie Outlook y luego mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Responder a todos con ahhachments 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. Y luego haz clic Herramientas > Referencias existentes Microsoft Visual Basic para aplicaciones ventana, en el aparecido Referencias-Proyecto1 cuadro de diálogo, comprobar Tiempo de ejecución de secuencias de comandos de Microsoft Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:

4. Luego guarde y cierre la ventana de código, y luego podrá agregar el botón de macro al Acceso rapido a la barra de herramientas.

5. Abra el correo electrónico al que desea responder todos con un archivo adjunto en Mensaje ventana, luego elija Más comandos del desplegable Personalizar la barra de herramientas de acceso rápido desplegable, ver captura de pantalla:

6. En la Opciones de outlook cuadro de diálogo, realice las siguientes operaciones:

(1.) Seleccione Macros del desplegable Elija comandos de la lista desplegable;

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

(3.) Y luego haga clic en Añada para agregar la macro al Personalizar la barra de herramientas de acceso rápido.

7. Luego haga clic OK para cerrar el cuadro de diálogo, ahora, el botón de macro se ha insertado en el Acceso rapido a la barra de herramientas, ver captura de pantalla:

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

Responder a todos con archivos adjuntos originales con Kutools para Outlook

Si tiene Kutools para Outlook, Con su Responder a todos con archivo adjunto característica, puede responder a todos con archivos adjuntos con solo un clic.

Después de instalar Kutools para Outlook, haz lo siguiente:

1. Seleccione el mensaje al que desea responder con archivos adjuntos y luego haga clic en Kutools > Responder con archivo adjunto > Responder a todos con archivo adjunto, ver captura de pantalla:

2. Y la ventana del mensaje de respuesta se abre con los archivos adjuntos originales, luego redacte su mensaje y envíelo, vea la captura de pantalla:

¡Haga clic para descargar Kutools para Outlook y una prueba gratuita ahora!

---

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.

Leer Mas       Descargar gratis      Comprar