Hej, jag är intresserade av att läsa de kontakter som finns i Exchange och är "globala"/gäller hela företaget. Att läsa den inloggade användarens kontakter är inget problem, men hur kommer jag åt företagets?

Har ingen direkt erfarenhet av det, men du använder Exchange SDK eller?

Nej, behövs det?

Har kommit en bit på väg... Jag hittar Contacts foldern, men hur kommer jag åt kontakterna.

Private Function GetContactsFromExchange()
' Dim oArr As ArrayList
Dim oSession As MAPI.Session = New MAPI.Session
oSession.Logon(, , True, True, 0, True, )
Dim oStores As MAPI.InfoStores = CType(oSession.InfoStores, MAPI.InfoStores)
Dim oStore As MAPI.InfoStore
oStore = oStores.Item("Public Folders")

'/ Get All Public Folders
Dim oFolder As MAPI.Folder = oSession.GetFolder("", "")
Dim oFolders As MAPI.Folders = oFolder.Folders

Dim oFD As MAPI.Folder = oFolders.Item("MyCompany Contacs")
'vad göra nu?

oSession.Logoff()

End Function