السلام عليكم ورحمة الله وبركاته :
أنا بحاجة إلى كود برمجي أو سكريبت (بأي لغة كانت , المهم أن تنفذ ضمن ال HTML Editor ) .. بحيث يقوم بإرسال نص علي شكل EMAIL إلى عنوان بريد الكتروني محدد ضمن الكود ..
النص يأخذه من مربع نص (Text Box) موجود في الصفحة ؛ ويتم تنفيذ الكود عند الضغط على زر موجود أيضا في الصفحة ...
هذا ما أحتاجه فقط ... أليس الأمر بسيط جدا ..
مع جزيل الشكر . ©
أخي الكريم أتمنى المزيد من التوضيح حتى نساعدك
شكرا جزيلا للمساعدة :
ما أريده بالضبط صفحة ويب تحتوي على مربع نص (Text Box) و زر (Button) ؛
يقوم الزائر بكتابة ما يريد في مربع النص .. وعند انتهائه يضغط على الزر (غالبا ما يسمى إرسالSend ) ليتم إرسال ما قد كتبه إلى عنوان البريد الإلكتروني الخاص بي على شكل رسالة.
مع جزيل الشكر©
بالنسبة لكود الاخ ابو تركي فهو صحيح ولا غبار عليه
فقط قم بتعديل السطر التالي
الى
فقط لتستخدم TextArea بدلا من الـText
اما اذا لك يكن لديك فكرة عما هو مكتوب فيمكن أن تراجع المواضيع القديمة في المنتدى ... اسال وسوف نجيب
بالتوفيق (f)
بسم الله الرحمن الرحيم :
شكرا جزيلا على تلك الأكواد الرائعة ... وأريد التأكيد على النقاط التالية :
1- محتويات الرسالة هي ما كتبه الزائر في مربع النص ..
هل هذا يقتضي تعديل الكود :
myMail.Body ="محتويات الرساله"
إلى الكود :
myMail.Body ="name"
2- لا أرغب في أن يعلم الزائر عنوان بريدي الإلكتروني ..
هل حذف السطر يفي بالغرض :
Response.Write "تم ارسال الرساله الى: "& mail
3- أرغب في وجود صفحة تأكيد (confirm)
وأخيرا لا يسعني إلا أن أعبر لكم عن فائق احترامي و عميق امتناني .. وجزاكم الله خيرا
(f) (f) (f)
السلام عليكم
اسف لاضافتي الرد السابق بدون التاكد منه ...
هذا الكود المعدل ...
سياخذ الايميل ويضعه في عنوان المرسل والكتابه الموجوده في text area سيضعها كمحتويات الرساله ولا داعي للقلق لان عنوانك والكود الذي امامك لن يظهر للمستخدمين ماسيظهر فقط الهتمل كود اي ان اي كود بين <% %> لن يظهر
<%@codepage=1256%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<title>Mail Service</title>
</head>
<%
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
mail = Request.Form ("mail1")
body = Request.Form ("Body")
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = mail
myMail.To = " بريدك هنا"
myMail.Subject = "????? ??????? "
myMail.Body = body
myMail.Send
Response.Write "تم ارسال الرساله: "& mail
else%>
<body>
<p dir="rtl">
<form method="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>" dir="rtl">
<p dir="rtl"><span lang="ar-sa">عنوانك البريدي</span><input type="text" name="mail1" size="40">
</p>
<p dir="rtl"><span lang="ar-sa">الرساله</span>
<textarea rows="11" name="body" cols="61"></textarea>
<input type="submit" value="ارسل" name="B1"><input type="reset" value="حذف" name="B2">
</p>
</form>
<p dir="rtl"></p>
</body>
</html>
<%end if%>
تحياتي لك ....وشكر خاص لك اخوي احمد(f)
هذا الموضوع مغلق.