collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 42
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13994
  • stats Beiträge insgesamt: 66727
  • stats Themen insgesamt: 8995
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Verknüpfung mit Outlook 2016  (Gelesen 276 mal)

Offline capsly

  • Newbie
  • Beiträge: 1
Verknüpfung mit Outlook 2016
« am: März 30, 2018, 17:45:06 »
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
 

Offline PhilS

  • Administrator
  • Access-Profi
  • *****
  • Beiträge: 346
    • Tipps zu Access, VBA, SQL und Co.
Re: Verknüpfung mit Outlook 2016
« Antwort #1 am: April 01, 2018, 14:16:16 »
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.
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
Neues Access 2019 Feature angekündigt: Modern Charts
 
Folgende Mitglieder bedankten sich: capsly