Thales,
Complementando um codigo abaixo para envio de email adapte a sua realidade:
imports System.Web.Mail
Sub
EnviaEmail(ByVal para As String, ByVal de As String, ByVal assunto As String, ByVal campo As String)
Dim Mail As New MailMessage
Try
With Mail
.From = para
.To = de
.Subject = assunto
.Body = campo
.BodyFormat = MailFormat.Text
End With
SmtpMail.SmtpServer = smtp.servidor.com.br
SmtpMail.Send(Mail)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub