26
may
0
Enviar Correo con ASP/VB.NET
Si te ves en la necesidad de mandar un correo usando visual basic .net, el siguiente código te va ser de gran ayuda.
Lo primero que hay que hacer en importar la librería a nuestro proyecto Web.
| vb.net | | Copiar | | ? |
| 1 | Imports System.Web.Mail |
Después el siguiente código lo podemos meter dentro del evento click en el botón “enviar”, mas delante daré un ejemplo practico. Solo hay que remplazar los datos que que nos indica.
| vb.net | | Copiar | | ? |
| 01 | Dim correo As New System.Net.Mail.MailMessage() |
| 02 | |
| 03 | correo.From = New System.Net.Mail.MailAddress("nombre@delremitente.com") |
| 04 | correo.To.Add("nombre@deldestinatario.com") |
| 05 | correo.Subject = "Aquí el asunto" |
| 06 | correo.Body = "<HTML><BODY><B>Aquí el texto correspondiente - Guerratopia</B></BODY></HTML>" |
| 07 | 'Estabvlece en TRUE si vas a enviar codigo HTML |
| 08 | correo.IsBodyHtml = True |
| 09 | 'Prioridad del Correo Alta, Baja, Normal |
| 10 | correo.Priority = System.Net.Mail.MailPriority.Normal |
| 11 | |
| 12 | Dim smtp As New System.Net.Mail.SmtpClient |
| 13 | |
| 14 | '--------------------------------------------- |
| 15 | ' Estos datos debes rellanarlos correctamente |
| 16 | '--------------------------------------------- |
| 17 | smtp.Host = "servidor.de.correo_o_Exchange" |
| 18 | 'Indicar el puerto en caso de que no sea el Standard (25) |
| 19 | 'smtp.Port = "###" |
| 20 | smtp.Credentials = New System.Net.NetworkCredential("usuario", "password") |
| 21 | 'Establece en True Cuando el Servidor Requiere una conexion segura |
| 22 | smtp.EnableSsl = False |
| 23 | |
| 24 | Try |
| 25 | smtp.Send(correo) |
| 26 | MsgBox("Mensaje enviado satisfactoriamente") |
| 27 | Catch ex As Exception |
| 28 | MsgBox("ERROR: " & ex.Message) |
| 29 | End Try |
Aquí puedes descargar un ejemplo practico y sumamente sencillo, solo necesitas poner los datos de las credenciales del servidor de envió y una vez que cambien los datos corran el proyecto (VS2008) y den click en el botón de enviar, verán algo similar a esto en su bandeja de entrada 
Enjoyed reading this post?
Subscribe to the RSS feed and have all new posts delivered straight to you.
Subscribe to the RSS feed and have all new posts delivered straight to you.
Post your comment
