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