<%@ Import Namespace="System.Web.Mail"%>
<SCRIPT language="VB" runat="server">

Sub Button1_Click(sender As Object, e As EventArgs)
Try
Dim mail As New MailMessage
Dim IndirizzoIp
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
mail.From = "miacasella@miodominio.it"
mail.To = "miacasella@miodominio.it"
mail.Subject = "Prova e-mail con ASP.NET"
mail.Body = txtBody.Value & vbCrLf & IndirizzoIp

'eseguo autenticazione sul server SMTP
'usare i dati di una qualunque casella del dominio

mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "miacasella@miodominio.com"
mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passwordcasella"

'imposto il server SMTP da usare, quello del mio dominio

SmtpMail.SmtpServer = "smtp.miodominio.com"
SmtpMail.Send(mail)

' nascondo la form
form1.visible = false

lblAvviso.InnerHtml = "E-mail inviata con successo!"

Catch exc As Exception
lblAvviso.InnerHtml = "Errore nell'invio del messaggio:<br>" & exc.ToString
End Try

End Sub

</SCRIPT>
<span id="lblAvviso" runat="server"/>

<form runat="server" id="form1">
Invia un messaggio di prova con NET - System.Web.Mail<BR><BR>
<textarea id="txtBody" runat="server" rows="6" cols="25"></textarea><BR>
<asp:Button id="Button1" text="Invia" runat="server" OnClick="Button1_Click" UseSubmitBehavior="true" /></form>