jueves, 19 de febrero de 2009

[VB NET] --> Enviar email mediante código

Con este truco podrás enviar un email a varios usuarios desde el código, por ejemplo tras recibir un comentario.

Dim correo as New MailMessage
Dim smtp as New SmtpClient
Dim msg ,comment as String

Try
correo.From=New MailAddress("midireccion@miservidor.com")
correo.To.Add("usuario1@suservidor.com")
correo.To.Add("usuario2@suservidor.com")
correo.Subject="Escribe aquí el Asunto del email"
msg = "Hola, te envío este email para comunicarte que en breve solucionaremos tu consulta"
correo.Body=msg
correo.Priority=MailPriority.Normal
smtp.Host="smtp.miservidor.es" ' pon aquí tú servidor de salida
smtp.Credentials=New System.Net.NetworkCredential("miusuario","micontraseña")

smtp.Send(correo)
Catch ex as Exception
MessageBox.Show("Ha ocurrido un error mientras se enviaba el mensaje")
End Try

No hay comentarios:

Publicar un comentario