Hallo,

ich habe ein Script erstellt, um meine Termine aus einem Outlook2010 Kalender in ein Office365 Konto zu synchronisieren. Das klappt auch für singleInstance und Recurring-Termine, allerdings bekomme ich die Exceptions nicht sauber rüber. Nach meinem Verständnis wird für jede Exception ein Eintrag in termin.getRecurrencePattern.exceptions erstellt, der entsprechende .count geht hoch und Einträge sind vorhanden. Allerdings, wenn ich dann von einem Recurring-Termin z.B. den Betreff ändere, ist aus diesen Einträgen immer noch der Originalbetreff zu lesen, nirgends finde ich den geänderten.

Hier mal mein code, um die entsprechenden Felder auszugeben. Editiere ich einen Termin im Kalender, ändere ich den Betreff dort, wird hier ein item mehr gefunden, aber mit dem alten Betreff ausgegeben. Ist mein Ansatz falsch???

        ' Handling of Exceptions
        Dim y As Integer
        y = oAppt.GetRecurrencePattern.Exceptions.Count
        While y > 0
            Set myException = oAppt.GetRecurrencePattern.Exceptions.Item(y)
            If myException.Deleted Then
                Debug.Print "deleted"
                Debug.Print myException.OriginalDate
            Else
                Debug.Print myException.AppointmentItem.start
                Debug.Print myException.AppointmentItem.End 
                Debug.Print myException.OriginalDate
                Debug.Print myException.AppointmentItem.LastModificationTime
                Debug.Print oAppt.Subject
            End If
            y = y - 1

        Wend