انا جربتها ونجحت معي
شكرا أستاذي تمام
الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد
انا جربتها ونجحت معي
شكرا أستاذي تمام
الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد
اخواني الكود هو على الشكل التالي
Dim boite As New SmtpClient("....", ...)
boite.Credentials = New System.Net.NetworkCredential("....,....")
Dim msg As New System.Net.Mail.MailMessage
msg.From = New MailAddress("emailsend@hotmail.com")
msg.To.Add("emailreceived@hotmail.com")
msg.Subject = "new"
msg.Body = "لم أعرف أي رابط سأقوم بوضعه هنا "
لم أقم برفع الموقع على النت مجرد أنني أجربه على عدة حواسيب
Dim con As New SqlConnection
Dim com As New SqlCommand
con.ConnectionString = "Data Source=.;Integrated Security=true ;Initial Catalog=Ebay"
com.CommandType = Data.CommandType.Text
com.Connection = con
Dim com1 As New SqlCommand
Dim lecteur1 As SqlDataReader
com1.Connection = con
com1.CommandType = Data.CommandType.Text
com1.CommandText = "select etat from personne"
lecteur1 = com1.ExecuteReader
If
هناك يجب كتابة عبارة المقارنة بين الرابط هل تم تنشيطه مع خانة
etat في قاعدة البيانات
لا اعرف بشكل كلي ماذا أكتب هنا
مثلا اذا كان العضوية تم تنشيطها يجب كتابة الأمر
com1.CommandText = "insert into personne ("Yes")"
con.Open()
com.ExecuteNonQuery()
MsgBox("ajout effectuer ")
Then
else
الابقاء على الحالة No
في قاعدة البيانات
End If
boite.Send(msg)
جزاك الله الف خير على الدرس ..
ونستنى جديدك :wink: ...
الفكرة العامة بالمثال ...... هي :
string ValueFromQuiryString = Request.QueryString["SentValue"].ToString();
string sql = "select UserCode from table where UserCode='"+ValueFromQuiryString+"'";
// ضع فوق ضمن عبارة
// sql
// الاستعلام الذي يقوم بجلب الكود المرر ضمن الكويري سترينغ
// connection ...............
string connectionstring = WebConfigurationManager.ConnectionStrings["DatabaseConnectionString"].ConnectionString;
SqlConnection con = new SqlConnection(connectionstring);
con.Open();
SqlCommand cmd = new SqlCommand("", con);
cmd.CommandText = sql;
object o = cmd.ExecuteScalar();
if (o == null)
{
Label1.text = "اتبعت رابط خاطئ يرجى اعادة النقر على الرابط في بريدكم الإلكتروني";
}
else
{
// update etat table
sql = "update table set etat='yes' where UserID=UserID";
cmd.CommandText = sql;
cmd.ExecuteNonQuery();
}
con.Close();queen.memoz كتب:جزاك الله الف خير على الدرس ..
ونستنى جديدك :wink: ...
لا تنسونا من الدعاء
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم
الله يكثر من أمثالك أخي تمام
وتحياتي للجميع
شرفتوا نتمنى أن ينفعنا الله بما علمنا
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم
فقط استفسار بسيط اخواني الكرام رغم ان الكود شغال 100/100
اريد ارسال رابط في الرسالة اي عندما تصل الرسالة في
msg.Body = تكون على شكل رابط يضغط عليها اليوزير تؤدي به الى صفحة اخرى مثلا
msg.Body = www.arabteam2000.com
وشكراااااا
paranoia كتب:فقط استفسار بسيط اخواني الكرام رغم ان الكود شغال 100/100
اريد ارسال رابط في الرسالة اي عندما تصل الرسالة في
msg.Body = تكون على شكل رابط يضغط عليها اليوزير تؤدي به الى صفحة اخرى مثلا
msg.Body = www.arabteam2000.com
وشكراااااا
يكفي وضع
http://
قبل الرابط
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم
كود ارسال الايميل عندنسيان كلمة المرور حاولت اجرب الي نزلتوه ماضبط
انا ابرمج بالفي بي
حولت كود c# بس ماضبط
Dim con As New SqlConnection("server=.;uid=sa;pwd=123;database=gigabyte4u")
Dim da As New SqlDataAdapter("select email,password from reg where username='" + TextBox1.Text & "'", con)
Dim ds As New DataSet()
da.Fill(ds, "reg")
If ds.Tables("reg").Rows.Count = 0 Then
Label2.Text = "اسم المستخدم اللذي ادخلته غير صحيح"
Else
For i As Integer = 0 To ds.Tables("reg").Rows.Count - 1
Label3.Text = ds.Tables("reg").Rows(i)("email").ToString()
Label4.Text = ds.Tables("reg").Rows(i)("password").ToString()
Next
Dim m As New MailMessage()
m.From = "www.gigabyte4u.com"
m.[To] = Label3.Text
m.Subject = "كلمة المرور الخاصة بك"
m.Body = Label4.Text + "هذة كلمةجربت برضو هذا الكود جبته من مكان ثاني برضو ماضبط
ماادري اش المشكلة
ساعدوني الله يخليكم؟؟
اختي ممكن رسالة الخطأ اللي بتظهرلك ..... اكتبيها
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم
وهذا اللايبرري الي اضفته
Imports system.web.mail
لكن يطلع لي ايرور تحت MailMessage
,SmtpMail
الايرور هو
System.Web.Mail method is obslete and points me to here,
,http://go.microsoft.com/fwlink/?linkid=14202
تم تعديل هذه المشاركة بواسطة الحكيمة في 31 مارس 2011 في 23:03
عم يقلك انو المكتبة اللي عم تستخدميها مهجورة ...... غريب مع انها شغالة
شوفي الفريم وورك اللي عندك ممكن المشكلة فيه حاولي اتحدثيه او تنزلي نسخة جديدة
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم
الله يجزاك خيرعلى الموضوع....
كيف يتم برمجة إرسال رسائل خاصة بين أعضاء المنتدى بعد تسجيل دخولهم...
وهل لل"الهاكات" علاقة بهذا الموضوع؟؟؟
بين أعضاء المنتدى هي عبارة عن رسائل تخزن في قاعدة البيانات الخاصة بي عن طريق جداول أنا اقوم ببناءها
وأخزن فيه كل ما ارغب من بيانات .........
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم
السلام عليكم
وجدت عندي 3 أمثلة جاهزة لإرسال إيميل (طبعا نسيت مصدرها )
أنا لم اجربها بموقع حقيقي
في منها هذا SendErrorsByMail
وهو لإرسال إيميل في حال حدوث خطأ بالموقع ( مكتوب ب فيوجوال ستوديو 2010 )
الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد
Tammam_KD كتب:عم يقلك انو المكتبة اللي عم تستخدميها مهجورة ...... غريب مع انها شغالة
شوفي الفريم وورك اللي عندك ممكن المشكلة فيه حاولي اتحدثيه او تنزلي نسخة جديدة
كيف اغير الفريم وورك
من فين وكيف احدثه مااعرف الفيجوال استديو 2008
أدخلي إلى إضافة وإزالة البرامج وإحذفي الفرم وورك
ثم ضعي سيدي التنصيب ( نفس الإصدار الذي في جهازك ) للفيوجوال ستوديو ومن خيارات الأشياء التي سيتم تنصيبها إختاريه ( مثل عملية التنصيب يعني)
تم تعديل هذه المشاركة بواسطة KV2010 في 2 أبريل 2011 في 23:46
الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد
طيب هذا التنصيب ماراح ياثر ع المشروع الي قاعدة اشتغل عليه؟؟
أختي أنا لم أقل لك احذفي كل الفيوجوال ستوديو
الأستاذ تمام قال لك بخصوص framwork يعني احذفيه فقط هو
وبكل الاحول إذا كنت تركت المشروع في مساره الإفتراضي في المستندات
فقومي بنسخ نسخة منه أما إذا كان في غير مكان فلا داعي
الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد
حذفت الفريم وورك
ونصبته مره اخرى
بس ظلت المشكلة
؟؟؟؟
تم تعديل هذه المشاركة بواسطة الحكيمة في 3 أبريل 2011 في 15:22
أختي الكريمة رأيت مثالك وكان فيه عدة أخطاء من ناحية الإتصال بقاعدة وعدة أخطاء في ستايل الصفحة ( خطأ في مكان توضع عناصر Asp.net )
وأهم خطأ هو انك تستخدمين فضاء الإسم system.web.mail والذي يحتوي على الكلاس SmtpMail وهو غير مدعوم في الإصدارات من 2 إلى 4 من .net
من مايكروسوفت :
اقتباسSupported in: 1.1, 1.0
Obsolete (compiler warning) in 4
Obsolete (compiler warning) in 3.5
Obsolete (compiler warning) in 3.5 SP1
Obsolete (compiler warning) in 3.0
Obsolete (compiler warning) in 3.0 SP1
Obsolete (compiler warning) in 3.0 SP2
Obsolete (compiler warning) in 2.0
Obsolete (compiler warning) in 2.0 SP1
Obsolete (compiler warning) in 2.0 SP2
http://msdn.microsof...l.smtpmail.aspx
والأفضل أن تستخدمي فضاء الإسم System.Net.Mail الذي يحتوي على الكلاس MailMessage
من مايكروسوفت
اقتباسSupported in: 4, 3.5, 3.0, 2.0
http://msdn.microsof...ailmessage.aspx
عدلت لك في مثالك بالإعتماد على درس الأستاذ تمام والأمثلة التي وضعتها أنا في نهاية الصفحة 2 من هذا الدرس
المثال شغال 100%
بالتوفيق
تم تعديل هذه المشاركة بواسطة KV2010 في 6 أبريل 2011 في 23:09
الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد
جزاك الله كل خير
وده نفس الكود للارسال بس من كود الفى بى
Imports System.Net.Mail
Imports System.Net
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'قم الآن بتعريف متغير الرسالة وحدد فيه
'عنوان المرسل والمرسل إليه
'ونص الرسالة وعنوان الرسالة
'ولو احتاج الأمر قم بعمل مرفق
Dim msg As MailMessage = New MailMessage("FromEmail@gmail.com", "ToEmail@gmail.com", "Subject", "Message Body")
'هل تريد تفعيل كتابة نص منسق بتنسيق
'HTML
'وارسال الرسالة فيه
msg.IsBodyHtml = False
'قم بوضع معرف الارسال
' احجز بداية مساحة بالذاكرة من خلال التعريف عن متغير كما يلي
'وقم بتحديد البريد الإلكتروني المستخدم لتسجيل الدخول لبريد الجي ميل
'وقم بوضع كلمة المرور الخاصة ببريدك الإلكتروني
Dim mailAuth As NetworkCredential = New NetworkCredential("MyEmail@gmail.com", "MyPassword")
'قم بتعريف متغير من نوع
'SmtpClient
' وقم بتزويده بالإعدادات التالية الخاصة بالمضيف والمنفذ المستخدم له
Dim mailClieant As SmtpClient = New SmtpClient("smtp.gmail.com", 587)
'تفعيل ssl للارسال الآمن للبيانات
mailClieant.EnableSsl = True
'عدم استخدام البيانات الافتراضية لجملة الإعتماد
mailClieant.UseDefaultCredentials = False
'قم باستخدام بيانات الإعتماد الخاصة بي والتي قمت بتزويدها
' من خلال متغير
'MailAuth
mailClieant.Credentials = mailAuth
'أخيرا قم بارسال الرسالة
mailClieant.Send(msg)
End Sub
End Class
محمد فخرالدين
جهود مشكورة أخي الكريم بارك الله فيك
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم
اخويا تمام معلش سؤال كدا على الماشى :lol:
لو انا عايز اخلى اليوزر يبعت ميل ولكنه يظبط التكست والالوان وكدا
انا بالفعل عملتها بفضل الاخوه فى المنتدى واستخدمت ِAjax Editor
اليوزر فعلا بيظبط الرسالة اللى بيبعتها
لكن لما الادمن يجى يفتح الميل بيلاقى الرسالة فى صيغة HTML
حلها ايـــه ؟؟؟؟؟ وشكرا لمجهودك يا باشا :)
خلاص عرفت الحل انى اكتب الجملة دى
mm.IsBodyHtml = True
:) :)
تماما يا باشا ..... أهلا وسهلا بيك
قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:
مثلا تفنى المسـرة ***** هكذا تفنى الهموم