¿Cómo añadir automáticamente un saludo personalizado al responder correos en Outlook?
Normalmente, al responder un mensaje de correo electrónico en Outlook, debes añadir manualmente el saludo. Sin embargo, el mensaje original ya incluye información del destinatario, como el nombre del remitente. En este artículo te presento dos métodos para insertar automáticamente un saludo personalizado al responder en Outlook.
Añadir automáticamente un saludo personalizado al responder con VBA
Añadir automáticamente un saludo personalizado al responder con Kutools para Outlook
Añadir automáticamente un saludo personalizado al responder con VBA
El siguiente código VBA añade automáticamente un saludo personalizado al responder mensajes en Outlook. Siga estos pasos:
1. Seleccione el mensaje de correo electrónico al que desea responder.
2. Pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
3. Haga clic en Insertar > Módulo y 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 Sub4. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar este código VBA. Aparecerá un cuadro de diálogo como el que se muestra en la siguiente captura de pantalla. Escriba 1 o 2 según sus necesidades y, a continuación, haga clic en el botón Aceptar.
| Escriba 1 para un saludo con el nombre del destinatario: | Escriba 2 para un saludo con la hora del día: |
 |  |
Nota: En Outlook 2013, este código VBA no funciona si responde a mensajes desde el panel de lectura. Haga clic aquí para saber cómo desactivar la respuesta en el panel de lectura en Outlook 2013.
Añadir automáticamente un saludo personalizado al responder con Kutools para Outlook
Algunos usuarios podrían preferir no utilizar código VBA en Outlook. Por eso, presentamos un segundo método: la utilidad Saludo automático de Kutools para Outlook añade fácilmente saludos personalizados en todos los mensajes de respuesta.
Kutools para Outlooksimplifica su comunicación diaria por correo electrónico mediante Outlook al incorporar decenas de funciones prácticas.Más información Descarga gratuita ahora
1. Haga clic en Kutools > Opciones.
2. En el cuadro de diálogo Opciones que se abre, vaya a la pestaña Responder, active la opción Agregar automáticamente un saludo al redactar, responder o reenviar correos electrónicos, personalice el saludo incluyendo marcadores de posición como >, > o > según sus necesidades en el cuadro siguiente y haga clic en el botón Aceptar.
A partir de ahora, al responder a mensajes en Outlook, el saludo personalizado se añadirá automáticamente al cuerpo del correo electrónico, tal como se muestra en la siguiente captura de pantalla:
Nota: En Outlook 2013, esta utilidad no funciona si responde a mensajes desde el panel de lectura. Haga clic aquí para saber cómo desactivar la respuesta en el panel de lectura en Outlook 2013.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace su trabajo mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools. Un solo instalador.
Kutools for Office es una suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, lo que la convierte en la opción ideal para equipos que trabajan con distintas aplicaciones de Office.
- Suite todo en uno— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Funcionan mejor juntos— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a comprar complementos por separado