Добавить встречи в общий календарь группы

Question

Как импортировать встречу в общий групповой календарь?

Я нашел этот код VBA, который добавляет встречу в мой календарь по умолчанию.

Sub appointment_new()
  With CreateObject("Outlook.Application").CreateItem(1)
    .Subject = "Annual Meeting"
    .Start = DateValue("01-01-2019") + TimeValue("12:30")
    .Duration = 45
    .Location = "Vergaderzaal C"
    .Save
  End With
End Sub

Как я могу импортировать эту встречу вмой общий групповой календарь с именем "test".

Свойства моего общего группового календаря