وبلاگ آموزش طراحی وب سایت - ارسال نامه در ASP.NET

در اين مقاله ياد خواهيم گرفت که چگونه می توان از طريق يک صفحه 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.com
        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>

« نظر خودتون رو وارد کنيد تا مطالب جديدتري رو قرار بدم »

منبع : IranASP.Net