Dim server As String = "pop.test.de"
Dim user As String = "test"
Dim password As String = "test123"
Dim client As New TcpClient(server, 110)
stream = client.GetStream()
sr = New StreamReader(stream)
txtResponse.Text += sendCommand("?")
txtResponse.Text += sendCommand("USER " + user)
txtResponse.Text += sendCommand("PASS " + password)
txtResponse.Text += sendCommand("STAT" + vbCrLf)
txtResponse.Text += sendCommand("RETR 1" + vbCrLf) 'hole erstes Mail
txtResponse.Text += sendCommand("QUIT" + vbCrLf)
End Sub
Private Function sendCommand(ByVal send As String) As String
send += vbCrLf
Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
stream.Write(data, 0, data.Length)
sr = New StreamReader(stream)
Dim buffer As New StringBuilder
Do While sr.Peek() > 0
Thread.Sleep(100)
buffer.Append(sr.ReadLine + vbCrLf)
Loop
Return buffer.ToString
End Function