Here is your code snippet
Code
Dim EmailTo As String = "test@test.com"
Dim EmailFrom As String = "myemail@myemail.com"
Dim EmailSubject As String = "Sample Email"
Dim EmailBody As String = "Test email"
System.Web.Mail.SmtpMail.Send(EmailFrom, EmailTo, EmailSubject, EmailBody)
Response.Write ("Mail sent OK.")
%>