Referencing a Shared Calendar

[bloodmilksky]

Hi Guys,

I was just wondering if anyone knows how to reference a shared calendar location in the below code.

the location i am trying to reference is "\UK Public Folders\Customer Services\UK Customer Services Calendar"

Sub CreateOutlookAppointment()

Dim strCategory As String, strTopic As String, strLocation As String, strStartdate As String, strStarttime As String
Dim strEnddate As String, strEndtime As String, strDuration As String, bolWholeday As Boolean, bolReminder As Boolean, lngReminderMinutes As Long
Dim bolPlaysound As Boolean, strParticipants As String, bolRespondNecessary As Boolean, strNote As String




Dim strCategory As String, strTopic As String, strLocation As String, strStartdate As String, strStarttime As String
Dim strEnddate As String, strEndtime As String, strDuration As String, bolWholeday As Boolean, bolReminder As Boolean, lngReminderMinutes As Long
Dim bolPlaysound As Boolean, strParticipants As String, bolRespondNecessary As Boolean, strNote As String


Dim olApp As Object
Dim objCal As Object
Dim olCal As Object


Set olApp = CreateObject("Outlook.Application")
Set objCal = olApp.Session.GetDefaultFolder(9)
Set olCal = objCal.Items.Add(1)

many thanks

Jamie