Verknüpfung mit Outlook 2016

[capsly]

Guten Tag, folgendes möchte ich erzeugen: Aus Outlook 2016 das gesammte Adressbuch übernehmen. (Ziel wäre in Access mehr Sortierfunktionen einzubauen wie z.B. Alter, Beitrittsdatum, Sprache, besuchte Kurse, bezahlte Kurse, etc etc ..). Soweit so gut. Alle Kontakte konnte ich schon automatisch übernehmen. Doch hab ich im Adressbuch nicht nur "der Kontakt" alleine sondern auch "Kontaktgruppen"; z. B; Vorstand, Kanton Tessin etc etc ... , mit spezifischen Kontakten zu diesen Kontaktgruppen gefüllt. Diese "Kontaktgruppen" kann ich nicht übernehmen.
Vielleicht kann mir jemand mit Tipps zur Seite stehen. Im Voraus besten Dank. Grüsse aus der CH - Harry

[PhilS]

Doch hab ich im Adressbuch nicht nur "der Kontakt" alleine sondern auch "Kontaktgruppen"; z. B; Vorstand, Kanton Tessin etc etc ... , mit spezifischen Kontakten zu diesen Kontaktgruppen gefüllt. Diese "Kontaktgruppen" kann ich nicht übernehmen.

Das in deiner Frage mehrfach verwendete Wort "übernehmen" ist etwas ungenau.

Hier ein Beispiel, wie man die Kontaktgruppen mit Outlook-Automation auslesen kann. Application im Code ist das Outlook.Application-Object, das musst du ggfls. an deinen Code anpassen.

Code [Auswählen] Erweitern

Public Sub PrintContactLists()

    Dim distListItems As Outlook.Items
    Dim distList As Outlook.DistListItem
    Dim members As String
    Dim i As Long
   
    Set distListItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items.Restrict("[MessageClass]='IPM.DistList'")
    For Each distList In distListItems
        Debug.Print "Name: " & distList.DLName
        Debug.Print "Anzahl Miglieder: " & distList.MemberCount
        For i = 1 To distList.MemberCount
            members = members & distList.GetMember(i).Name & ", "
        Next
        Debug.Print "Miglieder:" & members
        members = ""
    Next distList
   
    Set distList = Nothing
    Set distListItems = Nothing

End Sub