Visual Basic.NET - Cliente de Correo con TcpClient, SmtpClient, networkStream y Sockets

   
Vista:
Imágen de perfil de Marco Antonio

Cliente de Correo con TcpClient, SmtpClient, networkStream y Sockets

Publicado por Marco Antonio (1 intervención) el 04/06/2015 21:51:52
Hola, estoy desarrollando un cliente de correo pero no quiero utilizar ninguna referencia a dlls externas así que desarrolle un envió de correo con SmtpClient y funciona ok, pero cuando quiero leer los correo del buzón no logro hacerlo y al hacer el segundo networkStream.Write me ocurre un error "no se peden leer los datos de la conexion de transporte: se ha anulado una conexion establecida por el software en si equipo host"
El correo que deseo rescatar es de GMail por eso el puerto 995.

El código es el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Function RecibirCorreo()
        Dim hostName As String = "Tu Host de Correo"
        Dim userName As String = "Username"
        Dim userPassword As String = "Password"
 
        Dim tcpClient As New Net.Sockets.TcpClient
        Dim messageNumber As String = "1"
        Dim returnMessage As String
        Dim sTemp As String
 
        Try
            tcpClient.Connect(hostName, 995)
            Dim networkStream As Net.Sockets.NetworkStream = tcpClient.GetStream()
            Dim bytes(tcpClient.ReceiveBufferSize) As Byte
            Dim sendBytes As Byte()
 
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            sendBytes = Encoding.ASCII.GetBytes("USER" + userName + vbCrLf)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            sTemp = networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            sendBytes = System.Text.Encoding.ASCII.GetBytes("PASS" + userPassword + vbCrLf)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            sTemp = networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            sendBytes = System.Text.Encoding.ASCII.GetBytes("STAT" + vbCrLf)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            sTemp = networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            sendBytes = System.Text.Encoding.ASCII.GetBytes("RETR" + messageNumber + vbCrLf)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            System.Threading.Thread.Sleep(500)
            networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
            returnMessage = Encoding.ASCII.GetString(bytes)
 
            MsgBox(returnMessage.ToString)
 
            sendBytes = Encoding.ASCII.GetBytes("QUIT" + vbCrLf)
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            tcpClient.Close()
            Return True
        Catch ex As Exception
            MsgBox(Err.Description & " - No se puede recibir correo o el buzon de entrada esta vacio")
            Return False
        End Try
End Function

Algún súper entendido que me de una mano?

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder