Eu testei o script a seguir e ele funciona, conforme solicitado.
- Abra o Outlook e pressione Alt + F11.
- Acesse
ThisOutlookSession
e cole o seguinte script
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 = "[email protected]" 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
- Altere
[email protected]
com seu endereço de e-mail externo. - Salve e saia.