Oulook Kontakte ohne Leerzeichen importieren

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von schnibli.

    Oulook Kontakte ohne Leerzeichen importieren

    Hallo Zusammen,
    Ich importiere alle meine Outlook Kontakte wie folgt:

    VB.NET-Quellcode

    1. Sub kontakte()
    2. ListBox1.Items.Clear()
    3. Dim p() As Process = Process.GetProcessesByName("Outlook")
    4. If p.Length = 0 Then
    5. Dim ExterneAnwendung As New System.Diagnostics.Process()
    6. ExterneAnwendung.StartInfo.FileName = "outlook.exe"
    7. ExterneAnwendung.Start()
    8. End If
    10. ' Create Outlook application.
    11. Dim oApp As Outlook.Application = New Outlook.Application()
    12. Dim contact As Object
    13. ' Get NameSpace and Logon.
    14. Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
    15. oNS.Logon("Outlook", Missing.Value, False, True)
    16. Dim oContacts As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    17. Dim oItems As Outlook.Items = oContacts.Items
    19. Dim oAppt As Outlook.ContactItem = oContacts.Items.GetNext
    20. Dim contactscounter = oContacts.Items.Count
    21. Dim i As Integer
    23. 'For Each Contact In oItems
    24. For Each Contact1 As Outlook.ContactItem In oItems
    25. If Contact1.FileAs = "" Then
    26. Else
    28. ListBox1.Items.Add(Contact1.FileAs & " ;" & Contact1.BusinessTelephoneNumber & "%" & Contact1.MobileTelephoneNumber & "ç" & Contact1.HomeTelephoneNumber & "*" & Contact1.LastName & "=" & Contact1.FirstName & "]")
    30. End If
    31. Next
    33. ' Log off.
    34. oNS.Logoff()
    36. ' Clean up.
    37. oApp = Nothing
    38. oNS = Nothing
    39. oItems = Nothing
    40. oAppt = Nothing
    42. End Sub


    Nun würde ich gerne bei Contact1.BusinessTelephoneNumber, Contact1.MobileTelephoneNumber und Contact1.HomeTelephoneNumber alle Leerzeichen löschen.
    Ich hab es schon so probiert:
    Contact1.MobileTelephoneNumber.replace (" ", "")
    Jedoch kommt der Fehler:
    System.NullReferenceException: "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."

    kann mir jemand helfen?

    Das Problem ist wenn im Kontakt z.B. keine MobileTelephoneNumber hinterlegt ist, bekommt man Nothing zurück.
    Und mit Nothing geht kein Replace, da muss man zuerst einen String.Empty zuweisen.

    Zum Testen auf Nothing, kannst du vor VS2015 die String.IsNullOrEmpty(String)-Method verwenden, danach gibt es die NULL-bedingten Operatoren (Safe Navigation Operator).