Openpop3 Hilfe

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von rotherford.

    Openpop3 Hilfe

    Hallo,

    ich habe da ein Problem/Frage. Unzwar komme ich bei meinem Script nicht weiter.
    Ich möchte meine E-Mails via Openpop3 runterladen und in einer Listview ausgeben.
    Klappt eigendlich wunderbar. Nur weiß ich nicht wie ich den Body auslesen kann, sprich die eigendliche Nachricht.

    Bisheriger Versuch:

    VB.NET-Quellcode

    1. Dim pop3 As New Pop3Client
    2. Dim Benutzer As String() = Split(ComboBox3.Text, "@")
    3. pop3.Connect("0.0.0.0", "000", False)
    4. pop3.Authenticate(Benutzer(0), "xxxxxx")
    6. ListView12.Items.Clear()
    8. Dim messagecount As Integer = pop3.GetMessageCount()
    10. For i As Integer = messagecount To 1 Step -1
    12. Dim message1 = pop3.GetMessage(i)
    13. Dim subject = message1.Headers.Subject
    14. Dim from = message1.Headers.From
    15. Dim Datum = message1.Headers.Date
    17. 'Ansätze
    18. Dim messagepart = message1.FindFirstPlainTextVersion()
    19. Dim nachricht As String
    20. messagepart.Save(New FileInfo("plainText.txt"))
    21. Dim attachments = message1.FindAllAttachments
    23. For Each attachment In attachments
    24. Dim fileExtension = Path.GetExtension(attachment.FileName)
    25. Dim fileName = Path.GetFileNameWithoutExtension(attachment.FileName)
    26. With ListView13
    27. .Items.Add(fileName.ToString)
    28. With .Items(.Items.Count - 1).SubItems
    29. .Add(fileExtension)
    30. End With
    31. End With
    32. Next
    33. With ListView12
    34. .Items.Add(from.MailAddress.ToString)
    35. With .Items(.Items.Count - 1).SubItems
    36. .Add(subject.ToString)
    37. .Add(nachricht)
    38. .Add(Datum.ToString)
    39. End With
    40. End With
    41. Next
    42. pop3.Disconnect()
    Hochachtungsvoll
    MindFreak

    VB.NET-Quellcode

    1. Dim xml = message1.FindFirstMessagePartWithMediaType("text/xml")
    2. Dim Nachricht As String
    3. If Not xml.MessageParts.Count = 0 Then
    4. Nachricht = xml.GetBodyAsText
    6. End If



    Bekomme folgenden Fehler:

    Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    Ehrlich gesagt verstehe ich nicht wie ich den dortigen Code in VB übersetzen soll..
    Hochachtungsvoll
    MindFreak

Facebook
Telefonspende