Email Empfang-Problem

  • VB.NET

    Email Empfang-Problem

    Hey Leute,

    Ich habe einen Mailclient geschrieben. Senden funktioniert, auch mit einem Anhang. Empfangen nur so halb :wacko: .

    Ich habe folgende 2 Fragen:
    1. Wie kann ich den Anhang einer E-Mail runterladen?

    2. Ich kann mich pro Minute nur einmal anmelden. Gibt es eine möglichkeit, dass ich meinen Username und Passwort schicke und danach den gesamten Posteingang oder mehrere Mails runterladen kann und nicht nur eine?

    (gmx adr., POP3)

    danke schon mal im vorhinein :)


    Mein Code:

    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. Dim server As String = "pop.gmx.net"
    8. Dim user As String = "*******@gmx.at"
    9. Dim password As String = "*******"
    10. Dim StrUSER, StrPASS, StrSTAT, StrRETR, StrQUIT As String
    11. 　
    13. Private Function sendCommand(ByVal send As String) As String
    14. send += vbCrLf
    15. Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
    16. stream.Write(data, 0, data.Length)
    17. sr = New StreamReader(stream)
    18. Dim buffer As New StringBuilder
    19. Do While sr.Peek() > 0
    20. Thread.Sleep(500)
    21. buffer.Append(sr.ReadLine + vbCrLf)
    22. Loop
    23. Return buffer.ToString
    24. End Function
    26. Sub sendCommandQuit(ByVal send As String)
    27. send += vbCrLf
    28. Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
    29. stream.Write(data, 0, data.Length)
    30. sr = New StreamReader(stream)
    31. Try
    32. StrQUIT = sr.ReadToEnd
    33. CatchMessageBox.Show("Bitte versuchen Sie es in 1 Minute neu.")
    34. Me.Close()
    35. End Try
    36. End Sub
    38. Sub getandsavemail()Dim client As New TcpClient(server, 110)
    39. stream = client.GetStream()
    40. sr = New StreamReader(stream)
    41. StrUSER = sendCommand("USER " + user)
    42. StrPASS = sendCommand("PASS " + password)
    43. StrSTAT = sendCommand("STAT")
    44. StrRETR = sendCommand("RETR 1")
    45. sendCommandQuit("QUIT")
    46. write(StrQUIT)
    47. End Sub

    write schreibt einfach nur den body in ein txt.
    Ich weiß ist noch nicht Optimal aber ich wills mal fertig machen, bevor ichs schneller mach :P

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Thomas95“ () aus folgendem Grund: Code ist irgendwie komisch formatiert worden o.O

Facebook
Telefonspende