</p>
<p><%@ Page Language="VB" EnableSessionState="False" EnableViewState="False" Trace="False" Debug="False" Strict="True" %> <br />
<%@ Import Namespace="System.Web.Mail" %><br />
<script language="VB" runat=server><br />
<br />
Sub Page_load(Sender as Object, E as EventArgs)<br />
If request.form("EmailAddress") = "" Then<br />
dim strResponse as string = "Email adresi girin : "<br />
lblMessage.Text = strResponse<br />
Else<br />
dim strResponse as string = "Mesaj HTML format ile bu adrese gonderildi :<br><h2>" & request("EmailAddress") & "</h2>"<br />
lblMessage.Text = strResponse<br />
End If<br />
End Sub<br />
<br />
Sub btn_Click(sender as Object, e as System.EventArgs)<br />
If request.form("EmailAddress") <> ""<br />
<br />
Dim mail As New MailMessage<br />
mail.From = "mail@gonderen.com"<br />
mail.To = request.form("EmailAddress")<br />
mail.Subject = "Örnek Mail Form"<br />
mail.Body =request.form("Mesaj")<br />
mail.BodyFormat = MailFormat.Html<br />
SmtpMail.Send(mail)<br />
End If<br />
End Sub<br />
</script><br />
<br />
<html><br />
<body><br />
CDONTS ile ASP.NET sayfasından mail yollama<br />
<asp:Label id="lblMessage" Font-Name="Verdana" Width="400px" runat="server"/><br />
<form method="post" name="form1" runat="server" runat="server"><br />
Email: <input type="text" name="EmailAddress" size="30" value=""><br /><br />
Mesaj: <input type="text" name="Mesaj" size="100" value=""><br /><br />
<input type="Submit" id="btnSubmit" OnServerClick="btn_Click" value=" Gonder " name="b1" runat="server" /><br />
</form><br />
</body><br />
</html></p>
<p>
