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
|