ACC 2013 Outlook.com Kalender VBA zugriff

Question

Hallo

ich möchte über ACC auf den Outlook.com (online Kalender Microsoft) Kalender zugreifen

eingebunden habe ich diesen in Outlook nur der zugriff über VBA ist mir nicht klar

Zugriff auf meinen Internen Outlook Kalender erfolgt so (und geht auch)

Set oMAPIFolder = oNameSpace.GetDefaultFolder(olFolderCalendar)

aber wie komme ich auf einen anderen Kalender - oder kann mir die vorhandenen Kalender auflisten lassen

zugriff probiert habe ich

Kalender heißen

Kalender (nur dieser Computer)

Kalender

zweiteres ist der Outlook.com Kalender

Danke

Michael

Answer 1

Hallo Michael,

das sollte über die Folderliste der Session machbar sein.

Die Folderliste ist hierarchisch  aufgebaut in der ersten Ebene werden die Ordner aufgelistet (z.B. Persönlicher Ordner), in der zweiten Ebene die Items (Elemente innerhalb des Ordners) so sieht das bei einem Ordner aus:

 

Deinen Kalender würdest Du also mit folgenden Zeile auswählen:

Dim Kalender As MAPIFolder
Dim Ordner As MAPIFolder
Dim OrdnerListe As Folders

    Set OrdnerListe = Application.Session.Folders
    
    Set Ordner = OrdnerListe.item("Persönliche Ordner")
    Set Kalender = Ordner.Folders.item("Kalender")

Wobei Du natürlich in dem Beispiel Deine Ordnernamen anpassen musst.

Grüße

Roland

Answer 2

Danke erst einmal - nur komme ich damit nicht so richtig weiter

Outlook 2013 zeigt ja die Kalender nicht in der Ordnerstruktur an.

bei mir

Normale@emailadresse

   Posteingang
   GesenendeteElemente
   ......

[e-mail]

   Posteingang
   GesenendeteElemente
   ......

Unten in Outlook

EMAIL KALENDER PERSONEN AUFGABEN ...

somit sehe ich nicht wirklich die ordnerstrucktur

Wie könnte ich alle vorhandenen Ordner und unterordner mit VBA auflisten lassen?

Answer 3

Die Hierarchie kannst Du Dir mit folgendem Code auflisten:

Dim item As MAPIFolder
Dim item2 As MAPIFolder
Dim Ordner As MAPIFolder
Dim OrdnerListe As Folders

    Set OrdnerListe = Application.Session.Folders
    For Each item In OrdnerListe
        Debug.Print "Erste Ebene " + item.Name
        For Each item2 In item.Folders
            Debug.Print "   Zweite Ebene " + item2.Name
        Next Kalender
    Next item

Answer 4

DANKE - super so komme ich weiter

konnte mit den Infos die richtigen Kalender aus Access heraus ansprechen und füllen