درخواست راهنمایی فوری در asp

R

reyra

New Member
سلام دوستان عزیز

من یک مشکل دارم در این کدهای ارسال ایمل میخوام ادرس ایمل من قبلا" تو برنامه باشه وقتی کاربر متنو و نوشت فقط نام و نام خانودگی و ایمل خودشو بنویسه موقعه سند به ایمل من سند بشه نمونه شو من میذارم ولی نمی دونم دقیقا کجاشو باید تغیر بدم ممنون میشم راهنماییم کنید

aspبا

​


<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strName
Dim strSubject
Dim strMessage
Dim lngImportance

strFrom=request.form("txtFrom")
strTo="[email protected]"
strName=request.form("txtname")
strSubject = request.form("txtSubject")
strBody=request.form("txtMessage")
lngImportance = request.form("optImportance")


Write("strFrom = " & strFrom)
Write("strTo = " & [email protected])
Write("strname = " & strname)
Write("strSubject = " & strSubject)
Write("strMessage = " & strBody)
Write("Importance = " & lngImportance)

Set myCDONTSMail = CreateObject("CDONTS.NewMail")

myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance

Set myCDONTSMail = Nothing
Write "ایمل شما با موفقیت به دست ما رسید با تکر از حسن انتخابتان جواب شما ظرف 24 ساعت به ایملتان ارسال خواهد شد."
%>
<form action="CDONTSMail.asp" method="POST" class="form">
<table border="0">
<tr>
<td width="103" class="td">از</td>
<td width="313"><!--webbot bot="Validation"
b-value-required="TRUE" -->
<input type="text"
size="47" name="txtFrom"
value=""></td>
</tr>
<tr>
<td class="td">نام شما</td>
<td><!--webbot bot="Validation"
b-value-required="TRUE" --><input type="text"
size="47" name="txtname"
value="" id="txtname"> </td>
</tr>

<tr>
<td class="td">موضوع</td>
<td><input type="text" size="47" name="txtSubject"
value=""></td>
</tr>
<tr>
<td valign="top" class="td">متن</td>
<td><textarea name="txtMessage" rows="9" cols="45">
</textarea></td>
</tr>
<tr>
<td valign="top" class="td">اهمیت:</td>
<td><input type="radio" name="optImportance"
value="2">
بالا<br>
<input type="radio" checked name="optImportance"
value="1">
متوسط<br>
<input type="radio" name="optImportance" value="0">
پائین<br> </td>
</tr>
</table>
<p><input type="submit" name="cmdSubmit" value="Submit">
<input type="reset" name="cmdClear" value="Clear"> </p>
</form>
 
pedramr

pedramr

Active Member
فرم ارسال ايميل

با اين کد ساده می توان صفحه‌ای برای ارسال ايميل ايجاد کرد . اين کُد را يک هندی به نام مستعار 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"
%>
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا