Send emails with SMTP
<%@ Page Language="vb" %>
<%@ Import Namespace="System.Text" %>
<%@ Import Namespace="System.Web.Mail" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<script runat="server">
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim strMessage As New StringBuilder
Dim msg1 As New MailMessage
strMessage.Append("<table border=""0"" cellpadding=""4"" >")
strMessage.Append("<tr>")
strMessage.Append("<td>")
strMessage.Append(tbBody.Text)
strMessage.Append("</strong>")
strMessage.Append("</td>")
strMessage.Append("</tr>")
strMessage.Append("</table>")
msg1.From = tbFrom.Text
msg1.To = tbTo.Text
msg1.Subject = tbSubject.Text
msg1.Body = strMessage.ToString
msg1.BodyFormat = MailFormat.Html
msg1.Priority = MailPriority.Normal
SmtpMail.SmtpServer = "nomemailserver"
Try
SmtpMail.Send(msg1)
lbStatus.Text = "Messaggio inviato"
Catch
lbStatus.Text = "Errore nell'invio"
End Try
End Sub
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<table border="0" align="left" cellpadding="4" cellspacing="0" bgcolor="aliceblue" id="Table1">
<tr>
<td width="52" align="left" bgcolor="lightsteelblue">
<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">A:</font></strong></td>
<td>
<asp:textbox id="tbTo" runat="server" columns="45"></asp:textbox></td>
</tr>
<tr>
<td width="52" align="left" bgcolor="lightsteelblue">
<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Da:</font></strong></td>
<td>
<asp:textbox id="tbFrom" runat="server" columns="45"></asp:textbox></td>
</tr>
<tr>
<td width="52" align="left" bgcolor="lightsteelblue">
<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Oggetto:</font></strong></td>
<td>
<asp:textbox id="tbSubject" runat="server" columns="45"></asp:textbox></td>
</tr>
<tr>
<td width="52" align="left" bgcolor="lightsteelblue">
<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Testo:</font></strong></td>
<td>
<asp:textbox id="tbBody" runat="server" textmode="MultiLine" rows="5" columns="35"></asp:textbox></td>
</tr>
<tr>
<td width="52" align="left" bgcolor="lightsteelblue">
<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></strong></td>
<td>
<asp:button OnClick="btnSend_Click" id="btnSend" runat="server" text="Invia"></asp:button>
<asp:label id="lbStatus" runat="server" Font-Bold="True"></asp:label></td>
</tr>
</table>
<div align="center">
<br>
<br>
</div>
</form>
</body>
</HTML>
Download Code...
Print Page