PDA

Ver la Versión Completa Con Imagenes : Enviar correos desde vb.net 2010


Ayudante De Santa
06-11-2015, 22:19:08
Los mejores licores
rsotelo
15-03-2013, 16:08:59
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...




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