Termin via VBA in Öffentlichen Ordner erstellen

Hallo Zusammen,

ich würde gerne via VBA einen Termin in einem Öffentlichen Ordner anlegen.

Dieser Ordner liegt unter:
[I]Öffentliche Ordner - [email]abc@xyz.de[/email]\Alle Öffentlichen Ordner\Gemeinsame Kalender\Testkalender[/I]

Funktionieren tut bis jetz nur ein Eintrag in meinem eigenen Kalender (aktuell Auskommentiert)

Bei mir scheitert es ab der roten Zeile...
Was mache ich den Falsch?

Hier der Code:
[CODE]Sub Terminerstellen()
MsgBox ("start") 'Anzeige über start des programmes

Dim OutApp As Outlook.Application
Dim apptOutApp As AppointmentItem


Set OutApp = CreateObject("Outlook.Application")

' Termin in eigenem Kalender erstellen
'Set apptOutApp = OutApp.CreateItem(olAppointmentItem)

[COLOR="Red"]Set apptOutApp = OutApp.GetNamespace("MAPI").Folders("Öffentliche Ordner - abc@xyz.de").Folders("Alle Öffentlichen Ordner").Folders("Gemeinsame Kalender").Items("Testkalender").CreateItem(olAppointmentItem)[/COLOR]


With apptOutApp
.Subject = "Testmeeting v1.1"
.Start = "20.10.2014 18:00"
.Duration = "10"
.Save
End With

Set OutApp = Nothing
Set apptOutApp = Nothing
MsgBox ("ende") 'Anzeige über ende des programmes
End Sub[/CODE]

Wie muss dieser Befehl lauten um ein Objekt zu definieren, welches für einen Öffentlichen ein Termin erstellt...

Hier nochmals die Ordnerstruktur in Outlook:
[IMG]http://pic.it-switch.de/images/oeffentlic.png[/IMG]

Vielen Dank für eure Hilfe.

Gruß,
Marco

Set apptOutApp = OutApp.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Gemeinsame Kalender").Folders("Testkalender").Items.Add(olAppointmentItem)