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).
Can someone please provide some guidance or direction on how start a meeting invite using shared calendar?
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