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