طريقة ارسال ايميل إلى الأشخاص المحددين في CheckBoxList

السلام عليكم و رحمة الله و بركاته،

في البداية قم بإستيراد فضاء الإسم system.net و system.net.mail

using system.net ;
using system.net.mail;

ثم إستخدم هذا الكود:

for(int i=0;<CheckBoxList1.Items.count;i++)
{
MailMessage message = new MailMessage();
    	message.From = new MailAddress("postmaster@yourcompany.com");
    	message.To.Add(Checkboxlist1.Items.Text);
    	message.Subject ="لديك رسالة هامة من الإدارة";
    	message.Body = "لديك إجتماع اليوم الساعة 10";
    	message.Priority = MailPriority.High;
    	SmtpClient smtp = new SmtpClient("mail.yourcompany.com");
    	NetworkCredential Credentials = new NetworkCredential("postmaster@yourcompany.com", "your password");
    	smtp.Credentials = Credentials;  
	smtp.Send(message );
}

أخي الكريم بهاء ...

جزاك الله خير وبارك فيك

ولكن يا أخي الكريم أنا استخدم vb.net ولا افهم في غيرها من اللغات شئ

اتمنى أن اجد برنامج او موقع لتحميل الكود المكتوب الى vb

وبارك الله فيك

اخي الكريم هذا هي الشفرة السابقة مكتوبة بلغة VB.net

Dim i As Integer
For  i = 0 To CheckBoxList1.Items.count- 1  Step i + 1
Dim message As MailMessage =  New MailMessage() 
        message.From = New MailAddress("postmaster@yourcompany.com")
        message.To.Add(Checkboxlist1.Items(i).Text)
        message.Subject ="لديك رسالة هامة من الإدارة"
        message.Body = "لديك إجتماع اليوم الساعة 10"
        message.Priority = MailPriority.High
        Dim smtp As SmtpClient =  New SmtpClient("mail.yourcompany.com") 
        Dim Credentials As NetworkCredential =  New NetworkCredential("postmaster@yourcompany.com","your password") 
        smtp.Credentials = Credentials  
        smtp.Send(message)
Next

ايضا الق نظرة على الرابط الذي بالاسفل من اجل عملية التحويل من سي شارب الى فيجوال بيسك

convert from C# to vb.net

بالتوفيق ان شاء الله

السلام عليكم ورحمة الله وبركاته

أخي الكريم Xhack بارك الله فيك

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

وشغلت البرنامج وحاولت ارسل

فطلعلي الخطأ التالي The specified string is not in the form required for an e-mail address.

على الكود هدا بالتحديد message.To.Add(CheckBoxList1.Items(i).Text)

أرجو مساعدتي يا اخي الكريم وبارك الله فيك وفي جميع الاخوة في المنتدى

يا اخوان في توضيح بسيط

الان انا استعرضت في check box list أسماء أشخاص مو جودين عندي في جدول اسمه Users في الداتا بيز

وجدول Users هدا الحقول ID,Name,User_Email وانا قمت باستعراض اسم المستخدم اللي هو name

وانا اريد عندما اضع علامه على اسم المستخدم ومن ثم الضغط على البوتون يقوم بالارسال الى ايميل الشخص الذي حددت عليه...

ارجو اني اكون قد وضحت الفكرة بشكل افضل

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

بسم الله الرحمن الرحيم

اخى العزيز

انت عندك حل من اتنين

اما تغير text الخاص بال node لل check box list و بدل ماتكون name تكون User_Email و تخلى كود الاخ زى ما هو بالظبط

