Dim objOutlook As New Outlook.Application
        Dim ns As Outlook.NameSpace = objOutlook.Session
        Dim folder As Outlook.MAPIFolder = ns.GetDefaultFolder( _
          Outlook.OlDefaultFolders.olFolderContacts)
 
        For Each kontakt As Outlook.ContactItem In folder.Items
            ListBox1.Items.Add(kontakt.CompanyAndFullName)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist