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
    9. ' Create Outlook application.
    10. Dim oApp As Outlook.Application = New Outlook.Application()
    11. Dim contact As Object
    12. ' Get NameSpace and Logon.
    13. Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
    14. oNS.Logon("Outlook", Missing.Value, False, True)
    15. Dim oContacts As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    16. Dim oItems As Outlook.Items = oContacts.Items
    17. Dim oAppt As Outlook.ContactItem = oContacts.Items.GetNext
    18. Dim contactscounter = oContacts.Items.Count
    19. Dim i As Integer
    20. 'For Each Contact In oItems
    21. For Each Contact1 As Outlook.ContactItem In oItems
    22. If Contact1.FileAs = "" Then
    23. Else
    24. ListBox1.Items.Add(Contact1.FileAs & " ;" & Contact1.BusinessTelephoneNumber & "%" & Contact1.MobileTelephoneNumber & "ç" & Contact1.HomeTelephoneNumber & "*" & Contact1.LastName & "=" & Contact1.FirstName & "]")
    25. End If
    26. Next
    27. ' Log off.
    28. oNS.Logoff()
    29. ' Clean up.
    30. oApp = Nothing
    31. oNS = Nothing
    32. oItems = Nothing
    33. oAppt = Nothing
    34. 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).