او تخلى ال Value الخاص بال node لل check box list يكون User_Email و تخلى كود الاخ زى ما هو بالظبط بس هتغير message.To.Add(CheckBoxList1.Items(i).Text

الى

message.To.Add(CheckBoxList1.Items(i).Value

جرب وا ن شاء الله تظبط معك

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء بارك الله فيكم

الحمدلله الكود زبط

بس في مشكلة بسيطه انه بيبعت لكل الموجودين في القائمة...والمفروض اني عايز ابعت بس للي انا قمت باختيارهم

ارجو ان تفيدوني بارك الله فيكم

و هذا هو الكود

For Each li1 As ListItem In CheckBoxList1.Items

If li1.Selected = True Then

cmd = New OleDbCommand("insert into attendance (meet_no,attend_user_ID,attend_name) values ('" & meet_no.SelectedValue & "','" & li1.Value & "','" & li1.Text & "') ", con)

con.Open()

cmd.ExecuteNonQuery()

con.Close()

End If

Next

con.Dispose()

Dim i As Integer

For i = 0 To CheckBoxList1.Items.Count - 1 Step i + 1

Dim message As MailMessage = New MailMessage()

message.From = New MailAddress(Session("user_email").ToString)

message.To.Add(CheckBoxList1.Items(i).Value)

message.Subject = "You have an important message from IT Department

message.Body = "You have a meeting on" & ":" & Session("meet_date") & "<BR>" & _

"Entitled" & ":" & Session("subject") & "<BR>" & _

"At" & ":" & Session("meet_time") & "<BR>" & _

"Duration of the meeting will be about" & ":" & Session("duration") & ":" & "Hours" & "<BR>" & _

"Thank you."

message.IsBodyHtml = True

Dim smtpClient As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("smtp.live.com")

smtpClient.Port = " 25"

smtpClient.EnableSsl = True

smtpClient.Send(message)

Next

بسم الله الرحمن الرحيم

اخى العزيز

ما هو طبيعى ان يبعت لهم كلها

لأنك عامل for عليهم كلهم و مش عامل Selected = True لهم

او انت ممكن تدخل عملية ارسال الايميل فى ال loop اللى فوقه الخاص ب عملية ال insert

جرب و ان شاء الله تظبط معك

بسم الله الرحمن الرحيم

انا اصلاً حاولت ادخل عملية الارسال من اول في الloop بس ما زبطت معايا ..

فمش عارف كيف بأي طريقة ممكن تزبط عشان انا لخبطت الكود ودخلته في بعض لغاية ما بقيت مش فاهم الكود اللي انا كاتبه اساساً هههههه

و جزاك الله خير اخي الكريم على متابعتك

انا جربت هذا الكود وما زبط ما بعرف ليش

'smtpClient :هذا هو الكائن المسؤول عن عملية الإتصال بخادم البريد والإرسال

Dim smtpClient As New SmtpClient()

'MailMessage: هو الكائن المسؤول عن اسم المرسل والمستقبل والرسالة

Dim message As New MailMessage()

Try

Dim fromAddress As New MailAddress(txtEmail.Text, txtName.Text)

'يجب عليك أن تعرف الهوست الخاص بالشركة التي تتعامل معها

' "smtp.live.com" على سبيل المثال الهوست للهوتميل هو

' "smtp.mail.yahoo.com" الياهو

' "smtp.gmail.com" جي ميل

'"localhost" الهوست الأساسي هو

smtpClient.Host = "smtp.mail.yahoo.com"

' والمنفذ للهوتميل و الياهو هو 25

' المنفذ للجي ميل هو 465

'المنفذ الأساسي هو 25

smtpClient.Port = 25

'ايميل المرسل

message.From = fromAddress

' بريدك الإليكتروني

message.To.Add("LOVE_ONE_FLOWER@yahoo.com")

' الموضوع

message.Subject = "Feedback"

' HTML هل البريد يحتوي على رمز الـ

'ليتم عرضها بكامل الخصائص

'IsBodyHtml = False نحن سنرسل نص فقط لذلك جعلنا الـ

message.IsBodyHtml = False

' نص الرسالة

message.Body = txtMessage.Text

' الإرسال

smtpClient.Send(message)

lblStatus.Text = "Email successfully sent."

Catch ex As Exception

lblStatus.Text = "Send Email Failed: " & ex.Message

End Try

وجربت كودكم كمان ما زبط

ارجو اعلامي ما الخطا بالكود ليش بعطيني المسج التانية

"Send Email Failed: " & ex.Message

اقتباس

"Send Email Failed: " & ex.Message

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

اخى يمكنك الأرسال عن طريق خدمة gmail الى اى ايميل