برگزیده های پرشین تولز

تمام مسائل در مورد ایمیل == برنامه ها ، رفع مشکل

ahmad6

Registered User
تاریخ عضویت
17 سپتامبر 2004
نوشته‌ها
286
لایک‌ها
58
سلام
دوستان من يه سورس ميخوام به اين صورت كه فرم submit شد هم در ديتا بيس ذخيره شود هم به ايميل برود
لطفا به من كمك كنيد.
من سورس جدا اينها رو دارم اما با هم را متاسفانه ندارم
ممنون
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
البته من فقط اینو تو نوت پد نوشتم و اگه اشتباهه تایپی داشت شرمنده چون نرسیدم تست کنم

این برنامه ای که فرم توش هست
کد:
<form action=result.asp method=post>
Name : <input type=text name=name> <br>
Addrees : <input type=text name=address> <br>
E-mail : <input type=text name=email> <br>
<input type=submit value=submit> <br>
</form>


و این برنامه ای که نتیجه رو نشون می ده

کد:
<%
'inja tanzimate database ro set mikoni ke man access ro entekhab kardam
		accessdb=Server.MapPath("db1.mdb") 
 		cn = "Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & accessdb
		set conn = Server.CreateObject("ADODB.Connection")
		conn.Open(cn)


'inja etelaat varede database mishe

sql = "INSERT INTO  history (name,address,email) VALUES ('" & request.form("name") & "','" request.form("address") & "','" & request.form("email") & "')"
	set rs = conn.Execute(sql)


'inja emaili az tarafe admine site be user ersal mishe baraye masalan khoshamadgooi
'faghat yadet nareh inja smptt server khodeto set koni


Body ="Hi Dear : " & request.form("name") & vbCrLf _ 
    			& "" & vbCrLf _          	 
    			& "Thank you for registring with us" & vbCrLf _    	
  			& "" & vbCrLf _          	 
  			& "Thanks" & vbCrLf _          	 
    			& "Site Admin" & vbCrLf _    	
		        & Trim(strMessage)
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Welcome To yourdomain.com"
fromname="Site Administration"
emailfrom="[email protected]"
objMessage.From = fromname & " <" & emailfrom & ">"
objMessage.To = request.form("email")
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") = "mail.yourdomain.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objMessage.Configuration.Fields.Update
objMessage.Send


'tamame va to khattaye pain mitooni baghiye safe ye html ro bezari
%>


<p>Thank you for registring with us</P>
 

ahmad6

Registered User
تاریخ عضویت
17 سپتامبر 2004
نوشته‌ها
286
لایک‌ها
58
سلام اقا آرتين
دستت درد نكنه اما من به اين صورت ميخوام كه همان اطلاعاتي كه به ديتا بيس ارسال ميشه عينا همان اطلاعات هم زمان نيز به يك ايميل خواص ارسال شود.
باز هم تشكر ميكنم
 

hosin39

Registered User
تاریخ عضویت
3 نوامبر 2004
نوشته‌ها
125
لایک‌ها
0
سلام به همگی

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

ممنون :happy:
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
سلام
اقا حسین
اگر در قسمت دوم که همون برنامه ای اس پی هست نگاه کنی من همه جا رو توضیح دادم
هر جا که مربوط به دیتا بیس هست عوض بردار
و فیلدهای که موقع فرستادن میل نوشتم رو با فیلهای که در قسمت اچ تی ام ال نوشتم رو به هر حالتی که دوسا داری ادیت کن
همین
من فکر نمی کنم برنامه از این سادتر و گویاتر پیدا بشه
اگر سئوالی داشتی بپرس در کمتر از یک ساعت جوابش و می گیری
24 Hours in Days / 7 Days In Week / 365 Days In Year
یا اگه کارت واجب بود با این شماره تماس بگیر
1-800-asp-artin

good luck
 

nima178

Registered User
تاریخ عضویت
2 سپتامبر 2004
نوشته‌ها
882
لایک‌ها
12
محل سکونت
همان جایی که اینجا نیست
بابا آرتين من تو رو مي خوام
يه سوال دارم پي ام كنم جواب ميدي؟
اين سوال يه ماه پيش به احسان پي ام كردم هنوز جواب نداده!
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
nima178
چه سئوالی ؟ راجبه چی ؟
اگه بتونم چرا نگم
 

hosin39

Registered User
تاریخ عضویت
3 نوامبر 2004
نوشته‌ها
125
لایک‌ها
0
سلام

خیلی ممنون از لطفتون

باید بگم که من از برنامه نویسی تحت وب هیچی بلد نیستم.

بعدش اینکه من یه نیگای متفکرانه :hmm: به این برنامه انداختم . فکر می کنم که منظور منو اشتباه متوجه شدید. قرار نیست که من به کسی میل بزنم. (اون مال مراحل بعده :rolleyes: ) من می خوام یه فرم بذارم گوشه سایت که بازدید کننده توش مشخصات و نظرش رو بنویسه بعد که که سابمیت می کنه اون نوشته ها ارسال بشه به ایمیل من.

