Views

Histats

Vitrine

VBA OutLook - Enviando lembretes por e-Mail.

Inline image 1

É 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:
Inspiration:

TagsVBA, Outlook, send, reminder, email, lembrete

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias