Exchange 365 Kalender nach ics exportieren - länger als ein Jahr

'Die gewünschte Anzahl von Tagen eingeben, die im exportierten Kalender sein sollen, hier 5 Jahre Zukunft, 3 Monate Vergangenheit  
Const DAYS_TO_EXPORT_AHEAD = 1825
Const DAYS_TO_EXPORT_BEFORE = 90

'Pfad für die exportierte Datei  
SAVE_TO_PATH = "C:\export.ics"  
strCalName = "Kalenderabo"  
 
Dim olkApp, olkSes, olkCal, olkSha

On Error Resume Next
Set olkApp = GetObject(, "Outlook.Application")  
If olkApp Is Nothing Then
  Set olkApp = CreateObject("Outlook.Application")  
End If

' Hier muss man ein bisschen schauen, auf welchem Pfad der Kalender liegt. Hier ein Unterordner im geteilten Kalender-Exchange-Account  
Set olkCal = olkApp.GetNamespace("MAPI").Folders.Item("kalenderaccount@example.com").Folders.Item("Kalender").Folders.Item(strCalName)  

' Hier wird der Sync-Test-Termin verschoben  
For Each app In olkCal.Items
        If app.Subject = "Sync-Test-Termin" Then  
			mon = DateAdd("d", -((Weekday(date) + 7 - 2) Mod 7), date)  
			daystring = Day(mon) & "/" & Month(mon) & "/" & Year(mon) & " 08:00"  
			app.Start = daystring
			app.Save
		End If
Next

Set olkSha = olkCal.GetCalendarExporter

' Hier weitere Infos dazu https://msdn.microsoft.com/de-de/vba/outlook-vba/articles/calendarsharing-saveasical-method-outlook  
With olkSha
    .CalendarDetail = olFullDetails
    .IncludeWholeCalendar = False
    .IncludeAttachments = False
    .IncludePrivateDetails = True
    .RestrictToWorkingHours = False
    .StartDate = Date - DAYS_TO_EXPORT_BEFORE
    .EndDate = Date + DAYS_TO_EXPORT_AHEAD
    .SaveAsICal SAVE_TO_PATH
End With
Set olkSha = Nothing
Set olkCal = Nothing
olkSes.Logoff
Set olkSes = Nothing
Set olkApp = Nothing