حالا میشه کاملتر برام توضیح بدین ؟ (اینجا شکلک خجالت نداره ؟ - من دارم از خجالت آب می شم)
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
hosin39
خوب اقا حسین من منظورت رو گرفته بودم
اونجا اگه تو قسمت دوم نگاه کنی که برنامه ای اس پی هست هر قسمت رو جدا کردم و کاملا توضیح دادم و ای اس پی خدایش اسون ترین زبونه شما فقط می بایستی جاهای که مربوط به وصل شدن و ورود اطلاعا به دیتا بیس بود حذف می کردی
و اونجای که نوشته ایمیل به کی بره ایمیل خودتو می زدی
الان وقت ندارم یه یکی دو ساعت دیگه اگه نتونستی برات کلان می نویسم
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
Form.html

کد:
<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("commentsl") & vbCrLf _
        & Trim(strMessage)
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Online Contact From Website"
fromname="Domain WebContact"
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") = "mail.yourdomain.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>



faghat tavajoh kon
emailfrom="[email protected]" ro bayad emailo khodet ro bezanni , va emaili bashe ke dar site sakhte shodeh bashe ! yani pop3

objMessage.To = "[email protected]"
inja ham har email mitooni bezani , etelaat be in email mireh

soali dashti dar khedmatim
 

hosin39

Registered User
تاریخ عضویت
3 نوامبر 2004
نوشته‌ها
125
لایک‌ها
0
مرسی.مرسی.مرسی

ایشالا باز مزاحم میشم ... فعلا برم اینا رو تست کنم.
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
rasti yadam raft in line pain ro ham edit kon
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourdomain.com"

va domaine khodet ro vared kon
 

hosin39

Registered User
تاریخ عضویت
3 نوامبر 2004
نوشته‌ها
125
لایک‌ها
0
سلام

من اين دو تا پيج رو درست كردم. ولي صفحه نمایش نتیجه باز نمیشه و HTTP 500 میده . ممکنه به خاطره سرور ایمیل پاپ تری باشه ؟

می تونم ایمیل پاپ تری از یه سایت دیگه بدم یا حتما باید از هاست خودم باشه ؟ آخه سرورش اشکال پیدا کرده
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
سلام
اینو رو سیستمت اجرا کردی یا سرورت ؟
هم ادرس سرور پاپ تری و هم ایمیلش رو درست زدی ؟
 

hosin39

Registered User
تاریخ عضویت
3 نوامبر 2004
نوشته‌ها
125
لایک‌ها
0
من هر دو تا صفحه رو آپلود کردم سرور میل و آدرسش هم درسته مشکل سرور پاپ تری هم حل شده ... ولی هنوز کار نمیکنه.
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
che errori mideh ?
addrese frestandeh bayad ba domain khodet bashe va ghablan to control panel sakhte shodeh bashe
 

hosin39

Registered User
تاریخ عضویت
3 نوامبر 2004
نوشته‌ها
125
لایک‌ها
0
به نقل از artin :
che errori mideh ?
addrese frestandeh bayad ba domain khodet bashe va ghablan to control panel sakhte shodeh bashe


اولاً كه من يه تشكر به شما بدهكارم . بابت اين كمكي كردي.

شرمنده كه دير اومدم تشكر :rolleyes:

بعدش اينكه اگه متن توي فيل فارسي باشه توي ايميل قابل خوندن نيست. ميشه يه راهنمايي هم در اين رابطه بكنيد ؟ :blink:

يه سوال ديگه ... چه جوري ميشه يه ايميل به صورت صفحه اچتي ام ال فرستاد ؟ يعني اينكه رنگ متن رو عوض كرد يا مثلاَ عكس توش گذاشت يا ...

ممنون ميشم اگه راهنمايي كنيد منو :cool: :cool:
 

mehdi25

کاربر تازه وارد
تاریخ عضویت
28 اکتبر 2004
نوشته‌ها
1,318
لایک‌ها
2
محل سکونت
طهران
اگه مشكل فارسي ميل كردن رو پيدا كردي به منم بگو :)


من يه سرسي دارم شايد بدردت بخوره

با اين ميتوني به صورت Html ميل كني

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
%>


با اينم ميتوني يه صفحه وب رو ميل كني


<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/"
myMail.Send
%>


فقط بايد بجاي [email protected] و اين [email protected] ايميل خودت و بنويسي
اونوقت از ايميل خودت به خودت ميل ميكنه .
فك كنم از اين ساده تر ديگه گير نياري
 

..hamid..

Registered User
تاریخ عضویت
6 فوریه 2005
نوشته‌ها
341
لایک‌ها
0
سن
41
آقا آرتين واقعا ممنون
من تازه اومدم تو اين فروم ولي مدتها بود دنبال همچنين كدي مي گشتم
فقط اينكه من مي خوام جاي نظر خواهي و اينجور چيزا سوالات چهار گزينه اي (تستي) بذارم كه بقيه اونها رو جواب بدن و جواباشون به همراه مشخصات و ايميلشون به من ميل بشه .

متشكرم
 

artin

کاربر تازه وارد
تاریخ عضویت
19 می 2004
نوشته‌ها
2,114
لایک‌ها
2
سلام آقا حمید و به اینجا خوش آمدی

در مورد چهار گزینه ای شما فقط قسمت html رو ادیت می کنید و فیلدی که می خواد پست بشه رو همون فیلدی می زارید که برای چهار گزینه ای ها انتخاب کردید

حالا بگو دقیقا چه کار های م یخوای بکنی اگه وقت شد برات کللشو می نویسم
 
بالا