ارسال بريد من صفحة فرنت بيج

السلام عليكم

نعم تستطيع يا اخي الكريم عمل ذلك، لكن تحتاج لعمل ذلك، بأنه السيرفر يدعم خاصية البريد، ونوع اللغة المستخدم لذلك.

مع تحياتي

جزاكم الله خيرا اخى الكريم

اعلم ذلك اخى الكريم .. ولكن كيف افعل ذلك

مثلا موقعى هو http://www.hisham.itgo.com/

واصفحة التى اريدها هذه http://www.hisham.itgo.com/feedback.htm

اريد عندما تملى البيانات التالية :

http://www.jeeran.com/asp-bin/hp/addons/fo...ID=56420〈=a

ترسل الرسالة الى بريدى على الهتمايل :

جزاكم الله خيرا

هشام

بعد الاذن من الاخ عبد الله

أنا اطلعت على صفحة الفورم التي تريد ان ترسل منها الايميل و عندي بعض الاقتراحات

عند تسمية قولب الادخال... خلي الاسم كله كلمة واحدة ... مثلا

<input type="text" name="FullName">

وليس

<input type="text" name="Full Name">

الامر الاخر ... كنت اشتغل على موقع يشتغل على اللينكس و يدعم الـ ASP فوجدت ان صفحة الاسئلة و الفيدباك كانت تشتغل بلغة cgi or perl و ما على صاحب الموقع الا ان يعبي اشياء بناءا على تعليمات من الشركة ... فاذا كان هناك من تعليمات من الشركة خاصة و انا اشوف الفورم في موقع غير موقعك.... و تحتوي على هذا:

action='formmail.asp?Action=Send&username=alhisham&FMID=56420

فالظاهر ان هناك تعليمات معهم و على كل حال يمكنك فعل التالي بعد التعديل كما ذكرت سابقا

<%
dim emailFrom ' 
dim emailTo  ' your email ... @hotmail.com
dim fullName ' his full name
dim message ' user's message to you
dim emailAddress ' The Email address the user will enter
dim strBody

emailFrom = Request.Form("Email Address")
emailto = YourEmailAddress ' "one@hotmail.com"
fullName = Request.Form("Full Name")
message = Request.Form("Message")

strBody = "You have recieved a message from " & fullName
strBody = strBody & "<br>Here is his/her  message: <br>"
strBody = strBody & message ' you can apply your formatting the way you need

set myNewEmail = Server.CreateObject("CDONTS.NewEmail")

myNewEmail.From = emailFrom
myNewEmail.To = emailTo
myNewEmail.Subject = "A new contact for ... "
myNewEmail.Importance = 0 ' values for normal, low, high. .. 
myNewEmail.Body = strBody
myNewEmail.MailFormat = 0  ' 0 or 1, 1= text format or 0=HTML format
myNewEmail.Send

set myNewEmail = nothing

%>

عفوا ... انا كتبت :

Set myNewMail = Server.CreateObject("CDONTS.NewEmail")

والاصح هو:

CDONTS.NewMail

عفوا... ما استطعت اعمل تحرير للمقال

جزاكم الله خيرا اخى الكريم

سأجرب ذلك

عذرا اخى ممكن ترفق الصفحة بعد التعديلات

لقد قمت بالتجربة ولم اصل الى نتيجة

وجزاكم الله خيراً

السلام عليكم

اخ hishampro فقط التغير أخي في الجملة التالية

et myNewEmail = Server.CreateObject("CDONTS.NewEmail")

ضع بدل NewEmail الكلمة التالية:

NewMail

مع تحياتي

-09

اخوانى الاعزاء جربت لكن هناك مشكلة :

الكود المستخدم :

<%
'set mailer = Server.CreateObject("SMTPsvg.Mailer") 
set mailer = Server.CreateObject("CDONTS.Newmail") 

'mailer.customcharset = "windows-1256"
'mailer.remotehost = "smtp.mail.yahoo.com"
'mailer.AddRecipient  "ahmed samir mohamed","ahmed_somir@yahoo.com"

mailer.form = "ahmed_somir@yahoo.com"
mailer.to = "ahmed_somir@yahoo.com"
mailer.subject = "jkah"
mailer.body = "dfh asdfka hksjdh fakjd fja sjkdhfkaj sdkjfhakjsd fjhakjsd"
mailer.Importance = 0
mailer.MailFormat = 0
mailer.send

if mailer.sendmail = true then
	response.write (" ok " )
else
	resonse.write (" error " )
end if
%>

و لكن هناك خطا فى :

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid class string 
/arab/sendmailok.asp, line 15

و الخطأ فى السطر الاتى :

set mailer = Server.CreateObject
("CDONTS.Newmail")

فما الحل انا استخدم xp و شكرا