Visual Basic.NET - Enviar una mail, no me sale

   
Vista:

Enviar una mail, no me sale

Publicado por Rodrigo (17 intervenciones) el 25/02/2008 14:33:49
En donde busque párese ser que el código esta bien pero siempre me da el error:
Fallo al enviar correo
La aplicación esta echa en VB 2005 Express

Acá el código:

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim correo As New MailMessage
correo.From = New MailAddress("micorreo@yahoo.com.ar")
correo.To.Add("destino@hotmail.com")
correo.Subject = "Hola"
correo.Body = "envio de correo a trvez de VB.NET 2005"
correo.IsBodyHtml = False
correo.Priority = MailPriority.Normal
Dim smtp As New SmtpClient()
smtp.Host = "smtp.yahoo.com.ar"
smtp.Port = 587 'habilite este puerto en el firewall de windows, por si las moscas
smtp.Credentials = New System.Net.NetworkCredential("micorreo@yahoo.com.ar", "mi contraceña")
smtp.EnableSsl = True
Try
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

Si alguien la puede probar joya, que me cuente,
acordarse que para probar con Hotmail hay problemas con el smpt, directamente no tiene para cuentas nuevas,
Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder