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