将约会添加到日历时键入不匹配

Question

I'm starting in on a project that requires me to add appointments to a shared calendar. I've never used the Outlook object model before, but I've managed to get the procedure down for adding to my default calendar via the following sub:

Option Explicit

Sub caltest()

Dim O As Outlook.Application
Set O = New Outlook.Application

Dim ONS As Outlook.Namespace
Set ONS = O.GetNamespace("MAPI")

Dim myCalendar As Outlook.Folder
Set myCalendar = ONS.GetDefaultFolder(olFolderCalendar)

Dim myapt As Outlook.AppointmentItem
Set myapt = myCalendar.Items.Add([AppointmentItem])

With myapt
    .Start = DateValue("4/2/2018") + TimeValue("11:30:00")
    .End = DateValue("4/2/2018") + TimeValue("12:00:00")
    .Location = "nowhere"
    .Subject = "test"
    .Body = "something important"
    .Save
End With

End Sub

However, if I try another calendar, I suddenly get a Type Mismatch error. I'm sure it's just a gap in my understanding of the Folder object itself.

Option Explicit

Sub caltest()

Dim O As Outlook.Application
Set O = New Outlook.Application

Dim ONS As Outlook.Namespace
Set ONS = O.GetNamespace("MAPI")

Dim myCalendar As Outlook.Folder
Set myCalendar = ONS.Folders("videoconferencing@example.org")  'changed this line

Dim myapt As Outlook.AppointmentItem
Set myapt = myCalendar.Items.Add([AppointmentItem])  'line throws type mismatch

With myapt
    .Start = DateValue("4/2/2018") + TimeValue("11:30:00")
    .End = DateValue("4/2/2018") + TimeValue("12:00:00")
    .Location = "nowhere"
    .Subject = "test"
    .Body = "something important"
    .Save
End With

End Sub

What about that Set myapt line is incorrect?

PS I'm self-taught so feel free to correct me on bad syntax or other bits & bobs.

Answer 1

I changed

Set myCalendar = ONS.Folders("videoconferencing@example.org")

to

Set myCalendar = ONS.Folders("videoconferencing@example.org").Folders("Calendar") .

Wish I would have tried that before posting!

Answer 2

I am not sure what AppointmentItem is on the following line.

Set myapt = myCalendar.Items.Add([AppointmentItem])

Did you mean olAppointmentItem ( = 1)?

Set myapt = myCalendar.Items.Add(olAppointmentItem)