ارسال
ايميل در ASP ساده و کار آمد
با اين کد ساده می توان صفحه‌ای برای ارسال
ايميل ايجاد کرد . اين کُد را يک هندی به نام مستعار Prince Joseph نوشته است و آنطور که گفته ملزومات سيستمی آن برای اجرا
عبارتند از : يک ويندوز نسخه سرويس دهنده و SMTP Service بر روی IIS . اين دو صفحه
با استفاده از کامپوننت يا ابزار CDO که توسط شرکت مايکروسافت ارائه شده کار می
کنند .
:
mailSend.htm
<html><body>
<form id=frmMail method=post action=mailSend.asp>
TO:<input
type=text
name=txtTo size=30><br>
FROM:<input
type=text
name=txtFrom size=30><br>
SUBJECT:<input
type=text
name=txtSubject size=30><br>
BODY:<textarea rows="5" name=txtBody cols="28">
</textarea><br>
<input type=submit value="Send the Mail">
</form>
</body></html>
mailSend.asp :
<%@ Language=VBScript %>
<%
Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = Request.Form("txtFrom")
objMail.To= Request.Form("txtTo")
objMail.Subject= Request.Form("txtSubject")
objMail.Body= Request.Form("txtBody")
objMail.Send
Set objMail = Nothing
Response.Write "Mail should have
been sent"
%>
بازگشت به فهرست
بازگشت به صفحه نخست