Outlook Kontakte exportieren

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Goof.

    Outlook Kontakte exportieren

    Hallo zusammen,

    ich möchte meine Kontakte exportieren. Leider bleibt das Programm an der Stelle hängen => Fehler:

    Quellcode

    1. Dim olAnwendung As Microsoft.Office.Interop.Outlook.Application
    2. Dim olNamespace As Microsoft.Office.Interop.Outlook.NameSpace
    3. Dim olKontaktordner As Microsoft.Office.Interop.Outlook.MAPIFolder
    4. Dim olKontakte As Microsoft.Office.Interop.Outlook.Items
    5. Dim olKontakt As Microsoft.Office.Interop.Outlook.ContactItem
    7. Dim Unterordner As Microsoft.Office.Interop.Outlook.Folders
    8. Dim AnzahlUnterordner As Integer
    9. Dim i As Integer
    11. olAnwendung = New Microsoft.Office.Interop.Outlook.Application
    12. olNamespace = olAnwendung.GetNamespace("MAPI")
    13. olKontaktordner = olNamespace.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderContacts)
    14. olKontakte = olKontaktordner.Items
    16. Debug.Print(olKontaktordner.Name)
    17. ListBox1.Items.Add(olKontaktordner.Name)
    20. For Each olKontakt In olKontakte ' =>>>>>> Fehler
    21. Debug.Print(" " & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address)
    22. ListBox1.Items.Add(" " & ii & " " & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address & " " & olKontakt.BusinessTelephoneNumber)
    23. ii = ii + 1
    24. Next
    26. Unterordner = olKontaktordner.Folders
    27. AnzahlUnterordner = Unterordner.Count
    28. For i = 1 To AnzahlUnterordner
    29. olKontakte = Unterordner.Item(i).Items
    30. Debug.Print(Unterordner.Item(i).Name)
    31. ListBox1.Items.Add(Unterordner.Item(i).Name)
    33. For Each olKontakt In Unterordner.Item(i).Items
    34. Debug.Print(" " & ii & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address)
    35. ListBox1.Items.Add(" " & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address & " " & olKontakt.BusinessTelephoneNumber)
    36. ii = ii + 1
    37. Next
    38. Next


    System.InvalidCastException: "Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "Microsoft.Office.Interop.Outlook.ContactItem" umgewandelt werden.

    An was könnte das liegen?

    So geht es leider auch nicht:

    Quellcode

    1. ' Create Outlook application.
    2. Dim objOutlook As Microsoft.Office.Interop.Outlook.Application = New Microsoft.Office.Interop.Outlook.Application()
    4. ' Get NameSpace and Logon.
    5. Dim objOutlookoNS As Microsoft.Office.Interop.Outlook.NameSpace = objOutlook.GetNamespace("mapi")
    6. objOutlookoNS.Logon("Outlook", Missing.Value, False, True)
    8. Dim outLookContacts As Microsoft.Office.Interop.Outlook.MAPIFolder = objOutlookoNS.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderContacts)
    9. Dim outLookItems As Microsoft.Office.Interop.Outlook.Items = outLookContacts.Items
    10. Dim dtContacts As New DataTable
    11. dtContacts.Columns.Add("Name")
    12. dtContacts.Columns.Add("Email")
    14. Dim drContact As DataRow
    15. 'Dim oCt
    16. For Each oCt As Microsoft.Office.Interop.Outlook.ContactItem In outLookItems
    18. drContact = dtContacts.NewRow
    19. drContact("Name") = oCt.FullName
    20. drContact("Email") = oCt.Email1Address
    21. dtContacts.Rows.Add(drContact)
    22. Next
    23. DataGridView1.DataSource = dtContacts
    24. objOutlookoNS.Logoff()
    25. objOutlookoNS = Nothing
    26. outLookItems = Nothing
    27. objOutlook = Nothing


    Vielen Dank für Eure Hilfe.

    Goog

    Hab auch mal ggogle angeworfen und mir was zusammengestöpselt was bei mir auch etwas bringt (und mir aufzeigt, dass ich veraltete Einträge in meinen Kontakten habe).
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ' Create Outlook application.
    2. Dim objOutlook As Outlook.Application = New Outlook.Application()
    3. ' Get NameSpace and Logon.
    4. Dim objOutlookoNS As Outlook.NameSpace = objOutlook.GetNamespace("mapi")
    5. objOutlookoNS.Logon("Outlook", Reflection.Missing.Value, False, True)
    6. Dim outLookContacts As Outlook.MAPIFolder = objOutlookoNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    7. Dim outLookItems As Outlook.Items = outLookContacts.Items
    8. Dim Recipient As Outlook.Recipient
    9. Dim ExchangeUser As Outlook.ExchangeUser
    10. Dim address As String = String.Empty
    11. For i As Integer = 1 To outLookContacts.Items.Count
    12. Dim contact = DirectCast(outLookItems.Item(i), ContactItem)
    13. address = String.Empty
    14. If contact.Email1AddressType.ToLower() = "ex" Then
    15. Recipient = objOutlookoNS.CreateRecipient(contact.LastNameAndFirstName)
    17. Try
    18. ExchangeUser = Recipient.AddressEntry.GetExchangeUser()
    19. If (ExchangeUser IsNot Nothing) Then
    20. address = ExchangeUser.PrimarySmtpAddress
    21. address = "''" & address & "''"
    22. Else
    23. address = contact.Email1Address
    24. End If
    25. Catch ex As System.Runtime.InteropServices.COMException
    26. address = "The contact information was not found (by Email)."
    27. End Try
    28. Else
    29. address = contact.Email1Address
    30. End If
    31. MessageBox.Show(contact.LastNameAndFirstName & ": " & contact.Email1DisplayName & vbCrLf & address)
    32. Next
    34. objOutlookoNS.Logoff()
    35. objOutlookoNS = Nothing
    36. outLookItems = Nothing
    37. objOutlook = Nothing

    Ich weiß nicht was Du willst, etwas komplett fertiges? Dann bist Du zumindest in diesem Unterforum leider falsch. Der Code funktioniert, es gibt aber noch kleine Verbesserungen, die ich aktuell eingebaut habe.
    Was da nicht steht, aber notwendig ist damit der Code überhaupt lüft ist, sich über NuGet das Microsoft.Office.Interop.Outlook zu installieren und die erforderlichen Verweise zu erzeugen. Das ist aber wirklich kein Problem.
    Der Code selbst funktioniert durchaus, wie gesagt ein paar Prüfunugen auf "IsNot Nothing" helfen den Code zu optimieren.

    Auf der Arbeit habe ich kurzerhand meine Kontakte damit überprüft und durchaus festgestellt, dass ich da eininge von nacharbeiten muss. Ein Miniprojekt aber durchaus hilfreich ^^

    Hallo Goof
    Die Fehlermeldung sagt ja eigentlich schon was das Problem ist. Du hast ein Object in deinen ContactItem.
    Also musst du diese herausfiltern, z.B. indem du in der ForEach-Schlaufe die ContactItem eine Obecjt zuweist und dies auf den Typ ContactItem prüfst.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim olAnwendung As Microsoft.Office.Interop.Outlook.Application
    2. Dim olNamespace As Microsoft.Office.Interop.Outlook.NameSpace
    3. Dim olKontaktordner As Microsoft.Office.Interop.Outlook.MAPIFolder
    4. Dim olKontakte As Microsoft.Office.Interop.Outlook.Items
    5. Dim olKontaktObj As Object
    6. Dim olKontakt As Microsoft.Office.Interop.Outlook.ContactItem
    8. Dim Unterordner As Microsoft.Office.Interop.Outlook.Folders
    9. Dim AnzahlUnterordner As Integer
    10. Dim i As Integer
    11. Dim ii As Integer
    13. olAnwendung = New Microsoft.Office.Interop.Outlook.Application
    14. olNamespace = olAnwendung.GetNamespace("MAPI")
    15. olKontaktordner = olNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    16. olKontakte = olKontaktordner.Items
    18. Debug.Print(olKontaktordner.Name)
    19. ListBox1.Items.Add(olKontaktordner.Name)
    21. For Each olKontaktObj In olKontakte ' =>>>>>> Fehler
    22. olKontakt = TryCast(olKontaktObj, Outlook.ContactItem)
    23. If olKontakt IsNot Nothing Then
    24. olKontakt = CType(olKontaktObj, Outlook.ContactItem)
    26. Debug.Print(" " & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address)
    27. ListBox1.Items.Add(" " & ii & " " & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address & " " & olKontakt.BusinessTelephoneNumber)
    28. ii = ii + 1
    29. End If
    30. Next
    32. Unterordner = olKontaktordner.Folders
    33. AnzahlUnterordner = Unterordner.Count
    34. For i = 1 To AnzahlUnterordner
    35. olKontakte = Unterordner.Item(i).Items
    36. Debug.Print(Unterordner.Item(i).Name)
    37. ListBox1.Items.Add(Unterordner.Item(i).Name)
    39. For Each olKontaktObj In Unterordner.Item(i).Items
    40. olKontakt = TryCast(olKontaktObj, Outlook.ContactItem)
    41. If olKontakt IsNot Nothing Then
    43. Debug.Print(" " & ii & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address)
    44. ListBox1.Items.Add(" " & olKontakt.FirstName & " " & olKontakt.LastName & " " & olKontakt.Email1Address & " " & olKontakt.BusinessTelephoneNumber)
    45. ii = ii + 1
    46. End If
    47. Next
    48. Next

Facebook
Telefonspende