Visual Basic.NET - mandar mails.

   
Vista:

mandar mails.

Publicado por javier (13 intervenciones) el 13/09/2007 20:50:34
Hola quiero mandar un mail. Este es el codigo:

Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click

Dim oMessage As New MailMessage()

oMessage.Subject = Me.subjecttxt.Text
oMessage.Body = Me.msgtxt.Text
oMessage.From = New MailAddress(me.fromtxt.Text)
oMessage.To.Add(New MailAddress(me.totxt.Text))
oMessage.Priority = MailPriority.High

Dim client As New SmtpClient("127.0.0.1")

client.Send(oMessage)


Este código NO me tira ningún error pero no manda mail. Cuando me voy a fijar a la casilla de prueba no hay ningun mensaje nuevo !

-instale el IIS con el servidor smtp y lo configuré para que se puedan mandar mails.
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

RE:mandar mails.

Publicado por P. J. (706 intervenciones) el 13/09/2007 21:19:35
Uhmm, yo mandaba mail's pero no hacia esa instancia SmptClient, sino
SmtpMail.Send(oMessage), y si querias especificar el servidor de correos era
SmtpMail.SmtpServer = "MiServidorSMTP"

Yo hacia eso y funcionaba, ojala te sea util
Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mandar mails.

Publicado por haver (196 intervenciones) el 13/09/2007 21:48:29
Pues yo uso este en vb.net 2005 y funciona con gmail

Sub envia_Correo(ByVal subjectstr As String, ByVal bodymsg As String)
Dim msg = New Mail.MailMessage()
msg.To.Add("alguien@algo.com") 'a quien va dirigido el mensaje
msg.From = New Mail.MailAddress("demi@oseayo.com", "SOY YO", System.Text.Encoding.UTF8) 'quien manda y como aparecera en la parte de remitente
msg.Subject = subjectstr 'el titulo del mensaje
msg.SubjectEncoding = System.Text.Encoding.UTF8
msg.Body = bodymsg ' cuerpo del mensaje
msg.BodyEncoding = System.Text.Encoding.UTF8
msg.IsBodyHtml = False
'msg.Attachments.Add(New Mail.Attachment(ruta_archivo_adjunto))
msg.priority = System.Net.Mail.MailPriority.High 'prioridad

'Aquí es donde se hace lo especial
Dim client = New Mail.SmtpClient()
client.Credentials = New System.Net.NetworkCredential("demi@oseayo.com", "mipassword") 'credenciales direccion de correo y clave
client.Port = 587 'puerto smtp
client.Host = "smtp.gmail.com" 'el nombre el smtp
client.EnableSsl = True 'Esto es para que vaya a través de SSL que es obligatorio con GMail
client.Send(msg) 'Envia el mensaje
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:mandar mails.

Publicado por JAVIER (13 intervenciones) el 13/09/2007 22:37:18
gracias !!!!!!!!!!!!!! este codigo funciona perfecto !!!!!!!!!!!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar