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

Reference:

OutlookCode

Inspiration:

Tags: VBA, Outlook, send, reminder, email, lembrete