VBA Excel Exchange Postfach

[ari-2001]

Hallo,

ich habe ein Makro, dass mir meine Termine in den Kalender von Outlook einträgt.

Mit der Variablen:

Set objCal = ObjOL.Session.GetDefaultFolder(9)


Ich habe noch einen freigegebenen Ordner ("Alle Mitarbeiter"), wie bekomme ich etwas in den Kalender eingetragen?
Es handelt sich um ein "[email=MaxMustermann@FirmaGoldgelb]MaxMustermann@FirmaGoldgelb[/email]" Postfach.

Ich vermute, dass ich irgendwie mit GetSharedFolder arbeiten müsste, komme aber nicht auf die Lösung.

Kann mir jemand einen Tipp geben?

Viele Grüße
Andreas

[Mase]

Code:

    '*** skizziere wie folgt:
    Dim oModule        As Object             'das Modul referenzieren
    Dim olNavGrps      As NavigationGroups   'dessen Auflistung
    Dim olNavGrp       As NavigationGroup    'dessen Items -> bspw der Kalender
   
    '*** der Weg dahin
    Set oModule = Application.ActiveExplorer.NavigationPane.Modules("Kalender")
    Set olNavGrps = oModule.NavigationGroups
    Set olNavGrp = olNavGrps("Alle Mitarbeiter")

[ari-2001]

Vielen Dank,

habe es mit deiner Hilfe hinbekommen!

Viele Grüße
Andreas