Erinnerung für Outlook-Meetings

Ich kann Outlook Android-App aufgrund der Unternehmensrichtlinie (E-Mail-Zugriff nur auf meinem Arbeitsplatz-PC) nicht verwenden. Gibt es eine Funktion in Outlook 2010, mit der Erinnerungen an Besprechungen an eine externe E-Mail gesendet werden können?

Ich habe das folgende Skript getestet und es funktioniert, wie Sie es gewünscht haben.

• Öffnen Sie Outlook und drücken Sie Alt + F11.
• Gehe zu ThisOutlookSession und fügen Sie das folgende Skript ein

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

• Veränderung [email protected] mit Ihrer externen E-Mail-Adresse.
• Speichern und schließen.

Quelle