Verbindung mit pop3 herstellen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Renate_Eilhoff.

    Verbindung mit pop3 herstellen

    Hallo ich habe mal eine Frage an euch:

    Ich möchte mit meinem VB Programm eine Verbindung mit pop3 herstellen.
    Ich habe habe user, pw und servername. wie kann ich eine Verbindung aufbauen.
    Ich habe auch schon ein paar Links dazu gefunden, doch ich werde einfach nicht schlau daraus:(
    Kann mir da jemand weiterhelfen?
    Wäre super:) danke

    Zum Link mit der POP3 Klasse:

    Beispielaufruf:

    Dim pop As New POP3.Client
    pop.Connect("pop.test.de", "xyz", "test0815")

    'Liste der auf dem Server vorhanden Nachrichten abrufen
    pop.GetMessageList()
    Dim MessageList As New List(Of POP3.Client.MessageList)
    ' gibt eine List mit ID und Groesse der Mails zurück
    MessageList = pop.GetMessageList()

    ' Hier wird z.B. die Mail mit ID Nr. 1 abgerufen
    Dim m() As String = pop.GetMessage(1).Split(vbCrLf)
    For i As Integer = 0 To m.Length - 1
    debug.print(m(i))
    Next
    pop.Disconnect()

    Kann ja also so schwer nicht sein ...

    Okay also ich versuche jetzt es jetzt nochmal ganz genau zu beschreiben ;)

    Also ich möchte, dass sobald ich das Programm starte eine Verbindung zum Pop3-Server hergestellt wird.
    Damit das klappt, muss der Server wissen, wer angemeldet ist bzw. angemeldet sein soll, oder verstehe ich das falsch?
    Meine Frage war nun, wo in meinem Quelltext ich angeben muss, wer sich anmeldet, sprich wo muss ich meinen festen Usernamen, Servernamen und mein PW eintippen, damit die Verbindung aufgebaut werden kann?
    Oder woran kann die Verbindung zum Pop3-Server noch scheitern, außer am User- + Servernamen und PW?

    Danke,

    Gruß

    Hallo ich kann so eine verbindung zu pop3 herstellen.



    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
    9. Public Class Form1
    10. Inherits System.Windows.Forms.Form
    11. Public stream As NetworkStream
    12. Public sr As StreamReader
    14. Private Sub cmdPOPen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPOPen.Click
    15. Dim server As String = "pop.test.de"
    16. Dim user As String = "test"
    17. Dim password As String = "test123"
    18. Dim client As New TcpClient(server, 110)
    19. stream = client.GetStream()
    20. sr = New StreamReader(stream)
    21. txtResponse.Text += sendCommand("?")
    22. txtResponse.Text += sendCommand("USER " + user)
    23. txtResponse.Text += sendCommand("PASS " + password)
    24. txtResponse.Text += sendCommand("STAT" + vbCrLf)
    25. txtResponse.Text += sendCommand("RETR 1" + vbCrLf) 'hole erstes Mail
    26. txtResponse.Text += sendCommand("QUIT" + vbCrLf)
    27. End Sub
    28. Private Function sendCommand(ByVal send As String) As String
    29. send += vbCrLf
    30. Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
    31. stream.Write(data, 0, data.Length)
    32. sr = New StreamReader(stream)
    33. Dim buffer As New StringBuilder
    34. Do While sr.Peek() > 0
    35. Thread.Sleep(100)
    36. buffer.Append(sr.ReadLine + vbCrLf)
    37. Loop
    38. Return buffer.ToString
    39. End Function
    41. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    43. End Sub
    44. End Class


    wie kann ich, wenn eine email einen Anhang hat. diesen in einen bestimmten Ordner speichern?

Facebook
Telefonspende