¿Cómo agregar automáticamente un saludo personalizado al responder en Outlook?
Normalmente, cuando respondemos a un mensaje de correo electrónico en Outlook, tenemos que agregar manualmente el saludo. De hecho, el mensaje original contiene la información del destinatario, como el nombre del remitente. En este artículo, presentaré dos métodos para agregar automáticamente un saludo personalizado al responder en Outlook.
Agregar automáticamente un saludo personalizado al responder con VBA
Agregar automáticamente un saludo personalizado al responder con Kutools para Outlook
Agregar automáticamente un saludo personalizado al responder con VBA
El siguiente código VBA puede agregar automáticamente un saludo personalizado al responder mensajes en Outlook. Puedes hacer lo siguiente:
1. Selecciona el mensaje de correo electrónico al que vas a responder.
2. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haz clic en Insertar > Módulo y pega el siguiente código VBA en la nueva ventana de módulo.
VBA: Responder con saludo personalizado
Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub4. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar este VBA. Aparecerá un cuadro de diálogo como se muestra en la captura de pantalla a continuación. Escribe 1 o 2 según tus necesidades y luego haz clic en el botón Aceptar.
| Escribe 1 para el saludo con el nombre del destinatario: | Escribe 2 para el saludo con la hora del día: |
 |  |
Nota: En Outlook 2013, este código VBA no funciona si respondes a los mensajes en el Panel de Lectura. Haz clic aquí para saber cómo desactivar la respuesta en el Panel de Lectura en Outlook 2013.
Agregar automáticamente un saludo personalizado al responder con Kutools para Outlook
Algunos usuarios podrían no querer aplicar código VBA en Outlook. Por eso introduzco el segundo método: la utilidad Auto Saludo de Kutools para Outlook agregará saludos personalizados fácilmente en todos los mensajes de respuesta.
Kutools para Outlook simplifica tu comunicación diaria por correo electrónico a través de Outlook al agregar docenas de funciones útiles. Leer más Descarga gratuita ahora
1. Haz clic en Kutools > Opciones.
2. En el cuadro de diálogo Opciones que se abre, ve a la pestaña Responder, marca la opción Agregar saludo al crear, responder y reenviar un correo electrónico, personaliza el saludo incluyendo marcadores de posición como <
Desde ahora, al responder a mensajes en Outlook, el saludo personalizado se agregará automáticamente al cuerpo del correo electrónico como se muestra en la siguiente captura de pantalla:
Nota: En Outlook 2013, esta utilidad no funciona si respondes a mensajes en el Panel de Lectura. Haz clic aquí para saber cómo desactivar la respuesta en el Panel de Lectura en Outlook 2013.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos