Views

Histats

Vitrine

VBA OUTLOOK: Enviando Lembretes por e-mail

Jamais or Outlook disparará um lembrete sozinho, o código VBA para o MS Outlook é um exemplo simples de como enviar lembretes para o endeço de e-mail que sspecificarmos.

Digite este código no módulo "ThisOutlookSession":

 

Private Sub Aplicacao_Lembrete(ByVal Item As Object)

Dim objMsg As MailItem

' Crie uma nova mensagem.

Set objMsg = Application.CreateItem(olMailItem)

' O endereço do seu lembrete de notificação, bem como o assunto.

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

Let objMsg.Subject = "Lembrar-se: " & Item.Subject

' Pelo menos 4 tipos de lembretes poderão ser gerados.

Select Case Item.Class

Case olAppointment '26

Let objMsg.Body = _

"Iniciando…: " & Item.Start & vbCrLf & _

"Finalizando: " & Item.End & vbCrLf & _

"Localização: " & Item.Location & vbCrLf & _

"Detalhes: " & vbCrLf & Item.Body

Case olContact '40

objMsg.Body = _

"Contato: " & Item.FullName & vbCrLf & _

"Telefone: " & Item.BusinessTelephoneNumber & vbCrLf & _

"Detalhes do contato: " & vbCrLf & Item.Body

Case olMail '43

objMsg.Body = _

"Due: " & Item.FlagDueBy & vbCrLf & _

"Detalhe: " & vbCrLf & Item.Body

Case olTask '48

objMsg.Body = _

"Iniciando: " & Item.StartDate & vbCrLf & _

"Finalizando: " & Item.DueDate & vbCrLf & _

"Detalhe: " & vbCrLf & Item.Body

End Select

' send the message

objMsg.Send

Set objMsg = Nothing

End Sub

 

Notes

O uso de objMsg.Send disparará um aviso de segurança no Outlook 2000 e 2002.

Para desligar o popup do Reminder, você precisa acessar Tools | Options | Other | Advanced Options | Reminder Options.

Se você estiver enviando reminders para um pager, possivelmente desejará modificar o código para delimiter o número de caracteres enviados. 

Caso modifique o código para incluir diferentes propriedade para envio, certifique-se da existência de um tipo de "item" em particular.

Divirta-se! 

✔ VBA Brazil®

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