[محمد خيري]

السلام عليكم.اخواني كيف يمكن ارسال رسالة الى البريد الالكتوني
حاولت بهذا الملف  الجيميل   (gmail )يرسل صحيح اما الياهو (yahoo.fr)ما ادري وين الخطا.انا اريد ارسل الى الياهو الله يرضى عليكم اذا ممكن تساعدوني بحل المشكل او اذا يوجد كود افضل اساعدوني به بارك الله فيكم

[ابو روضة]

اتفضل اخى هذا ما استعمله انا يسجل دخول ثم يرسل انت فقط اضغط على الزر واتركه

كود :

 WebBrowser2.Document.GetElementById("login-username").SetAttribute("value", TextBox4.Text)
       WebBrowser2.Document.GetElementById("login-signin").InvokeMember("click")
       Await Task.Delay(5000)
       WebBrowser2.Document.GetElementById("login-passwd").SetAttribute("value", TextBox5.Text)
       WebBrowser2.Document.GetElementById("login-signin").InvokeMember("click")
       Await Task.Delay(5000)
       WebBrowser2.Navigate("https://mg.mail.yahoo.com/neo/b/compose?ac=ZgbuaM66ovlAt3fi_0vNWi8gDkw-&.rand=1488567305")
       Await Task.Delay(5000)
       WebBrowser2.Document.GetElementById("to").SetAttribute("value", TextBox1.Text)

       WebBrowser2.Document.GetElementById("Subj").SetAttribute("value", TextBox2.Text)
       WebBrowser2.Document.GetElementById("Content").SetAttribute("value", TextBox3.Text)

       WebBrowser2.Document.GetElementById("send_bottom").InvokeMember("click")
     

[محمد خيري]

بارك الله فيك اخي ابو روضة و الله ما فهمت الكود لو تعمل معروف و تضعو بملف كمثال الله يجازيك كل خير اخي ابو روضة

[ابو روضة]

بارك الله فيك اخي ابو روضة و الله ما فهمت الكود لو تعمل معروف و تضعو بملف كمثال  الله يجازيك كل خير اخي ابو روضة

اتفضل أخى تحت أمرك

[محمد خيري]

بارك الله فيك اخي الكريم المحترم ابو روضة على المثال الشغال ربنا يجتزيك كل خير يا رب

[عبد العزيز البسكري]

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

كل الشّكر و التّقدير و المحبّة و الإحترام لأخي الكريم " أبو روضة " لما قدّمه من معلومات رائعة جديدة على الأقل بالنّسبة لي فيما يخص إستعمال الويب براوزر لإرسال الرّسائل الإلكترونيّة

بارك الله فيك و لك يا غالي يا أبا روضة و جزاك خير الجزاء و أنعم عليك بطيّبات الدّنيا و الآخرة بعد عمر طويل إن شاء الله

بالنّسبة للسّائل الكريم ..

المشكلة ليست مشكلة كود .. و إنّما المشكلة في بعض الإعدادات الإحتياطية الأمنيّة الخاصّة بالجيميل أو الياهو

أنا جرّبت الكود لأخي " محمد خيري " و هو يشتغل بامتياز بعدما ضبطت بعض الإعدادات

أكتب لديك هذا العنوان أخي .. و احتفظ به ستحتاجه يومًا ما بمجرّد إعادة تنصيب الوينداوز مثلاً ..

إذا كنت تريد ضبط الإعدادات للجيميل .. أضف للعنوان السابق كلمة gmail

و ابحث بجوجل .. سيأخذك للصفحة المقصودة

و إذا كنت تريد ضبط الإعدادات للياهو .. أضف للعنوان السابق كلمة yahoo

حتّى تصل للصفحة المقصودة و تفعّل هذا الخيار ..

و هذا كود إضافي .. مجرّب و أستعمله دومًا للجيميل أو الياهو

فقط غيّر بالكود ما يجب تغييره

كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       ' yahoo = smtp.mail.yahoo.com 'hotmail = smtp.live.com   'gmail = smtp.gmail.com
       Dim Smtp As New SmtpClient
       Dim email As New MailMessage()
       ProgressBar1.Value = 5
       email.From = New MailAddress(TextBox1.Text, "المنتدى : فيجوال بيسك لكل العرب")
       ProgressBar1.Value = 10
       email.Subject = TextBox4.Text
       email.SubjectEncoding = System.Text.Encoding.UTF8
       email.BodyEncoding = System.Text.Encoding.UTF8
       ProgressBar1.Value = 24
       email.Body &= "<style>table {    font-family: arial, sans-serif;    border-collapse: collapse;    width: 100%;}td, th {    border: 1px solid #dddddd;    text-align: left;    padding: 8px;}tr:nth-child(even) {    background-color: #dddddd;}</style>"
       email.Body &= "<table><caption>قسم الدوت نت</caption><thead><tr>"
       If Not String.IsNullOrWhiteSpace(TextBox5.Text) Then
           Dim attachment As New Net.Mail.Attachment(TextBox5.Text)
           email.Attachments.Add(attachment)
       End If
       email.Body &= "</tbody></table>"
       email.IsBodyHtml = True
       ProgressBar1.Value = 40
       email.To.Add(TextBox3.Text)
       Smtp.EnableSsl = True
       ProgressBar1.Value = 56
       Smtp.Port = ("587")
       Smtp.Host = ("smtp.mail.yahoo.com")
       Smtp.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
       ProgressBar1.Value = 70
       ProgressBar1.Value = 80
       Try
           Smtp.Send(email)
           ProgressBar1.Value = 100
           MsgBox("تم الارسال", MsgBoxStyle.DefaultButton1, "ارسال")
           ProgressBar1.Value = 0
       Catch ex As Net.Mail.SmtpException
           MsgBox(ex.Message)
           ProgressBar1.Value = 0
       End Try
   End Sub

