¿Cómo responder automáticamente con el mensaje de correo electrónico original en Outlook?
Normalmente, cuando creamos una regla para responder automáticamente los correos electrónicos fuera de la oficina, el mensaje original en el cuerpo no se incluirá. ¿Cómo podrías responder automáticamente a los correos electrónicos con el mensaje original en Outlook? En este artículo, hablaré sobre un código VBA que te ayudará a realizar esta tarea lo más rápido posible en Outlook.
Responder automáticamente correos electrónicos con el mensaje original en Outlook usando código VBA
Responder automáticamente correos electrónicos con el mensaje original en Outlook usando código VBA
La regla normal de Outlook no puede ayudarte a manejar esta tarea, pero, con el siguiente código VBA, puedes terminarla rápidamente y fácilmente. Por favor, sigue estos pasos:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisOutlookSession desde el panel Project1(VbaProject.OTM) para abrir el modo, y luego copia y pega el siguiente código en el módulo en blanco.
Código VBA: Responder automáticamente correos electrónicos con el mensaje original:
Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
.HTMLBody = xStr & .HTMLBody
.Send
End With
End Sub

3. Luego guarda y cierra la ventana del código, cierra o reinicia Outlook para que el código VBA surta efecto. Ahora, cuando recibas correos electrónicos, Outlook enviará una respuesta automática con el mensaje original como se muestra en la siguiente captura de pantalla:

Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

