Jag behöver access till alla användares kalendrar i en exchange server 5.5.

Jag kommer skriva koden i VB 6.

Jag har klurat ur hur jag kommer åt min egen kalender:

<code>
Dim objSession As Session
Dim objCalendarFolder As MAPI.Folder
Dim objAppointments As MAPI.Messages
Dim objAppointment As MAPI.AppointmentItem
Dim objAppointmentItem As MAPI.AppointmentItem
Dim i As Integer

Set objSession = New MAPI.Session

objSession.Logon "", "", False, True, 0, True, "Servernamn" & vbLf & "Användare"

objSession.SetOption "TimeZone", 3

Set objCalendarFolder = objSession.GetDefaultFolder(CdoDefaultFolderCalendar)

Set objAppointments = objCalendarFolder.Messages

For Each objAppointmentItem In objAppointments
Set objAppointment = objAppointmentItem
' Göra saker med objAppointment-objektet
Next
</code>

Det jag vill är att kunna logga in med ett serviceaccount och sedan heltenkelt välja vilken användare jag vill titta på.

Men hur???

Jättetacksam för svar!

Andreas

ingen... please...