در اين مقاله ياد خواهيم گرفت که چگونه می توان از طريق يک صفحه ASP.NET يک Email فرستاد.
يکی از پر کاربردترين سرويسها بر روی اينترنت ارسال email می باشد که ميخواهيم به آن بپردازيم. در دات نت برای اين عمل بايد از نامکده System.Web.Mail استفاده نمايم و به منظور وارد کردن آن از کد زير استفاده مينمايم.
<%@ Import Namespace="System.Web.Mail" %>
همانطور که می دانيد در زبانهای شئ گرا برای استفاده از اشيا بايد ابتدا از آنها يک کپی يا در اصطلاح Instance برداشت به اين منظور از کد زير استفاده می نماييم.
Dim mail As New MailMessage
حال نوبت به استفاده از خواص و متدهای شئ کپی برداری شده می باشد، که اجزا مهم آن به شرح زير می باشد:
mail.From: آدرس فرستنده email
mail.To: آدرس گيرنده email
mail.Subject: موضوع
mail.Body: متن email که می تواند به صورت HTML باشد
mail.BodyFormat: نوع ساختار متن را مشخص می کند
SmtpMail.SmtpServer: سرويس دهنده محلی (Local) شما می باشد
SmtpMail.Send(mail): متد برای ارسال در انتهای کار
در اينجا يک مثال مشاهده می کنيد که با استفاده از فرم و دکمه Submit يک آدرس پست الکترونيکی را دريافت کرده و پيام پيش فرض را به آن ارسال می دارد. توجه داشته باشيد که در اينجا از يک صفحه برای هر دو عمليات دريافت آدرس و ارسال استفاده شده و با استفاده از يک کنترل Label که از کنترل های سرور در دات نت می باشد نشان ميدهيم که در حال دريافت آدرس هستيم يا ارسال.
<%@ Page Language="VB" EnableSessionState="False" EnableViewState="False" Trace="False" Debug="False" Strict="True" %>
<%@ Import Namespace="System.Web.Mail" %>
<script language="VB" runat=server>
Sub Page_load(Sender as Object, E as EventArgs)
If request.form("EmailAddress") = "" Then
dim strResponse as string = "<h2>Send Email using ASP.NET formatted in HTML</h2>"
lblMessage.Text = strResponse
Else
dim strResponse as string = "You just sent an email message formatted in HTML to:<br><h2>" &request("EmailAddress") & "</h2>"
lblMessage.Text = strResponse
End If
End Sub
Sub btn_Click(sender as Object, e as System.EventArgs)
If request.form("EmailAddress") <> ""
Dim mail As New MailMessage
mail.From = youraddress@domain.comThis email address is being protected from spam bots, you need Javascript enabled to view it
mail.To = request.form("EmailAddress")
mail.Subject = "Message sent using ASP.NET and CDONTS"
mail.Body = "HTML Message sent from Iranasp.net using ASP.NET and Cdonts<br>Wonder how this is done?<br><br>Wonder How to setup CDONTS?"
mail.BodyFormat = MailFormat.Html
SmtpMail.SmtpServer = "LocalServerName"
SmtpMail.Send(mail)
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<h1 align="center">Sending Email via ASP.NET and CDONTS..</h1>
<b>How do I setup my server to use CDONTS?</b>
<br/>
<br/>
<br/>
<br/>
<asp:Label id="lblMessage" Font-Name="Verdana" Width="400px" BorderStyle="solid" BorderColor="#cccccc" runat="server"/>
<form method="post" name="form1" runat="server" runat="server">
Email Address:<input type="text" name="EmailAddress" size="30" value=""><br><br>
<input type="Submit" id="btnSubmit" OnServerClick="btn_Click" value="Sending Email with ASP.NET" name="b1" runat="server" />
</form>
</body>
</html>
