Hallo
Gibt es ein OLEDB Provider für Exchange?
Ich möchte gerne mit VB auf ein Exchange Adressbuch zugreiffen.
Oder weiss sonst jemand wie man auf Adressbücher von Exchange zugreiffen kann?
Bin über jeden Hinweis froh!
danke Giuseppe
Zugriff über CDO.DLL / Beispiel in VB
Oder weiss sonst jemand wie man auf
Adressbücher von Exchange zugreiffen
kann?
Hi Giuseppe,
das geht mit der „Microsoft CDO Library“ (CDO.DLL). In der stecken Methoden und Properties mit der Du dann „zugreifen“ kannst:
'-------------------------------------------
Call objMAPISession.Logon
Set objAddressList = objMAPISession.GetAddressList(CdoAddressListGAL)
Set objAddressEntries = objAddressList.AddressEntries 'Einträge vom Globalen Adreßbuch
Set objAddressEntry = objAddressEntries.Item(strName) 'sucht passenden Eintrag
'-------------------------------------------
greets from MichL (Vienna)
Ja CDO kenn ich ein wenig. Mir ist aber
nicht bekannt, dass ich nach Items suchen
kann. Ich möchte naemlich so eine suchfunktion machen, welche z.b. alle Adressen auflistet die ein „F“ im Namen enthalten.
Mit CDO muss ich aber jedes Item durchgehen
und auf „F“ überprüfen… das geht mir zu
lange.
Kennst Du vielleicht eine Lösung?
Danke
GIuseppe
Die „AddressEntries“ Collection hat ein Property „Filter“
http://msdn.microsoft.com/library/psdk/cdo/oleobjaf_…
welcher man ein „AddressEntryFilter“ Object
http://msdn.microsoft.com/library/psdk/cdo/oleobjaf_…
übergibt.
greets from MichL (Vienna)
Das könnte die Lösung sein!
Danke 
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke, hat alles sehr gut geklappt.
Weisst Du zufälligerweise noch wie ich auf
meine (nicht öffentlichen) Kontakten zugreiffen kann? Irgendwie ging das mit
CDO nicht.
gruss, Giuseppe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
z.B.: GetDefaultFolder
Das geht zum Beispiel mit
„GetDefaultFolder()“ Method vom Session Object.
http://msdn.microsoft.com/library/psdk/cdo/oleobjis_…
Zweite Möglichkeit bietet das Outlook selber. Die „Microsoft Outlook 8.0 Library“ über die „Verweise“ hinzufügen und dann so ansprechen:
'-----------------------------------
Set objOutlookApp = New Outlook.Application
Set objOutlookNameSpace = objOutlookApp.GetNamespace(„MAPI“)
Call objOutlookNameSpace.Logon(Profile, Password, ShowDialog, NewSession)
Set objFolder = objOutlookNameSpace.GetDefaultFolder(intFolderType)
'------------------------------------
Happy Weekend from MichL (Vienna)