Neue Termine automatisch per Email senden

Mit ein paar Zeilen Code kann der Kalender überwacht und jeder neue Eintrag per E-Mail an eine bestimmte Adresse gesendet werden. Um einen Termin versenden zu können, muss dieser als Meeting gekennzeichnet werden.

Wenn Sie nicht den Standardkalender, sondern einen Unterordner davon überwachen wollen, dann entfernen Sie im Beispiel das Hochkomma vor der zweiten Set Folder-Anweisung, und ersetzen Sie den Namen mit dem Namen Ihres Unterordners.

  So fügen Sie Makros in Outlook ein

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.Namespace
  Dim Folder As Outlook.MapiFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set Folder = Ns.GetDefaultFolder(olFolderCalendar)
  ' Set Folder = Folder.Folders("name des unterordners")
  Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Dim Appt As Outlook.AppointmentItem

  If TypeOf Item Is Outlook.AppointmentItem Then
    Set Appt = Item
    Appt.Recipients.Add "abc@domain.com"
    Appt.MeetingStatus = olMeeting
    Appt.Save
    Appt.Send
  End If
End Sub