VBscript outlook form creating meeting in specific calendar

Question

I\'ve been working on this the past few days. My VBscript code works and will create a meeting in the default calendar in Outlook. The part I can\'t seem to figure out is how to

Answer 1

Items are added to non-default calendars.

Sub Add_To_NonDefault_Folder()

    Dim objNameSpace As NameSpace
    Dim objCalendar As Folder
    Dim objHoliday As AppointmentItem

    Set objNameSpace = GetNamespace("MAPI")
    Set objCalendar = objNameSpace.GetDefaultFolder(olFolderCalendar).Folders("Test")

    Set objApptItems = objCalendar.items
    Set objHoliday = objCalendar.items.Add(olAppointmentItem)

    objHoliday.Subject = "Appt test"
    objHoliday.SAVE

End Sub