Kalenderauslesen
14.11.2018 08:55:15
Steffen
Ich bin aktuell dabei ein Marco aufzubauen, das mir alle Termine eines bestimmten Postfaches mit bestimmten Kategorien anzeigt.
Also Postfach soll "Sammelpostfach" heißen - und falls den Code jemand ausführt, der kein Zugriff auf "Sammelpostfach" hat, soll das eigene Standardpostfach verwendet werden.
Die Kategorien nach denen gesucht werden soll, lauten "Garten", "Haus" und "Gastronomie". Serienelemente sollen täglich angezeigt werden.
Leider komm ich gerade nicht weiter. Ich bekomm nicht sicher das "Sammelpostfach" ausgewählt und die Serienelemente werden leider auch nicht dargestellt.
Private Sub CheckOlCalendarAccess()
Dim olNameSpace As Object
Dim olApp As Object
Dim olFolder As Object
Dim olItems As Object
Dim olItem As Object
Dim dteStart As Date
Dim dteEnd As Date
Set olApp = CreateObject("Outlook.Application")
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olFolder = olNameSpace.GetDefaultFolder(9)
i = 1
dteStart = VBA.Format(Now, "Short Date")
dteEnd = DateAdd("d", 2, dteStart)
Set olItems = olFolder.items
Set olItem = olItems.Find("[Start]>""" & dteStart & """ AND [End]Kann mir jemand auf die Sprünge helfen?
VG Steffen