Quantcast
Channel: Error al leer correos
Viewing all articles
Browse latest Browse all 9

Error al leer correos

0
0

Buenos días,

Tengo un desarrollo que lee el Pop3 de un correo para recoger los correos recibidos y tratarlos. Comienza a realizar la operación de lectura y tratamiento de los mismos correctamente hasta que me da el error que os adjunto a continuación y después os adjunto al parte del código.

Os agradecería vuestra ayuda y recibir un poco de luz en el asunto, pues ya he estado investigando por internet pero como esto es la primera vez que lo hago, ando un poco pez.

Sin más y en espera de noticias vuestras al respecto, recibid un cordial saludo.

Miguel VB

   Dim RespuestaMens As MessagePart
        Dim RespuestaMensaje As String
        Dim count As Integer = pop3Client.GetMessageCount
        Dim counter As Integer = 0
        Dim i As Integer = count
        Dim IdUsuario As Integer = 0
        Dim NumEnvio As Integer = 0
        Do While (i >= 1)
            Dim message As Message = pop3Client.GetMessage(i)

            Dim Fila As New TableRow

            Dim LNumeroEnvio As New TableCell
            LNumeroEnvio.Text = CStr(i)
            Fila.Cells.Add(LNumeroEnvio)

            Dim LAsunto As New TableCell
            LAsunto.Text = message.Headers.Subject
            Fila.Cells.Add(LAsunto)

            Dim Enviadopor As New TableCell
            Enviadopor.Text = message.Headers.From.Address
            Fila.Cells.Add(Enviadopor)

            Dim LFechaEnvios As New TableCell
            LFechaEnvios.Text = CStr(message.Headers.DateSent)
            Fila.Cells.Add(LFechaEnvios)
            Grid.Rows.Add(Fila)

            LblErrorMS.Visible = False
            If Not message.MessagePart.MessageParts(0) Is Nothing Then
                RespuestaMens = message.MessagePart.MessageParts(0)
                If Not RespuestaMens.Body Is Nothing Then
                    RespuestaMensaje = RespuestaMens.BodyEncoding.GetString(RespuestaMens.Body)
                Else
                    RespuestaMensaje = ""
                End If
            End If


Viewing all articles
Browse latest Browse all 9

Latest Images

Trending Articles





Latest Images