Views

Important:

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

...

10 de abril de 2012

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




Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine