'This is an example only, and needs to be modified with proper information

Sub SendEmail()

'create the mail message
Dim nmail As New System.Net.Mail.MailMessage

'set the addresses
nmail.To.Clear()
nmail.To.Add(New System.Net.Mail.MailAddress("recipient name "))
nmail.From = New System.Net.Mail.MailAddress("my name ")

'set the content
nmail.Subject = "This is an email"
nmail.Body = "this is the body content of the email."

'prepare to send the message
Dim smtp As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("mail.mydomain.tld")

'you need to use the credentials of an existing mail account
smtp.Credentials = New System.Net.NetworkCredential("me@mydomain.tld", "mypassword")

Try
smtp.Send(nmail)
Catch ex As Exception
Response.Write("Error: " & ex.ToString())
End Try

End Sub