Enviar Correo en VB.net para WinCE 6.1

[Escorpion_Negro]

Hola amigos.

Me encuentro desarrollando aplicación en vb.net 2008 para WinCE en ella necesito enviar unos correos. Desarrolle algo parece sido pero en una aplicación de escritorio VB 2010. Esta se ejecuta se ejecuta correctamente. Pero para el dispositivo movil con WinCE tengo problemas.

Imports System.Net.Mail

Private Function envioCorreoElectronico(ByVal strCuentasDeCorreo As String) As Boolean
Dim blnEnvioExitoso As Boolean = False
Dim arrCadenaConexion() As Object = Nothing

arrCadenaConexion = leerConfiguracionCorreo.Split(";")


Dim Message As New System.Net.Mail.MailMessage()
Dim SMTP As New System.Net.Mail.SmtpClient
SMTP.Credentials = New System.Net.NetworkCredential(arrCadenaConexion(2). ToString, arrCadenaConexion(3).ToString)

SMTP.Host = arrCadenaConexion(0).ToString
SMTP.Port = arrCadenaConexion(1).ToString
SMTP.EnableSsl = False
Message.To.Add(strCuentasDeCorreo)
Message.From = New System.Net.Mail.MailAddress(arrCadenaConexion(2).T oString, arrCadenaConexion(4).ToString, System.Text.Encoding.UTF8)
Message.Subject = "Codigo de Trazabilidad generado correctamente"
Message.SubjectEncoding = System.Text.Encoding.UTF8
Message.Body = "Codigo de Trazabilidad : " & lblCodTrazabilidad.Text
Message.BodyEncoding = System.Text.Encoding.UTF8
Message.Priority = System.Net.Mail.MailPriority.Normal
Message.IsBodyHtml = False

Try
SMTP.Send(Message)
blnEnvioExitoso = True
MessageBox.Show("correo enviado correctamente", "Correo Exitoso", MessageBoxButtons.OK)
Catch ex As System.Net.Mail.SmtpException
blnEnvioExitoso = False
MessageBox.Show("Problemas al enviar el correo a los destinatarios", "Correo Fallido", MessageBoxButtons.OK)
End Try

Return blnEnvioExitoso
End Function