Visual Basic.NET - envio de email

   
Vista:

envio de email

Publicado por Fany (25 intervenciones) el 10/03/2008 13:43:57
Hola a todos, a ver si alguien me puede ayudar con esto. Quisiera mandar un email por codigo a unas direcciones de correo concretas, como cuenta origen uso a gmail. Estuve mirando y encontre este codio, pero es que no me lo manda, me dice que no es posible conectar con el servidor remoto.
Se que hay que configurar el gmail para admitir pop3, y ya lo hice pero sigue igual. Muchas gracias

'definicion e instanciacion de la clase MailMessage
Dim MMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
'rellenamos los parametros usuarles para el envio de un email
MMessage.To.Add("fany10@gmail.com")
MMessage.From = New MailAddress("fany10@gmail.com", "FANY", System.Text.Encoding.UTF8)
MMessage.Subject = "Test"
MMessage.SubjectEncoding = System.Text.Encoding.UTF8
MMessage.Body = "esto es una prueba"
MMessage.BodyEncoding = System.Text.Encoding.UTF8
MMessage.IsBodyHtml = False ' formato de texto plano
'definimos nuestrar credenciales para el envio de emails a traves de Gmail
Dim SClient As New SmtpClient()
SClient.Credentials = New System.Net.NetworkCredential("fany10@gmail.com", "castrovizoso")
SClient.Host = "smtp.gmail.com" 'servidor smtp de gmail
SClient.Port = 587 'puerto del smtp de Gmail
SClient.EnableSsl = True 'habilita el SSL, necesio en Gmail
'capturamos los errores en el envio
Try
SClient.Send(MMessage)
MsgBox("El mensaje se ha enviado correctamente.")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
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