آموزش
» با صفحه کلید Levitatr بلوتوسی ، از تبلت خود لذت ببرید(1,655)
» اینترنت ایران ۱۰ دقیقه قطع می‌شود؟(2,779)
» کمپین حمایت از پسوندهای اینترنتی دات خلیج فارس و دات پارس تشکیل شد(1,179)
» تهیه نسخه پشتیبان از حساب کاربری جیمیل(1,229)
» آزمایش مقاومت گوشی نوکیا لومیا ۹۰۰ با چکش و میخ!(2,639)
» چطور یک ارائه خوب داشته باشیم. (اصول Lecture دادن)(1,315)
» :: طرح هاي توجيهي ,خود اشتغالي , کار آفريني و پرورشي, اخذ وام(7,577)
» :: نرم افزار و بازیهای جديد تمام گوشي هاي موبايل (2012 - اورجينال)(10,391)
» شرکت Logitech صفحه کلید خورشیدی برای آیپد عرضه می کند(2,781)
» 300 نفر بر روی ساخت بازی Call of Duty Black OPS 2 کار می کنند(4,699)
» کدام گوشی بهترین صفحه نمایش را در زیر نور آفتاب دارد؟(5,851)
» پرنده‌ای که عمر خود را مدیون یک تلفن همراه هوشمند است!(4,995)
» باحال ترین رقابت دنیا(4,045)
» چگونه فلش مموری خود را رمز‌گذاری کنیم(13,443)
» 15 روش برای سرعت بخشیدن به کندترین بخش کامپیوتر(7,985)
» لنوو سبک‌ترین اولترابوک 14 اینچی جهان را عرضه می‌کند(2,587)
» 10 فایده شگفت انگیز لبخند زدن(4,577)
» چگونه ویروس shortcut را از کول دیسک و کارت های حافظه پاک کنیم(5,349)
» بررسی ایمیل چاپار(2,431)
» Galaxy SIII یک روز زودتر از سایر کشورها در دست مشتریان بریتانیایی(3,155)
» فایرفاکس خود را بهینه کنید!(8,595)
» آموزش اطلاع از مانده حساب کارت بانک با اینترنت(6,933)
» ساخت رمز عبور یکتا برای سایت مختلف(4,073)
» مشاهده 10 ابر عکس دنیا با وضوح گیگاپیکسلی(13,487)
» ادامه - آرشيو لينکدوني ... » دريافت كد لينكدوني
قابل توجه مديران وب سايتها و وبلاگها:
متاسفانه شاهد اين هستيم كه ساعتي پس از انتشار مطالب ترجمه شده توسط گروه آسان دانلود، در وب سايتها و وبلاگهاي دانلود بدون ذكر منبع منتشر شده است. كپي برداري از مطالب ترجمه شده آسان دانلود به صورت متن کامل یا بخشی از آن شرعاً و قانوناً حرام بوده و گروه آسان دانلود هيچگونه رضایتی در این باره ندارد.
تابلو اعلانات
- دانلود رايگان AsanDownload ToolBar تولبار اختصاصی آسان دانلود
(دانلود)
- كرك آنتي ويروس Kaspersky و NOD32 براي اعضاي گروه ارسال
شد (عضويت)
- دانلود رايگان با لينك
مستقيم آپديت آفلاین محصولات ESET (دانلود)
- دانلود رايگان با
لينك مستقيم آپدیت آفلاین Kaspersky 2011 (دانلود)
- دانلود
رايگان با لينك مستقيم آپدیت آفلاین McAfee (دانلود)
- انجمن هاي
تخصصي آسان فروم (ورود به انجمن
ها) (عضویت در
انجمن ها)
دسته : 
تعداد بازديد : 3228 در اين مقاله ياد خواهيم گرفت که چگونه می توان از طريق يک صفحه 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>
