benutzerdefinierte Outlookfelder in Excel importieren

  • Outlook

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    benutzerdefinierte Outlookfelder in Excel importieren

    Hallo allerseits,
    ich habe folgendes Problem.
    Ich möchte mittels Excel VBA meine Outlook Kontakte in excel importieren.
    Soweit mit folgendem Beispielcode kein Problem.

    Visual Basic-Quellcode

    1. Sub TEST_Read_Contact_from_Outlook()
    2. 'by Ramses
    3. 'Liest alle Kontakte aus Outlook in das aktuelle Tabellenblatt
    4. Dim myOlk As Object
    5. Dim myOlkContact As Object
    6. Set myOlk = CreateObject("outlook.application")
    7. Set myOlkContact = myOlk.CreateItem(2)
    8. 'ALTERCODE: Set myOlkContact = myOlk.CreateItem(olContactItem)
    9. Range("A2").Select
    10. For Each myOlkContact In myOlk.GetNamespace("MAPI").GetDefaultFolder(10).Items
    11. 'ALTERCODE: For Each myOlkContact In myOlk.GetNamespace("MAPI").GetDefaultFolder( _
    12. olFolderContacts).Items
    13. If TypeName(myOlkContact) = "ContactItem" Then
    14. With myOlkContact
    15. ActiveCell.Value = .Title ' Anrede
    16. ActiveCell.Offset(0, 1).Value = .FirstName ' Vorname
    17. ActiveCell.Offset(0, 2).Value = .MiddleName ' WeitereVornamen
    18. ActiveCell.Offset(0, 3).Value = .LastName ' Nachname
    19. ActiveCell.Offset(0, 4).Value = .Suffix ' Suffix
    20. ActiveCell.Offset(0, 5).Value = .Companies ' Firma
    21. ActiveCell.Offset(0, 6).Value = .Department ' Abteilung
    22. ActiveCell.Offset(0, 7).Value = .JobTitle ' Position
    23. ActiveCell.Offset(0, 8).Value = .BusinessAddressStreet ' Straßegeschäftlich
    24. 'ActiveCell.Offset(0, 9).Value = .Business2AddressStreet ' Straßegeschäftlich2
    25. 'ActiveCell.Offset(0, 10).Value = .Business3AddressStreet ' Straßegeschäftlich3
    26. ActiveCell.Offset(0, 11).Value = .BusinessAddressCity ' Ortgeschäftlich
    27. ActiveCell.Offset(0, 12).Value = .BusinessAddressState ' Regiongeschäftlich
    28. ActiveCell.Offset(0, 13).Value = .BusinessAddressPostalCode ' Postleitzahlgeschäftlich
    29. ActiveCell.Offset(0, 14).Value = .BusinessAddressCountry ' LandRegiongeschäftlich
    30. ActiveCell.Offset(0, 15).Value = .HomeAddressStreet ' Straßeprivat
    31. 'ActiveCell.Offset(0, 16).Value = .Home2AddressStreet ' Straßeprivat2
    32. 'ActiveCell.Offset(0, 17).Value = .Home3AddressStreet ' Straßeprivat3
    33. ActiveCell.Offset(0, 18).Value = .HomeAddressCity ' Ortprivat
    34. ActiveCell.Offset(0, 19).Value = .HomeAddressState ' BundeslandKantonprivat
    35. ActiveCell.Offset(0, 20).Value = .HomeAddressPostalCode ' Postleitzahlprivat
    36. ActiveCell.Offset(0, 21).Value = .HomeAddressCountry ' LandRegionprivat
    37. ActiveCell.Offset(0, 22).Value = .OtherAddressStreet ' WeitereStraße
    38. 'ActiveCell.Offset(0, 23).Value = .Other2AddressStreet ' WeitereStraße2
    39. 'ActiveCell.Offset(0, 24).Value = .Other3AddressStreet ' WeitereStraße3
    40. ActiveCell.Offset(0, 25).Value = .OtherAddressCity ' WeitererOrt
    41. ActiveCell.Offset(0, 26).Value = .OtherAddressState ' WeiteresrBundeslandKanton
    42. ActiveCell.Offset(0, 27).Value = .OtherAddressPostalCode ' WeiterePostleitzahl
    43. ActiveCell.Offset(0, 28).Value = .OtherAddressCountry ' WeitereseLandRegion
    44. ActiveCell.Offset(0, 29).Value = .AssistantTelephoneNumber ' TelefonAssistent
    45. ActiveCell.Offset(0, 30).Value = .BusinessFaxNumber ' Faxgeschäftlich
    46. ActiveCell.Offset(0, 31).Value = .BusinessTelephoneNumber ' Telefongeschäftlich
    47. ActiveCell.Offset(0, 32).Value = .Business2TelephoneNumber ' Telefongeschäftlich2
    48. ActiveCell.Offset(0, 33).Value = .CallbackTelephoneNumber ' Rückmeldung
    49. ActiveCell.Offset(0, 34).Value = .CarTelephoneNumber ' Autotelefon
    50. ActiveCell.Offset(0, 35).Value = .CompanyMainTelephoneNumber ' TelefonFirma
    51. ActiveCell.Offset(0, 36).Value = .HomeFaxNumber ' Faxprivat
    52. ActiveCell.Offset(0, 37).Value = .HomeTelephoneNumber ' Telefonprivat
    53. ActiveCell.Offset(0, 38).Value = .Home2TelephoneNumber ' Telefonprivat2
    54. ActiveCell.Offset(0, 39).Value = .ISDNNumber ' ISDN
    55. ActiveCell.Offset(0, 40).Value = .MobileTelephoneNumber ' Mobiltelefon
    56. ActiveCell.Offset(0, 41).Value = .OtherFaxNumber ' WeiteresFax
    57. ActiveCell.Offset(0, 42).Value = .OtherTelephoneNumber ' WeiteresTelefon
    58. ActiveCell.Offset(0, 43).Value = .PagerNumber ' Pager
    59. ActiveCell.Offset(0, 44).Value = .PrimaryTelephoneNumber ' Haupttelefon
    60. 'ActiveCell.Offset(0, 45).Value = .Mobile2TelephoneNumber ' Mobiltelefon2
    61. 'ActiveCell.Offset(0, 46).Value = 'KEINE Objektmodell bekannt ' TelefonfürHörbehinderte
    62. ActiveCell.Offset(0, 47).Value = .TelexNumber ' Telex
    63. ActiveCell.Offset(0, 48).Value = .BillingInformation ' Abrechnungsinformation
    64. ActiveCell.Offset(0, 49).Value = .User1 ' Benutzer1
    65. ActiveCell.Offset(0, 50).Value = .User2 ' Benutzer2
    66. ActiveCell.Offset(0, 51).Value = .User3 ' Benutzer3
    67. ActiveCell.Offset(0, 52).Value = .User4 ' Benutzer4
    68. ActiveCell.Offset(0, 53).Value = .Profession ' Beruf
    69. ActiveCell.Offset(0, 54).Value = .OfficeLocation ' Büro
    70. ActiveCell.Offset(0, 55).Value = .Email1Address ' EMailAdresse
    71. ActiveCell.Offset(0, 56).Value = .Email1AddressType ' EMailTyp
    72. ActiveCell.Offset(0, 57).Value = .Email1DisplayName ' EMailAngezeigterName
    73. ActiveCell.Offset(0, 58).Value = .Email2Address ' EMail2Adresse
    74. ActiveCell.Offset(0, 59).Value = .Email2AddressType ' EMail2Typ
    75. ActiveCell.Offset(0, 60).Value = .Email2DisplayName ' EMail2AngezeigterName
    76. ActiveCell.Offset(0, 61).Value = .Email3Address ' EMail3Adresse
    77. ActiveCell.Offset(0, 62).Value = .Email3AddressType ' EMail3Typ
    78. ActiveCell.Offset(0, 63).Value = .Email3DisplayName ' EMail3AngezeigterName
    79. ActiveCell.Offset(0, 64).Value = .ReferredBy ' Empfohlenvon
    80. ActiveCell.Offset(0, 65).Value = .Birthday ' Geburtstag
    81. ActiveCell.Offset(0, 66).Value = .Gender ' Geschlecht
    82. ActiveCell.Offset(0, 67).Value = .Hobby ' Hobby
    83. ActiveCell.Offset(0, 68).Value = .Initials ' Initialen
    84. ActiveCell.Offset(0, 69).Value = .InternetFreeBusyAddress ' InternetFreiGebucht
    85. ActiveCell.Offset(0, 70).Value = .Anniversary ' Jahrestag
    86. ActiveCell.Offset(0, 71).Value = .Categories ' Kategorien
    87. ActiveCell.Offset(0, 72).Value = .Children ' Kinder
    88. ActiveCell.Offset(0, 73).Value = .Account ' Konto
    89. ActiveCell.Offset(0, 74).Value = .AssistantName ' NameAssistent
    90. ActiveCell.Offset(0, 75).Value = .ManagerName ' NamedesderVorgesetzten
    91. ActiveCell.Offset(0, 76).Value = .body ' Notizen
    92. ActiveCell.Offset(0, 77).Value = .OrganizationalIDNumber ' Organisationsnr
    93. 'ActiveCell.Offset(0, 78).Value = .Location ' Ort
    94. ActiveCell.Offset(0, 79).Value = .Spouse ' Partner
    95. ActiveCell.Offset(0, 80).Value = .BusinessAddressPostOfficeBox ' Postfachgeschäftlich
    96. ActiveCell.Offset(0, 81).Value = .HomeAddressPostOfficeBox ' Postfachprivat
    97. ActiveCell.Offset(0, 82).Value = .Importance ' Priorität
    98. ActiveCell.Offset(0, 83).Value = .Sensitivity ' Privat
    99. ActiveCell.Offset(0, 84).Value = .GovernmentIDNumber ' Regierungsnr
    100. ActiveCell.Offset(0, 85).Value = .Mileage ' Reisekilometer
    101. ActiveCell.Offset(0, 86).Value = .Language ' Sprache
    102. 'ActiveCell.Offset(0, 87).Value = 'KEINE Objektmodell bekannt ' Stichwörter
    103. ActiveCell.Offset(0, 88).Value = .Sensitivity ' Vertraulichkeit
    104. 'ActiveCell.Offset(0, 89).Value = 'KEINE Objektmodell bekannt ' Verzeichnisserver
    105. ActiveCell.Offset(0, 90).Value = .WebPage ' Webseite
    106. ActiveCell.Offset(0, 91).Value = .OtherAddressPostOfficeBox ' WeiteresPostfach
    107. End With
    108. End If
    109. ActiveCell.Offset(1, 0).Select
    110. Next
    111. Set myOlkContact = Nothing
    112. Set myOlk = Nothing
    113. End Sub

    Ich bekomme die Syntax leider nicht zusammen, um eigen erstellte Benutzerdefinierte Outlookfelder anzusprechen.

    Kann mir evtl jemand weiterhelfen?

    Vielen Dank im Voraus.

    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende