nach Pop3 Verbindung Email spechern

  • VB.NET

    nach Pop3 Verbindung Email spechern

    Hallo,
    Also ich habe in meiner Form einen Button und ein Textfeld.
    Soviel zur Maske.
    Beim Button klick stelle ich eine Pop3 Verbindung her.
    Der User und das Password wird übergeben und den Server habe ich ebenfalls angeben.
    Diese funktioniert auch und in meinem Textfeld sehe ich dann, dass ich eine Anzahl von Emails in meinem Postfach habe.
    Jetzt zu meiner Frage:
    Ich möchte jetzt diese Emails die ich im Postfach habe abspeichern(download).
    Doch ich weiß nicht wie ich diese Emails anspreche?
    danke für die mithilfe.



    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Net
    3. Imports System.Net.Sockets
    4. Imports System.Text
    5. Imports System.io
    6. Imports System.Threading
    7. Public Class Form1
    8. Inherits System.Windows.Forms.Form
    9. Public stream As NetworkStream
    10. Public sr As StreamReader
    11. Private Sub cmdPOPen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPOPen.Click
    12. Dim server As String = "pop.xmart.de"
    13. Dim user As String = "test111"
    14. Dim password As String = "xmart123"
    15. Dim client As New TcpClient(server, 110)
    16. stream = client.GetStream()
    17. sr = New StreamReader(stream)
    18. txtResponse.Text += sendCommand("?")
    19. txtResponse.Text += sendCommand("USER " + user)
    20. txtResponse.Text += sendCommand("PASS " + password)
    21. txtResponse.Text += sendCommand("STAT" + vbCrLf)
    22. txtResponse.Text += sendCommand("RETR 1" + vbCrLf) 'hole erstes Mail
    23. txtResponse.Text += sendCommand("QUIT" + vbCrLf)
    24. End Sub
    25. Private Function sendCommand(ByVal send As String) As String
    26. send += vbCrLf
    27. Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
    28. stream.Write(data, 0, data.Length)
    29. sr = New StreamReader(stream)
    30. Dim buffer As New StringBuilder
    31. Do While sr.Peek() > 0
    32. Thread.Sleep(100)
    33. buffer.Append(sr.ReadLine + vbCrLf)
    34. Loop
    35. Return buffer.ToString
    36. End Function
    37. End Class