Using SPUtility.SendEmail (SharePoint way)
Try
Dim thisWeb As SPWeb = SPControl.GetContextWeb(Context)
Dim toField As String = “someone@microsoft.com”
Dim subject As String = “Test Message”
Dim body As String = “Message sent from SharePoint”
Dim success As Boolean = SPUtility.SendEmail(thisWeb, True, True, toField, subject, body)
Catch ex As Exception
‘ handle exception
End Try
More info here: http://msdn.microsoft.com/en-us/library/microsoft.sharepoint.utilities.sputility.sendemail.aspx
Using MailMessage (ASP.NET way)
Dim mm As New MailMessage(emailt.Text, ToAddress)
mm.Subject =”Test Message ”
dim body as New String
sbu.AppendLine(“nieuwe aanvraag tot registratie”)
mm.Body = body
mm.IsBodyHtml = False
Dim smtp As New SmtpClient
smtp.Send(mm)
More info here: http://msdn.microsoft.com/en-us/library/system.web.mail.mailmessage(VS.71).aspx