Mit Excel-Makro auf MS-Outlookt-Kontaktdaten zugreifen.

  • Excel

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von -manne-.

    Mit Excel-Makro auf MS-Outlookt-Kontaktdaten zugreifen.

    Hallo zusammen,

    ich habe folgendes Problem. Ich möchte in den Kopf eines vorgefertigten Formulars (Excel-Tabelle) mittels Makro eine Adresse einfügen.
    Dafür soll es einen Button geben "Adresse aus Outlook-Kontakten importieren" oder so ähnlich.

    Kann mir jemand sagen wie ich mit VB auf in Outlook geführte Kontakte zugreifen kann?



    Gruß
    Manfred

    Visual Basic-Quellcode

    1. Public Function outlookhomeadresse(strName As String)
    2. Dim objOutlook As Outlook.Application
    3. Dim objContacts As Object
    4. Dim objContact As Outlook.ContactItem
    6. Set objOutlook = Outlook.Application
    8. Set objContacts = GetItems(objOutlook.GetNamespace("MAPI"), olFolderContacts)
    10. For Each objContact In objContacts
    11. With objContact
    12. If .Class = olContact Then
    13. If CStr(objContact) = strName Then
    14. outlookhomeadresse = .HomeAddress
    15. End If
    16. End If
    17. End With
    18. Next
    20. Set objContact = Nothing
    21. Set objContacts = Nothing
    22. Set objOutlook = Nothing
    23. End Function
    24. Private Function GetItems(olNS As Outlook.Namespace, folder As OlDefaultFolders) As Outlook.Items
    25. Set GetItems = olNS.GetDefaultFolder(folder).Items
    26. End Function

    Wow - vielen Dank!
    Der Code übersteigt allerdings mein können. Da muss ich mich erstmal mit der F1 Taste durchkämpfen, und dann in ein paar Tagen darf ich hoffentlich nochmal auf dich zukommen. ;)

    Vieleicht kannst du mir aber erstmal sagen wie ich den Fehler: "Fehler beim Kompilieren: Benuzerdefinierter Typ nicht definiert" in folgender Zeile:

    Quellcode

    1. Private Function GetItems(olNS As Outlook.Namespace, folder As OlDefaultFolders) As Outlook.Items

    wegbekomme.

    Danke
    Manfred

    Vielen Dank - es klappt - wunderbar

    Danke,
    es ist mit gelungen deinen Code so abzuändern das er für meine Awendung funktioniert.
    Die Nachbearbeitung/Auswertung der Variable Kontakt findet in einem andern Makros statt.

    Ich weiß zwar nicht was da genau passiert (vorallem welche aufgabe die "private Funktion" hat), aber es funktioniert.

    Visual Basic-Quellcode

    1. Global Kontakt(1 To 1000, 1 To 10) As String
    2. Global Kontakte_Anz As Integer
    4. Public Function OutlookHomeAdresse()
    6. Dim objOutlook As Outlook.Application
    7. Dim objContacts As Object
    8. Dim objContact As Outlook.ContactItem
    10. Set objOutlook = Outlook.Application
    11. Set objContacts = GetItems(objOutlook.GetNamespace("MAPI"), olFolderContacts)
    13. i = 0
    14. For Each objContact In objContacts
    15. i = i + 1
    16. Kontakt(i, 1) = objContact.FirstName
    17. Kontakt(i, 2) = objContact.LastName
    18. Kontakt(i, 3) = objContact.BusinessAddressStreet
    19. Kontakt(i, 4) = objContact.BusinessAddressCountry
    20. Kontakt(i, 5) = objContact.BusinessAddressPostalCode
    21. Kontakt(i, 6) = objContact.BusinessAddressCity
    22. Kontakt(i, 7) = objContact.OtherAddressStreet
    23. Kontakt(i, 8) = objContact.OtherAddressCountry
    24. Kontakt(i, 9) = objContact.OtherAddressPostalCode
    25. Kontakt(i, 10) = objContact.OtherAddressCity
    26. Next
    27. Kontakte_Anz = i
    28. Set objContact = Nothing
    29. Set objContacts = Nothing
    30. Set objOutlook = Nothing
    31. End Function
    33. Private Function GetItems(olNS As Outlook.Namespace, folder As OlDefaultFolders) As Outlook.Items
    35. Set GetItems = olNS.GetDefaultFolder(folder).Items
    36. End Function

    Gruß
    Manfred

    Eigentlich war das so gedacht, dass du die Funktion mit =outlookhomeadresse(Argument) in den Formeln deine Adressen im Arbeitsblatt nachschlagen kannst. Wenn du schlicht nen Auszug aus deinem Kontaktordner haben willst, dann exportiere doch schlicht die Liste mit Outlook selbst.. Aus dem gleichen Grund solltest die function zur sub machen, wenn du bei deiner Lösung bleibst.

    ja danke, aber ich bleib bei der lösung. in einer andern Funktion werden die kontaktdaten dan vorselektiert und in einer UserForm zur anzeige gebracht. dort werden dann noch such u. sortierfunktionen zur verfügung stehen.
    Hat der User dann seinen gewünschten kontakt ausgewählt werden die entsprechenden Kontktdaten in die Excel-tabelle übernommen.

Facebook
Telefonspende