الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارسال رسالة بريد الكتروني من خلال صفحة aspx

رائج
بدأه Tammam_KD في 31 يناير 2011 · 71 رد · 8,843 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#26

انا جربتها ونجحت معي

شكرا أستاذي تمام

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#27

اخواني الكود هو على الشكل التالي

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)

#28

جزاك الله الف خير على الدرس ..

ونستنى جديدك :wink: ...

#29

الفكرة العامة بالمثال ...... هي :

        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:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

#30

الله يكثر من أمثالك أخي تمام

وتحياتي للجميع

#31

شرفتوا نتمنى أن ينفعنا الله بما علمنا

قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

#32

فقط استفسار بسيط اخواني الكرام رغم ان الكود شغال 100/100

اريد ارسال رابط في الرسالة اي عندما تصل الرسالة في

msg.Body = تكون على شكل رابط يضغط عليها اليوزير تؤدي به الى صفحة اخرى مثلا

msg.Body = www.arabteam2000.com

وشكراااااا

#33
paranoia كتب:

فقط استفسار بسيط اخواني الكرام رغم ان الكود شغال 100/100

اريد ارسال رابط في الرسالة اي عندما تصل الرسالة في

msg.Body = تكون على شكل رابط يضغط عليها اليوزير تؤدي به الى صفحة اخرى مثلا

msg.Body = www.arabteam2000.com

وشكراااااا

يكفي وضع 

http://

قبل الرابط

قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

#34

كود ارسال الايميل عندنسيان كلمة المرور حاولت اجرب الي نزلتوه ماضبط

انا ابرمج بالفي بي

حولت كود 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 + "هذة كلمة

جربت برضو هذا الكود جبته من مكان ثاني برضو ماضبط

ماادري اش المشكلة

ساعدوني الله يخليكم؟؟

#35

اختي ممكن رسالة الخطأ اللي بتظهرلك ..... اكتبيها 

قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

#36

وهذا اللايبرري الي اضفته

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

#37

عم يقلك انو المكتبة اللي عم تستخدميها مهجورة ...... غريب مع انها شغالة

شوفي الفريم وورك اللي عندك ممكن المشكلة فيه حاولي اتحدثيه او تنزلي نسخة جديدة

قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

#38

الله يجزاك خيرعلى الموضوع....

كيف يتم برمجة إرسال رسائل خاصة بين أعضاء المنتدى بعد تسجيل دخولهم...

وهل لل"الهاكات" علاقة بهذا الموضوع؟؟؟

#39

بين أعضاء المنتدى هي عبارة عن رسائل تخزن في قاعدة البيانات الخاصة بي عن طريق جداول أنا اقوم ببناءها

وأخزن فيه كل ما ارغب من بيانات .........

قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

#40

السلام عليكم

وجدت عندي 3 أمثلة جاهزة لإرسال إيميل (طبعا نسيت مصدرها )

أنا لم اجربها بموقع حقيقي

في منها هذا SendErrorsByMail

وهو لإرسال إيميل في حال حدوث خطأ بالموقع ( مكتوب ب فيوجوال ستوديو 2010 )

SendEmail.rar

Send-E-Mail.rar

SendErrorsByMail.zip

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#41
Tammam_KD كتب:

عم يقلك انو المكتبة اللي عم تستخدميها مهجورة ...... غريب مع انها شغالة

شوفي الفريم وورك اللي عندك ممكن المشكلة فيه حاولي اتحدثيه او تنزلي نسخة جديدة

كيف اغير الفريم وورك

من فين وكيف احدثه مااعرف الفيجوال استديو 2008

#42

أدخلي إلى إضافة وإزالة البرامج وإحذفي الفرم وورك

ثم ضعي سيدي التنصيب ( نفس الإصدار الذي في جهازك ) للفيوجوال ستوديو ومن خيارات الأشياء التي سيتم تنصيبها إختاريه ( مثل عملية التنصيب يعني)

تم تعديل هذه المشاركة بواسطة KV2010 في 2 أبريل 2011 في 23:46

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#43

طيب هذا التنصيب ماراح ياثر ع المشروع الي قاعدة اشتغل عليه؟؟

#44

أختي أنا لم أقل لك احذفي كل الفيوجوال ستوديو

الأستاذ تمام قال لك بخصوص framwork يعني احذفيه فقط هو

وبكل الاحول إذا كنت تركت المشروع في مساره الإفتراضي في المستندات

فقومي بنسخ نسخة منه أما إذا كان في غير مكان فلا داعي

1

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#45

حذفت الفريم وورك

ونصبته مره اخرى

بس ظلت المشكلة

؟؟؟؟

تم تعديل هذه المشاركة بواسطة الحكيمة في 3 أبريل 2011 في 15:22

1
#46

أختي الكريمة رأيت مثالك وكان فيه عدة أخطاء من ناحية الإتصال بقاعدة وعدة أخطاء في ستايل الصفحة ( خطأ في مكان توضع عناصر 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%

بالتوفيق

WebSite1.rar

تم تعديل هذه المشاركة بواسطة KV2010 في 6 أبريل 2011 في 23:09

1

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#47

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

وده نفس الكود للارسال بس من كود الفى بى

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

محمد فخرالدين

#48

جهود مشكورة أخي الكريم بارك الله فيك

قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

#49

اخويا تمام معلش سؤال كدا على الماشى :lol:

لو انا عايز اخلى اليوزر يبعت ميل ولكنه يظبط التكست والالوان وكدا

انا بالفعل عملتها بفضل الاخوه فى المنتدى واستخدمت ِAjax Editor

اليوزر فعلا بيظبط الرسالة اللى بيبعتها

لكن لما الادمن يجى يفتح الميل بيلاقى الرسالة فى صيغة HTML

حلها ايـــه ؟؟؟؟؟ وشكرا لمجهودك يا باشا :)

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

mm.IsBodyHtml = True

:) :)

#50

تماما يا باشا ..... أهلا وسهلا بيك

قل لمن يحمل هما ****** إن همــــا لا يدوم
:rolleyes: :rolleyes: :clapping: :rolleyes: :rolleyes:

مثلا تفنى المسـرة ***** هكذا تفنى الهموم

مواضيع مشابهة