How to create outlook meeting invite with shared calendar?

I have a vbscript that launches a meeting invite with some emails using the default calendar. Now I need to update the script to launch a meeting invite using shared calendar (SharedCalendar).

Code:

---

Sub btnClose_OnClick
                Window.Close
        End Sub
       
        Sub CreateICS(ToList)
       
                Dim objOL  'As Outlook.Application
                Dim objAppt 'As Outlook.AppointmentItem
               
                Const olAppointmentItem = 1
                Const olMeeting = 1
               
                Set objOL = CreateObject("Outlook.Application")
                Set objAppt = objOL.CreateItem(olAppointmentItem)
                                       
                With objAppt
                        .Subject = ""
                        .Body = ""
                       
                        .Start = Now
                        .End = DateAdd("h", 1, .Start)
                         
                        ' make it a meeting request
                        .MeetingStatus = olMeeting
                        .RequiredAttendees = ToList
                        .OptionalAttendees = ""
                       
                        '.Send
                        .Display()
                End With
       
                Set objAppt = Nothing
                Set objOL = Nothing

        End Sub

---

Can someone please provide some guidance or direction on how start a meeting invite using shared calendar?

Quote:

---

Originally Posted by emyk

I have a vbscript that launches a meeting invite with some emails using the default calendar. Now I need to update the script to launch a meeting invite using shared calendar (SharedCalendar).

Code:

---

Sub btnClose_OnClick
                Window.Close
        End Sub
       
        Sub CreateICS(ToList)
       
                Dim objOL  'As Outlook.Application
                Dim objAppt 'As Outlook.AppointmentItem
               
                Const olAppointmentItem = 1
                Const olMeeting = 1
               
                Set objOL = CreateObject("Outlook.Application")
                Set objAppt = objOL.CreateItem(olAppointmentItem)
                                       
                With objAppt
                        .Subject = ""
                        .Body = ""
                       
                        .Start = Now
                        .End = DateAdd("h", 1, .Start)
                         
                        ' make it a meeting request
                        .MeetingStatus = olMeeting
                        .RequiredAttendees = ToList
                        .OptionalAttendees = ""
                       
                        '.Send
                        .Display()
                End With
       
                Set objAppt = Nothing
                Set objOL = Nothing

        End Sub

---

Can someone please provide some guidance or direction on how start a meeting invite using shared calendar?

---

Correction: it is not a shared calendar list, there are two Calendar lists under the outlook My Calendar lists. The script currently open the meeting invite with the first Calendar (default), but I need to open the meeting invite on the second Calendar.