I sent this message out Friday and have received no replies.

I am looking to send a meeting request to a public calendar through vb code. The code I have sends the request to a specified address and then saves meeting request on default (the sender's personal calendar). The problem I have is that I want the meeting request to be saved to a public Outlook calendar instead of the default.

Here is the code I am currently using:

'----Encapsulated Code Sends Meeting Request----
Dim MyOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem

Set MyItem = MyOlApp.CreateItem(olAppointmentItem)
MyItem.MeetingStatus = olMeeting
MyItem.Subject = cboDeal.Text
MyItem.Body = MyDate & " " & cboTZone.Text & vbCr & _
mebPhone.Text & vbCr & _
txtAccess.Text & vbCr & vbCr & _
txtDetail.Text
MyItem.start = MyDate
MyItem.Duration = 30
Set MyRequiredAttendee = MyItem.Recipients.Add(AnalystEMail)
MyRequiredAttendee.Type = olRequired
MyItem.Send

Set MyItem = Nothing
Set MyOlApp = Nothing
'-----------------------------------------------