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