loader

Mes: febrero 2020

Macro de Outlook 2019 – Saludo automático

Las aplicaciones de Office 365 aceptan código Visual Basic para ejecutar acciones personalizadas. Buscando automatizar el saludo de inicio de los correos presento esta solución que nos proporciona automáticamente el siguiente resultado al inicio de un correo de respuesta:

Estimado/a Nombre Apellido,
Buenos días,

El apellido en algunos casos es reemplazado por el segundo nombre para evitar cortar nombres compuestos, que son muy comunes en el español. Nombres como Juan Diego, Juan Javier, María Paula, María Belén, etc.

Dependiendo de la hora del día el mensaje de la segunda línea cambia de «Buenos días», «Buenas tardes» y «Buenas noches».

Este código se guardó en un macro, y se lo colocó en entre las herramientas de Outlook para un rápido acceso vía teclado.

Al momento de recibir un correo podemos responder automáticamente.
Un nuevo icono en el ‘ribbon’ representa la acción macro nueva.
El mensaje automático auto calcula los valores para poder automatizar la cabecera del mensaje.

A continuación el código fuente de este macro:

Sub AutoGreeting()

Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim sGreetTime As String


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

sGreetName = oMItem.SenderName
Set oMItemReply = oMItem.Reply
Select Case Time
Case Is < 0.5
sGreetTime = "Buenos días,"
Case 0.5 To 0.75
sGreetTime = "Buenas tardes,"
Case Else
sGreetTime = "Buenas noches"
End Select
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Estimado/a " & Split(sGreetName)(0) & " " & Split(sGreetName)(1) & ",<br>" & sGreetTime & "</p></span>" & .HTMLBody
.Display


End With
ExitProc:

Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

es_ESES
en_USEN es_ESES