VBA OutLook - Enviando lembretes por e-Mail.

Programe o seu Outlook para que sempre que dispare um lembrete (remind), também envie uma mensagem por e-mail. Este exemplo de código VBA Outlook envia as 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

Fonte: OutlookCode


Tags: Outlook, send, reminder, lembrete





André Luiz Bernardes
A&A® - Work smart, not hard.

Nenhum comentário:

Postar um comentário

diHITT - Notícias