<%@ 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
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"
SmtpMail.SmtpServer = "smtp.miodominio.com"
SmtpMail.Send(mail)
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> |