Hent data fra delte kalendere på Exchange server?

Jeg skal særligt bruge fra/til tid/dato.

Ved ikke om det kan have relevans for dig, men følgende kodestump havde jeg gemt en fil der hedder '...\Outlook\Calendar\Readitems.txt'

Dim myOLApp As Outlook.Application
    Dim myNamespace As NameSpace
    Dim myApptItem As AppointmentItem
    Dim myRecurrPatt As RecurrencePattern
    Dim myFolder As MAPIFolder
    Dim myItems As Items
    Dim myOccApptItem As AppointmentItem
    Dim myDate As Date
    Set myOLApp = New Outlook.Application
    Set myNamespace = myOLApp.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar)
    Set myItems = myFolder.Items
    Set myApptItem = myItems("My Birthday")
    'June 11
    myDate = #6/11/2003 9:30:00 AM#
    Set myRecurrPatt = myApptItem.GetRecurrencePattern
    Set myOccApptItem = myRecurrPatt.GetOccurrence(myDate)
    myOccApptItem.Display
    MsgBox ("The end time: " & myOccApptItem.End)
    MsgBox ("The start time: " & myOccApptItem.Start)
    MsgBox ("The subject: " & myOccApptItem.Subject)
       
    'Clear out your memory
    myOLApp.Quit
    Set myOccApptItem = Nothing
    Set myRecurrPatt = Nothing
    Set myApptItem = Nothing
    Set myItems = Nothing
    Set myFolder = Nothing
    Set myNamespace = Nothing
    Set myOLApp = Nothing

Jeg skal bruge delte kalendere, ikke min egen kalender.

Kopierer bare data fra excel over i et regneark.
Lukket