تحياتي

[ابو روضة]

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

كل الشّكر و التّقدير و المحبّة و الإحترام لأخي الكريم " أبو روضة " لما قدّمه من معلومات رائعة جديدة على الأقل بالنّسبة لي فيما يخص إستعمال الويب براوزر لإرسال الرّسائل الإلكترونيّة

بارك الله فيك و لك يا غالي يا أبا روضة و جزاك خير الجزاء و أنعم عليك بطيّبات الدّنيا و الآخرة بعد عمر طويل إن شاء الله

بالنّسبة للسّائل الكريم ..

المشكلة ليست مشكلة كود .. و إنّما المشكلة في بعض الإعدادات الإحتياطية الأمنيّة الخاصّة بالجيميل أو الياهو

أنا جرّبت الكود لأخي " محمد خيري " و هو يشتغل بامتياز بعدما ضبطت بعض الإعدادات

أكتب لديك هذا العنوان أخي .. و احتفظ به ستحتاجه يومًا ما بمجرّد إعادة تنصيب الوينداوز مثلاً ..

إذا كنت تريد ضبط الإعدادات للجيميل .. أضف للعنوان السابق كلمة gmail

و ابحث بجوجل .. سيأخذك للصفحة المقصودة

و إذا كنت تريد ضبط الإعدادات للياهو .. أضف للعنوان السابق كلمة yahoo

حتّى تصل للصفحة المقصودة و تفعّل هذا الخيار ..

و هذا كود إضافي .. مجرّب و أستعمله دومًا للجيميل أو الياهو

فقط غيّر بالكود ما يجب تغييره

كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       ' yahoo = smtp.mail.yahoo.com 'hotmail = smtp.live.com   'gmail = smtp.gmail.com
       Dim Smtp As New SmtpClient
       Dim email As New MailMessage()
       ProgressBar1.Value = 5
       email.From = New MailAddress(TextBox1.Text, "المنتدى : فيجوال بيسك لكل العرب")
       ProgressBar1.Value = 10
       email.Subject = TextBox4.Text
       email.SubjectEncoding = System.Text.Encoding.UTF8
       email.BodyEncoding = System.Text.Encoding.UTF8
       ProgressBar1.Value = 24
       email.Body &= "<style>table {    font-family: arial, sans-serif;    border-collapse: collapse;    width: 100%;}td, th {    border: 1px solid #dddddd;    text-align: left;    padding: 8px;}tr:nth-child(even) {    background-color: #dddddd;}</style>"
       email.Body &= "<table><caption>قسم الدوت نت</caption><thead><tr>"
       If Not String.IsNullOrWhiteSpace(TextBox5.Text) Then
           Dim attachment As New Net.Mail.Attachment(TextBox5.Text)
           email.Attachments.Add(attachment)
       End If
       email.Body &= "</tbody></table>"
       email.IsBodyHtml = True
       ProgressBar1.Value = 40
       email.To.Add(TextBox3.Text)
       Smtp.EnableSsl = True
       ProgressBar1.Value = 56
       Smtp.Port = ("587")
       Smtp.Host = ("smtp.mail.yahoo.com")
       Smtp.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
       ProgressBar1.Value = 70
       ProgressBar1.Value = 80
       Try
           Smtp.Send(email)
           ProgressBar1.Value = 100
           MsgBox("تم الارسال", MsgBoxStyle.DefaultButton1, "ارسال")
           ProgressBar1.Value = 0
       Catch ex As Net.Mail.SmtpException
           MsgBox(ex.Message)
           ProgressBar1.Value = 0
       End Try
   End Sub

تحياتي

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

وصدقنى اذا كان الكود بتاع حضرتك يعمل سيكون أفضل من الويب براوزر لآنه عقيم بعض الشيئ

[عبد العزيز البسكري]

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

يعمل أخي الغالي " أبو روضة " عن تجربة .. بالنسبة للجيميل و أيضا للياهو و بإمكانك حتّى إرسال المرفقات .. و إذا شئت سأضع لك مثالا للتبسيط أكثر

تحياتي

[ابو روضة]

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

يعمل أخي الغالي " أبو روضة " عن تجربة .. بالنسبة للجيميل و أيضا للياهو و بإمكانك حتّى إرسال المرفقات .. و إذا شئت سأضع لك مثالا للتبسيط أكثر

تحياتي

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

[عبد العزيز البسكري]

فقط أخي الكريم .. ترتيب العناصر بالكود الذي وضعته .. بالتّوفيق

تحياتي