Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Regístrate  \/ 
x

or

¿Cómo responder automáticamente con el mensaje de correo electrónico original en Outlook?

Normalmente, cuando creamos una regla para confiar automáticamente el correo electrónico fuera de la oficina, no se incluirá el mensaje original en el cuerpo. ¿Cómo podría confiar automáticamente en los correos electrónicos con el mensaje original en Outlook? En este artículo, hablaré sobre un código VBA para ayudarlo a terminar este trabajo lo más rápido posible en Outlook.

Correo electrónico de respuesta automática con mensaje original en Outlook con código VBA


Correo electrónico de respuesta automática con mensaje original en Outlook con código VBA

La regla normal de Outlook no puede ayudarlo a lidiar con el trabajo, pero, con el siguiente código VBA, puede terminar esto rápida y fácilmente. Por favor haz lo siguiente:

1. Mantenga pulsado 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 ThisOutlookSession del 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: correos electrónicos de respuesta automática con 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 guarde y cierre la ventana del código, cierre o reinicie Outlook para que el código VBA surta efecto. Ahora, cuando reciba correos electrónicos, Outlook le enviará una respuesta automática con el mensaje original como se muestra en la siguiente captura de pantalla:


Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.