¿Cómo crear automáticamente el nombre de un remitente querido al responder un mensaje en Outlook?
Al responder un mensaje de correo electrónico, debe escribir el nombre del remitente y los saludos manualmente. Para ahorrar tiempo y mejorar la eficiencia del trabajo, puede considerar crear el nombre y los saludos de un remitente querido automáticamente en Outlook. En este artículo, hablaré sobre algunos métodos útiles para resolver esta tarea en Outlook.
Cree el nombre y los saludos de un remitente querido automáticamente al responder un mensaje con código VBA
El siguiente código de VBA puede ayudarlo a insertar automáticamente el nombre y los saludos de un remitente querido al responder un mensaje de correo electrónico, haga 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 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 de VBA: inserte automáticamente el nombre y los saludos de un remitente querido al responder:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. Luego cierre Outlook y reinícielo para que tenga el efecto de código, y ahora, cuando responde un mensaje de correo electrónico, el nombre de un remitente querido y los saludos se insertan en el cuerpo automáticamente, vea la captura de pantalla:
Cree el nombre y los saludos de un querido remitente automáticamente al responder el mensaje con Kutools para Outlook
Si tiene Kutools para Outlook, Con su Agregar saludo cuando responda función, Outlook insertará automáticamente el nombre del remitente al responder.
Kutools para Outlook : con más de 100 prácticos complementos de Outlook, prueba gratuita sin límite en 60 días. |
Después de instalar Kutools para Outlook, haz lo siguiente:
1. Hacer clic Kutools > Opciones, ver captura de pantalla:
2. En la Opciones cuadro de diálogo, debajo del Responder pestaña, verificar Agregar saludo cuando responda opción, y luego ingrese los saludos que necesite, vea la captura de pantalla:
3. Luego haga clic OK para finalizar esta configuración, a partir de ahora, al responder un mensaje, los saludos se crearán automáticamente frente al cuerpo del mensaje, ver 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.