Accessing a specific calander when calling outlook.application

[joshnya]

I first touched VBscript 4 days ago and so far so good except for one issue I am having.

I have written a scheduling form for Outlook that takes 4 names and then sends out about 20 meeting invites. The problem I am having is directing the program to schedule the meetings on a public calendar and sending the invites to the various attendees from that calendar and not my own calendar.

I have figured out how to do it in VBA but the solution in VBscript has eluded me.

This is a code snippet of one of the objects I am creating. I need this to send from a public calendar and not my personal calander when it is run.

Dim StartTime As ValueType
Dim EndTime As ValueType
StartTime = DateTimePicker1.Value
EndTime = DateTimePicker1.Value.AddHours(9)
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1
objOL = CreateObject("Outlook.Application")
objAppt = objOL.CreateItem(olAppointmentItem)
'Dim Counter As Integer
'Counter = 0
'Do While Counter < 5
'This is the appointment for the first task
With objAppt
.Subject = ((Label1.Text) & "(" & (TextBox1.Text) & ")")
.start = StartTime
.End = EndTime
'MsgBox(EndTime)
' make it a meeting request
.MeetingStatus = olMeeting
.RequiredAttendees = TextBox1.Text
.Send()
End With

Any help or suggestions would be very welcome. Thanks!