Los moderadores, MVP y administradores podrán seguir editando, respondiendo o creando nuevos mensajes

Tengo un problema al intentar realizar la siguiente intruccion:



Dim Para As String = CType(message.Headers.To, String)

Intento pasar la direccion de correo PARA a una cadena o a una variable string y me da el error siguiente:

Un valor de tipo 'System.Collections.Generic.List(Of OpenPop.Mime.Header.RfcMailAddress)' no se puede convertir en 'String'.
Os agradecería muchisimo que me ayudaraís.
La parte de codigo donde da error es la siguiente:

Dim


pop3Client As Pop3Client

pop3Client =

New Pop3Client

Dim Host As String = "Host"

Dim Clave As String = "Clave"

'pop3Client.Connect("pop.gmail.com", "995", True)

pop3Client.Connect(

"Host", "110", False)

pop3Client.Authenticate(Usuario, Clave)


Dim count As Integer = pop3Client.GetMessageCount

Dim counter As Integer = 0

Dim i As Integer = count

Do While (i >= 1)

Dim message As Message = pop3Client.GetMessage(i)

Dim Fila As New TableRow

Dim LNumeroEnvio As New TableCell

LNumeroEnvio.Text = 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 = message.Headers.DateSent

Fila.Cells.Add(LFechaEnvios)

Grid.Rows.Add(Fila)


Dim IdUsuario As Integer

Dim NumEnvio As Integer

LblErrorMS.Visible =

False

Dim Bounceds As New CControlCorreos

Dim p1 As New CControlCorreos

Dim ColCorreos As List(Of CControlCorreos)

Dim VTipo As Object

'Sacamos del Asunto del Mensaje el cliente y el Numero de Envio

Dim Para As String = CType(message.Headers.To, String) Aquí es dónde da error.


No tengo mucha experiencia en .NET

Saludos
[Editado: MiguelVB, 12/09/2011 08:30:13]

no se ke versión tienes pero en VB2008 es lo siguiente:

Imports System.Net.Mail

Public Class Form1

    Private Sub Form1
        _Load(ByVal sender As System.Object, ByVal e As
         System.EventArgs) Handles MyBase.Load
        Dim eMilio As New MailMessage
        ' eMilio = al mensage correspondiente
        Dim Para As String = eMilio.To.ToString
        Label1.Text = Para
    End Sub
End Class

Noris
[Editado: Noris_Sulheru, 17/09/2011 09:23:31]