Supportnet / Forum / Datenbanken

Hallo alle zusammen, kennt vielleicht einer eine Möglichkeit Adress Daten aus dem Outlook Kontakte Ordner in Access zu nutzen. Dabei sollte diese Import Tabelle sich von selbst Aktuallisieren. Würde mich über eine Antwort freuen Gruß Holgman

Hallo
Das habe ich gefunden, aber nicht probiert:


Option Compare Database
Sub readoutlookN()
Dim olApp As Object
Dim objNameSpace As NameSpace
Dim objKontaktOrdner As MAPIFolder
Dim objKontakt As ContactItem
Dim objNachricht As MailItem
Set olApp = CreateObject("Outlook.Application")
Set objNameSpace = olApp.GetNamespace("MAPI")
Set objKontaktOrdner = objNameSpace.GetDefaultFolder(olFolderContacts)
For Each objKontakt In objKontaktOrdner.Items
MsgBox objKontakt.LastName & ", " & _
objKontakt.FirstName & ", " & _
objKontakt.HomeTelephoneNumber
Next
End Sub

Gruß struppi

• Excel Daten in Access Tabelle importieren
• Daten in Excel importieren (aus Access)