Enviar correos desde vb.net 2010 Bueno, no se si a alguien le sirva... les comparto el código que me fue funcional. como formulario solo requieren un boton que al darle click envia el correo... adaptenlo que es muy funcional... [CODE] Imports System.Net.Mail Public Class enviar Public Sub EnvioMail() 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 = "mail.jamstechnology.com.co" .Credentials = New System.Net.NetworkCredential("correo remitente", "clave de correo") .EnableSsl = False End With ' adjunto = New System.Net.Mail.Attachment("C:\Temp\Adjunto.pdf") With correo .From = New System.Net.Mail.MailAddress("correo remitente") .To.Add("correo destinatario") .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 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click EnvioMail() End Sub End Class [/CODE] |
La franja horaria es GMT -5. Ahora son las 17:50:41. |
Desarrollado por: vBulletin® Versión 3.8.9
Derechos de Autor ©2000 - 2024, Jelsoft Enterprises Ltd.
DeNunCianDo.CoM ©