Clever-Excel-Forum

hallo guten Morgen,
ich habe in meinem Outlook 2019 mehr als 20 Kontaktgruppen. Ich bin daran interessiert, wie man alle Verteiler automatisch ( über Schleifen ?) in eine Excel-Datei exportieren kann.
Idealerweise finde ich dann den Namen der 1. Kontaktgruppe und anschliessend die Namen mit jeweiliger email-adresse dann den Namen der 2. Kontaktgruppe und anschliessend darunter auch alle Adressen u.s.w.

Besten Dank, viele Gruesse an das Forum

Hallöchen,

mal als ein erster Ansatz ein Code von irgendwo Smile

zum Auslesen der Kontakte von Excel aus. Die Einträge werden erst mal nur im Direktfenster ausgegeben.

Code:
Option Explicit

Const olFolderContacts = 10

Sub Contacts()

   Dim appOutlook As Object

   Dim objItem As Object

   Dim varProperty As Variant

   Set appOutlook = CreateObject("Outlook.Application")

   With appOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

      For Each objItem In .Items

         If TypeName(objItem) = "ContactItem" Then

            For Each varProperty In Array("CustomerID", "FirstName", "LastName")

               Debug.Print varProperty, CallByName(objItem, varProperty, VbGet)

            Next

         End If

      Next

   End With

   Set appOutlook = Nothing

End Sub

Vielen Dank, ich werde versuchen, dies umzusetzen. Und melde mich noch einmal, wenn ich darf. ich werde das Entwicklertool nutzen. VG

Hallöchen,

wenn Du auf andere Kontaktordner zugreifen willst, dann eventuell so

With appOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
With .Parent.Folders("Meine Kontakte")

und dann unten natürlich noch ein End With. Ich kann das allerdings mangels mehrerer Kontaktordner nicht auf die Schnelle testen und dann kommt es auch etwas auf die Struktur innerhalb Deines Postfachs / Deiner Postfächer an.

Fahrrad1

schauan

Fahrrad1

schauan