|
Hallo ich habe folgendes Problem:
Ich kann mit diesem Code meinen eigenen Kalender in Outlook 2016 auslesen -> Meine Kalender --> Calendar
Ich würde nun gerne fremde Kalender auch auslesen können, in meinem Fall den ServiceDesk Kalender
um so immer per Scriptausführung auf dem neuesten Stand zu sein. (Siehe Anhang)
https://abload.de/img/1ykkfb.jpg
Ich schätze mal ich müsste daher in
Set myfol = ons.GetDefaultFolder(9)
etwas ändern. Leider habe ich durch langes googlen nichts gefunden.
Ich würde mich über einen Tip sehr freuen da ich noch relativ neu in VBA bin.
Beste Grüße
Sven
Sub outlook_calendaritemsexport()
Dim o As Object, R as Long
Set o = CreateObject("Outlook.Application")
Dim ons As Object
Set ons = o.GetNamespace("MAPI")
Dim myfol As Object
Set myfol = ons.GetDefaultFolder(9)
Dim myapt as Object
Range("A:D1").Value = Array("SUBJECT", "FROM", "TILLWHAT", "LOCATION")
R = 2
For Each myapt In my myfol.Items
Cells(R, 1) = myapt.Subject
Cells(R, 2) = myapt.Start
Cells(R, 3) = myapt.End
Cells(R, 4) = myapt.Location
R = R + 1
Next
Set o = Nothing
Set ons = Nothing
Set myfol = Nothing
Set myapt = Nothing
|