یک فرم میل با انتخاب کاربر مورد نظر

aparizi · 6 جولای 2006

با سلام خدمت دوستان
من در یک وب سایت فرم آنلاینی را قراردادم :

form

<form action=sendmail.asp method=post>
Your Full Name : <input type=text name=name> <br>
Your E-mail : <input type=text name=email> <br>
Your Comments: <textarea name="comments" cols="22" rows="5"></textarea> <br>
<input type=submit value=submit> <br>
</form>

sendmail.asp

<%
Body ="Name : " & request.form("name") & vbCrLf _
& "E-Mail : " & request.form("email") & vbCrLf _
& "Comments : " & request.form("comments") & vbCrLf _
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Online Contact From Website"
fromname="From mysite.com contact"
emailfrom="[email protected]"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = " [email protected] "
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mysite.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
%>
<p>Thank you for filling contact form</P>

حالا سوال من: برنامه بالا به صورت از پیش تنظیم شده اطلاعات را می گیرد و به ایمیل[email protected]میل میزند اما من چون 5 آدرس میل در سایت دارم میخواهم با گذاشتن یک dropdownmenu یا یک دکمه کشویی مراجعه کننده به سایت از میان 5 نام یکی را انتخاب کند و نامه به میل او ارسال شود.لطفا سورس تغییر یافته را بنویسید

mehdi25 · 6 جولای 2006

کد:

<form action=sendmail.asp method=post>
    <p>Your Full Name : <input type=text name=name> <br>
Your E-mail : <input type=text name=email> </p>
    <p><select name="SendEmail" size="1">
        <option value="[email protected]">info</option>
        <option value="[email protected]">mail1</option>
        <option value="[email protected]">Mail2</option>
        <option value="[email protected]">Mail3</option>
</select><br>
Your Comments: <textarea name="comments" cols="22" rows="5"></textarea> <br>
<input type=submit value=submit> <br>
</p>
</form>

sendmail.asp

<%
Body ="Name : " & request.form("name") & vbCrLf _
& "E-Mail : " & request.form("email") & vbCrLf _ 
& "Comments : " & request.form("comments") & vbCrLf _
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Online Contact From Website"
fromname="From mysite.com contact"
emailfrom="[email protected]"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = request.form("SendEmail")
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mysite.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMessage.Configuration.Fields.Update
objMessage.Send
%>
<p>Thank you for filling contact form</P>

موفق باشی

aparizi · 7 جولای 2006

به نقل از mehdi25 :

کد:

<form action=sendmail.asp method=post>
    <p>Your Full Name : <input type=text name=name> <br>
Your E-mail : <input type=text name=email> </p>
    <p><select name="SendEmail" size="1">
        <option value="[email protected]">info</option>
        <option value="[email protected]">mail1</option>
        <option value="[email protected]">Mail2</option>
        <option value="[email protected]">Mail3</option>
</select><br>
Your Comments: <textarea name="comments" cols="22" rows="5"></textarea> <br>
<input type=submit value=submit> <br>
</p>
</form>

sendmail.asp

<%
Body ="Name : " & request.form("name") & vbCrLf _
& "E-Mail : " & request.form("email") & vbCrLf _ 
& "Comments : " & request.form("comments") & vbCrLf _
& Trim(strMessage)
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Online Contact From Website"
fromname="From mysite.com contact"
emailfrom="[email protected]"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = request.form("SendEmail")
objMessage.TextBody = Body
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mysite.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMessage.Configuration.Fields.Update
objMessage.Send
%>
<p>Thank you for filling contact form</P>

موفق باشی

مهدی عزیز سلام ضمن عرض تشکر از سورس شما . مشکل سورس شما در این است که مراجعه کننده به سایت با یک view source ساده از صفحه فرم پی به ایمیل اشخاص می برد و این در حالیست که کاربران نمی خواهند ایمیلشان عمومی شود

Mehdi · 7 جولای 2006

خوب میتونی ایدی رو تو value کمبو باکس بزاری بعد تو یه صفحه دیگه بگی که اگه فلان ایدی رو گرفتی به فلان جا بفرست و اگه فلان ایدی اونوقت به فلان میل بفرست ........
--
خودت بنویس...انتظار نداشته باش لقمه کنن برات

mehdi25 · 7 جولای 2006

کد:

><select name="SendEmail" size="1">
        <option value="info">info</option>
        <option value="mail1">Mail1</option>
        <option value="Mail2">Mail2</option>
        <option value="Mail3">Mail3</option>
</select>

عزیزم آقا مهدی هم اشاره کرد که چکار بکنی
این کار رو انجام بده .

سلکت بالا رو بزار و تو صفحه SendMail که اسکریپت ارسال ایمیل قرار داره اول صفحه این SendEmail رو بگیر و اونجا چک کن که کاربر چی رو انتخاب کرده بعد بنا به انتخاب کاربر ایمیل مورد نظر رو جایگزین کن . دیگه این که کاری نداره ...

برای چک کردن و جایگزین هم می تونی از تابع Case استفاده کن .

کد:

Select Case Request.QueryString("SendEmail")
	Case "Mail1" 
	EmailTo = [email protected]

این خط رو هم

کد:

objMessage.To = request.form("SendEmail")

اینطوری باید تغییر بدی

کد:

objMessage.To = EmailTo

یک فرم میل با انتخاب کاربر مورد نظر

aparizi

Registered User

mehdi25

کاربر تازه وارد

aparizi

Registered User

Mehdi

مدیر بازنشسته

mehdi25

کاربر تازه وارد

بک‌لینک