¿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 Sub

4. 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 <>,<>, o <> según tus necesidades. Introduce en el cuadro de abajo y haz clic en el botón Aceptar.

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.