Inviare una mail VB.NET

Un semplice codice VB.NET per spedire una email tramite l'SMTP del server su cui si appogiano le pagine ASP.NET:

<%@page language="VB" %> <%@Import Namespace="System.Web.Util" 
%> 
<script language="VB" runat="server">
Sub inviaEmail(Obj As Object, E As EventArgs)
'Creo l'oggetto MailMessage
Dim mailObj AS new MailMessage
'Setto i vari parametri
mailObj.From = "mittente@email.com"
mailObj.To = "destinatario@email.com"
mailObj.Subject = "soggetto della mail"
mailObj.Body = "testo della mail"
'Formato HTML della email
mailObj.BodyFormat = MailFormat.Html
'Invio la mail
SmtpMail.Send(mailObj)
End Sub
</script>