title image


Smiley Re: Aus Access Kontakte aus Outlook abfragen!
Das geht per VBA und OLE, etwa so:Public Function OutlookContacts()' On Error GoTo Er Dim myOlApp As Object, Tmp, I As Long, j As Long, cItm As ContactItem, myNameSpace As Object Dim myFolder As Object, UProp As Outlook.UserProperty Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) ' Durch alle Kontakte gehen For I = 1 To myFolder.Items.Count Set cItm = myFolder.Items.Item(I) With cItm Debug.Print .LastName, .FirstName, .FullName, .ReferredBy End With Next IReinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: