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]