Creating appointment in shared calander

[ErnstJan]

Hi,

I'am trying to make a programma that can put appointments in a shared calander without requesting approvel. I have found how to get to the shared calander but somehow can't put in the appointment.
here is the code i have made:

Dim AppOutlook As Outlook.Application
Dim OutNamespace As Outlook.NameSpace
Dim MyItem As Object

Set AppOutlook = New Outlook.Application
Set OutNamespace = AppOutlook.GetNamespace("MAPI&quot
Set MyRecipient = OutNamespace.CreateRecipient("Hans van Assen&quot
MyRecipient.Resolve
Set HVA = OutNamespace.GetSharedDefaultFolder(MyRecipient, olFolderCalendar)

set MyItem = ?????????

MyItem.MeetingStatus = olMeeting
MyItem.Subject = "Test"
MyItem.Location = "Ergens"
MyItem.Start = #4/5/2003 2:00:00 PM#
MyItem.Duration = 120
MyItem.Save

At the question mark is my missing bit.

Please does someone no what i must put in.

Hope you can understand what i want.

Greetings
Ernst Jan