✔ Programação GLOBAL®: VBA OutLook - Enviando lembretes por e-Mail.

| Blog Office VBA | Blog Excel | Blog Access |

É verdade que haverão momentos nos quais desejará ser lembrado de coisas importante, como por exemplo, colocar alguma segurança ao seu redor.

Talvez possa fazer isso no MS Outlook, disparando um lembrete (remind). Também poderá enviar uma mensagem por e-mail.

O exemplo de código abaixo envia informações do Remind para o e-mail que especificarmos.

Coloque esse código no módulo ThisOutlookSession.

Private Sub Application_Reminder(ByVal Item As Object)

Dim objMsg As MailItem

' create new outgoing message

Set objMsg = Application.CreateItem(olMailItem)

' your reminder notification address

objMsg.To = "bernardess@gmail.com"

objMsg.Subject = "Reminder: " & Item.Subject

' must handle all 4 types of items that can generate reminders

Select Case Item.Class

Case olAppointment '26

objMsg.Body = _

"Start: " & Item.Start & vbCrLf & _

"End: " & Item.End & vbCrLf & _

"Location: " & Item.Location & vbCrLf & _

"Details: " & vbCrLf & Item.Body

Case olContact '40

objMsg.Body = _

"Contact: " & Item.FullName & vbCrLf & _

"Phone: " & Item.BusinessTelephoneNumber & vbCrLf & _

"Contact Details: " & vbCrLf & Item.Body

Case olMail '43

objMsg.Body = _

"Due: " & Item.FlagDueBy & vbCrLf & _

"Details: " & vbCrLf & Item.Body

Case olTask '48

objMsg.Body = _

"Start: " & Item.StartDate & vbCrLf & _

"End: " & Item.DueDate & vbCrLf & _

"Details: " & vbCrLf & Item.Body

End Select

' send the message

objMsg.Send

Set objMsg = Nothing

End Sub