Si te ves en la necesidad de enviar correo usando visual basic .net, el siguiente ejemplo te puede servir de ayuda. Lo primero que hay que hacer es importar una librería a nuestro proyecto con la esta declaración:
Imports System.Web.Mail
La mayor parte de código se puede insertar en el evento click de un botón destinado a enviar el mensaje de correo. Fíjate en el siguiente código y verás que no resulta difícil enviar correo con vb.net.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
Imports System.Web.Mail Public Class Formulario1 Private Sub btnEnviarCorreo_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnMail.Click Dim smtp As New System.Net.Mail.SmtpClient Dim correo As New System.Net.Mail.MailMessage Dim adjunto As System.Net.Mail.Attachment With smtp .Port = 25 .Host = "smtp.elrincondelprogramador.net" .Credentials = New System.Net.NetworkCredential("usuario-smtp", "clave-smtp") .EnableSsl = False End With adjunto = New System.Net.Mail.Attachment("C:\Temp\Adjunto.pdf") With correo .From = New System.Net.Mail.MailAddress("mail@elrincondelprogramador.net") .To.Add("destinatario@sudominio.com") .Subject = "Asunto del correo" .Body = "<strong>Texto del mensaje de correo</strong>" .IsBodyHtml = True .Priority = System.Net.Mail.MailPriority.Normal .Attachments.Add(adjunto) End With Try smtp.Send(correo) MessageBox.Show("Su mensaje de correo ha sido enviado.", _ "Correo enviado", _ MessageBoxButtons.OK) Catch ex As Exception MessageBox.Show("Error: " & ex.Message, _ "Error al enviar correo", _ MessageBoxButtons.OK) End Try End Sub End Class |
Imprimir | PDF | Email