Office: Kalendereintrag in einen freigegebenen Kalender über Excel nach Outlook

Hallo ihr,

ich habe folgendes Problem:
Ich möchte aus einem Exceldokument einen Kalendereintrag in einen freigegebenen Kalender in Outlook genieren. Ich habe soweit alles fertig, allerdings werden die Einträge nur einem Kalender und nicht in den freigegebenen anderen Kalender eingetragen.

Set OutApp = CreateObject("Outlook.Application")
Set myNameSpace = OutApp.GetNamespace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Chef")
myRecipient.Resolve 'Berechtigung prüfen

If myRecipient.Resolved Then

Set Kalender = myNameSpace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
Kalender.Display
End If

Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " 09:00"

Wie ihr seht, habe ich auch schon den Kalender geöffnet. Alelrdings schreibt er dennoch noch in meinen Kalender.

Wie kann ich nun den Eintrag in den freigegebenen Kalender plazieren ?

Vielen Dank

:)

 

Moin, lightwave,

warum hast Du Kalender angezeigt, wenn Du das Objekt dann nicht nutzt? *wink.gif*

 

Moin,

die Frage die ich mir stelle ist. Wie erstelle ich jetzt mit Kalender eine neue Instanz eines Eintrages ähnlich wie ich es ja schon bei mir lokal mit
Set apptOutApp = OutApp.CreateItem(1) tue. Kalender hat scheinbar kein CreateItem

Gruß
lightwave

 

Ahh,

durch ein simples Set apptOutApp = Kalender.Items.Add

Da muss ich Tomaten auf den Augen gehabt haben

 

Hallo,

ich habe das selbe Problem. Ein Eintrag in andere geöffnete Kalender funktioniert auch. Nun verwaltet unsere Information aber mehrere persönliche Kalender. Wie kann ich in Excel jedesmal individuell auswählen, welcher freigegebene Kalender genutzt werden soll?