将约会添加到组共享日历

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”的共享组日历中。

我的共享组日历的属性