Über Skript auf Öffentlichen Kalender in Outlook zugreifen (Standard Kalender geht bereits)

On Error Resume Next
Dim objCal, objOL, objMail 
Set objOL = GetObject(, "Outlook.Application")
If Err.Number <> 0 then 
  Set objOL = CreateObject("Outlook.Application") 
End if 
Set objCal = objOL.GetNamespace("MAPI").GetDefaultFolder(9).GetCalendarExporter    'Standardkalender Exporter holen 
If Weekday(Date) = 6 Then					'Freitags soll der Kalender vom Montag verschickt werden
	With objCal 
		.CalendarDetail = 2    				'FullDetails
		.StartDate = Date + 3
		.EndDate = Date + 3 				'Wir wollen immer nur einen Tag versenden
		Set objMail = .ForwardAsICal(1)    	'Als Ereignisliste darstellen 
		objMail.To = "team@email.de"
		objMail.Subject = "Termine am " & WeekdayName(Weekday(.StartDate)) & ", " & .StartDate 
		objMail.Send
	End With
Else										'An allen anderen Wochentagen soll der Kalender des nächsten Tages verschickt werden
	With objCal
		.CalendarDetail = 2    				'FullDetails
		.StartDate = Date + 1
		.EndDate = Date + 1 				'Wir wollen immer nur einen Tag versenden
		Set objMail = .ForwardAsICal(1)    	'Als Ereignisliste darstellen 
		objMail.To = "team@email.de"
		objMail.Subject = "Termine am " & WeekdayName(Weekday(.StartDate)) & ", " & .StartDate 
		objMail.Send
	End With
End If
Set objCal = Nothing
Set objMail = Nothing 
Set objOL = Nothing