Lembrete para reuniões do Outlook

0

Eu não posso ter o aplicativo Outlook para Android por causa da política corporativa (acesso por e-mail apenas no meu PC de trabalho). Existe um recurso no Outlook 2010 para enviar lembretes sobre as reuniões para um email não corporativo (externo)?

    
por şaloma 30.10.2017 / 07:25

1 resposta

0

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

Fonte

    
por 30.10.2017 / 08:18