Buenas gente:
Debido a un capado del puerto 25 de nuestro querido proveedor Euskaltel, estoy teniendo problemas para poder configurar un programa para poder enviar los correos, todo el rato me salta el siguiente error:
Failure sending mail.
y la excepcion que da el programa es:
{"Unable to read data from the transport connection: net_io_connectionclosed."}
He provado la configuración en el outlook y me funciona a las mil maravillas. Dicha configuración es la siguiente (Outlook 2007):
- Dirección de correo electronico: noresponder@p4fteam.net
- Servidor de correo entrante: pop3s.aruba.it
- Servidor de correo saliente: smtps.aruba.it
- Nombre de usuario: noresponder@p4fteam.net
- Contraseña: laquecorresponda
- Tiene activado "Mi servidor de salida (smtp) requiere autenticación (Utilizar la misma configuración que mi servidor de correo de entrada)
- Tiene puesto que el puerto del servidor de entrada es el 995 (El que me marca el proveedor)
- Tiene activado "Este servidor precisa de una conexion cifrada (SSL)"
- Tiene puesto que el puerto del servidor de salida es el 465 (El que me marca el proveedor)
- El tipo de conexion cifrada que utiliza es el SSL.
El codigo fuente que utilizo para enviar el correo es el siguiente:
Dim correo As New MailMessage
correo.From = New System.Net.Mail.MailAddress("noresponder@p4fteam.net")
correo.To.Add(destinatario)
correo.Subject = "Asunto"
correo.Body = "Cuerpo"
correo.IsBodyHtml = True
correo.Priority = System.Net.Mail.MailPriority.Normal
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "smtps.aruba.it"
smtp.Port = "465"
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("noresponder@p4fteam.net", "laquecorresponda")
Try
smtp.Send(correo)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Alguien me puede ayudar a solucionar este pequeñisimo gran problema?
Muchas gracias y un saludo a todos
