السّلام عليكم و رحمة الله و بركاته
كل الشّكر و التّقدير و المحبّة و الإحترام لأخي الكريم " أبو روضة " لما قدّمه من معلومات رائعة جديدة على الأقل بالنّسبة لي فيما يخص إستعمال الويب براوزر لإرسال الرّسائل الإلكترونيّة
بارك الله فيك و لك يا غالي يا أبا روضة و جزاك خير الجزاء و أنعم عليك بطيّبات الدّنيا و الآخرة بعد عمر طويل إن شاء الله
بالنّسبة للسّائل الكريم ..
المشكلة ليست مشكلة كود .. و إنّما المشكلة في بعض الإعدادات الإحتياطية الأمنيّة الخاصّة بالجيميل أو الياهو
أنا جرّبت الكود لأخي " محمد خيري " و هو يشتغل بامتياز بعدما ضبطت بعض الإعدادات
أكتب لديك هذا العنوان أخي .. و احتفظ به ستحتاجه يومًا ما بمجرّد إعادة تنصيب الوينداوز مثلاً ..
إذا كنت تريد ضبط الإعدادات للجيميل .. أضف للعنوان السابق كلمة 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
تحياتي