problemmer med oprettelse af aftale i kalender

Hej

Jeg er ved at lave en funktion der kan oprette aftaler i en kalender, men får følgende fejl: "object doesent support this proberty"

Håber der er en venlig sjæl der kan hjælpe mig videre

mvh Flemming

Jeg får fejl i linien:
Set oA = lglCalendar.CreateItem(olAppointmentItem)

her er koden

Private Sub OpretAftale_Click()
Dim oApp As Outlook.Application
Dim oA As Outlook.AppointmentItem
Dim ns, pubFolder, allPubFolders, lglFolder, lglCalendar
   
    On Error GoTo Proc_Err

Set oApp = CreateObject("Outlook.Application")
Set ns = oApp.GetNamespace("MAPI")
Set pubFolder = ns.Folders("Offentlige mapper")
Set allPubFolders = pubFolder.Folders("Alle offentlige mapper")
Set lglFolder = allPubFolders.Folders("falles")
Set lglCalendar = lglFolder.Folders("Annoncekalender-FH")
Set oA = lglCalendar.CreateItem(olAppointmentItem)
    oA.Start = #6/28/2007#
    oA.End = #6/28/2007#
    oA.Subject = "New Appointment"
    oA.Body = "Some Appointment text"
   
    oA.Save
   
   
Proc_Exit:

    On Error Resume Next
       
    Exit Sub

Proc_Err:

    Resume Proc_Exit
End Sub