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

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

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

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

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

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

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

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

إذا كنت تريد ضبط الإعدادات للجيميل .. أضف للعنوان السابق كلمة 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

تحياتي