Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

VBA OutLook - Enviando lembretes por e-Mail

Inline image 1


Como enviar lembretes por e-mail?

Este exemplo de código VBA Outlook envia as informações dos lembrentes para o e-mail que você especificar. Coloque esse código no módulo 
ThisOutlookSession.


Sub AppRem (ByVal Item As Object)

  Dim objMsg As MailItem

  

  Set objMsg = Application.CreateItem(olMailItem)

  

  Let objMsg.To = "bernardess@gmail.com"

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

  

  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



  objMsg.Send



  Set objMsg = Nothing

End Sub

Referências: 
Tags: VBA, Outlook, email, send



Related Posts Plugin for WordPress, Blogger...

Vitrine

diHITT - Notícias