System.Web.Mail 名前空間でメール送信が簡単にできます。
サンプルコードをば
Function SendMail()
Dim SMTPMail As System.Web.Mail.SmtpMail
Dim Mail As New System.Web.Mail.MailMessage
SMTPMail.SmtpServer = "smtp.dummy.com"
Mail.From = "dummyaddr@dummy.com" '送信元アドレス
Mail.To = "sendaddr@dummy.com" '送信先アドレス
Mail.Subject = "Test" 'タイトル
Mail.BodyEncoding = System.Text.Encoding.UTF8 'メールの本文のエンコードタイプ指定
Mail.BodyFormat = System.Web.Mail.MailFormat.Text
'本文
Mail.Body = "メールのテスト送信" & vbCrLf _
& "なんとかかんとか" & vbCrLf _
& "どうにかこうにか" & vbCrLf
'メールを送る
SMTPMail.Send(Mail)
End Function
こんな感じです。