El siguiente código VBA puede agregar automáticamente un saludo personalizado al responder mensajes en Outlook. Puede hacer lo siguiente:

1. Seleccione el mensaje de correo electrónico que responderá.

2. presione el otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en el recuadro > Móduloy pegue el siguiente código VBA en la nueva ventana del 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. presione el F5 Clave o haga clic Ejecutar botón para ejecutar este VBA. Aparecerá un cuadro de diálogo como se muestra a continuación. Escriba 1 o 2 según sus necesidades y luego haga clic en OK del botón.

Escriba 1 para el saludo con el nombre del destinatario:	Tipo 2 para saludo con hora del día:

Note: En Outlook 2013, este código VBA no funciona si responde mensajes en el Panel de lectura. Hacer clic aquí para saber cómo deshabilitar la respuesta en el panel de lectura en Outlook 2013.

Es posible que a algunos usuarios no les guste aplicar el código VBA en Outlook. Por lo tanto, presento el segundo método: Kutools para Outlook's Utilidad de saludo automático agregará un saludo personalizado fácilmente en todos los mensajes de respuesta.

Kutools para Outlook simplifica su comunicación diaria por correo electrónico a través de Outlook al agregar docenas de funciones útiles. Leer Mas      Descargar gratis ahora

1. Haga clic en el Kutools > Opciones.

2. En el cuadro de diálogo Opciones de apertura, vaya al Responder pestaña, verifique Agregar saludo cuando responda opción, escriba Hi < >, en el cuadro de abajo y haga clic en el OK del botón.

A partir de ahora, al responder mensajes en Outlook, el saludo personalizado se agregará automáticamente al cuerpo del correo electrónico como se muestra a continuación:

Note: En Outlook 2013, esta utilidad no funciona si responde mensajes en el Panel de lectura. Hacer clic aquí para saber cómo deshabilitar la respuesta en el panel de lectura en Outlook 2013.

Descarga gratuita de Kutools para Outlook