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
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!
Nenhum comentário:
Postar um comentário