تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال رسالة الى الياهو
#1
السلام عليكم.اخواني كيف يمكن ارسال رسالة الى البريد الالكتوني
حاولت بهذا الملف  الجيميل   (gmail )يرسل صحيح اما الياهو (yahoo.fr)ما ادري وين الخطا.انا اريد ارسل الى الياهو الله يرضى عليكم اذا ممكن تساعدوني بحل المشكل او اذا يوجد كود افضل اساعدوني به بارك الله فيكم


الملفات المرفقة
.rar   Yahoo.fr.rar (الحجم : 89.79 ك ب / التحميلات : 21)
الرد }}}
تم الشكر بواسطة:
#2
اتفضل اخى هذا ما استعمله انا يسجل دخول ثم يرسل انت فقط اضغط على الزر واتركه


كود :
 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")
     
الرد }}}
#3
بارك الله فيك اخي ابو روضة و الله ما فهمت الكود لو تعمل معروف و تضعو بملف كمثال الله يجازيك كل خير اخي ابو روضة
الرد }}}
تم الشكر بواسطة:
#4
(16-11-18, 07:39 PM)محمد خيري كتب : بارك الله فيك اخي ابو روضة و الله ما فهمت الكود لو تعمل معروف و تضعو بملف كمثال  الله يجازيك كل خير اخي ابو روضة

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


الملفات المرفقة
.zip   yahoo.zip (الحجم : 147.77 ك ب / التحميلات : 21)
الرد }}}
#5
بارك الله فيك اخي الكريم المحترم ابو روضة على المثال الشغال ربنا يجتزيك كل خير يا رب
الرد }}}
تم الشكر بواسطة: ابو روضة
#6
السّلام عليكم و رحمة الله و بركاته
كل الشّكر و التّقدير و المحبّة و الإحترام لأخي الكريم " أبو روضة " لما قدّمه من معلومات رائعة جديدة على الأقل بالنّسبة لي فيما يخص إستعمال الويب براوزر لإرسال الرّسائل الإلكترونيّة
بارك الله فيك و لك يا غالي يا أبا روضة و جزاك خير الجزاء و أنعم عليك بطيّبات الدّنيا و الآخرة بعد عمر طويل إن شاء الله
بالنّسبة للسّائل الكريم ..
المشكلة ليست مشكلة كود .. و إنّما المشكلة في بعض الإعدادات الإحتياطية الأمنيّة الخاصّة بالجيميل أو الياهو
أنا جرّبت الكود لأخي " محمد خيري " و هو يشتغل بامتياز بعدما ضبطت بعض الإعدادات
أكتب لديك هذا العنوان أخي .. و احتفظ به ستحتاجه يومًا ما بمجرّد إعادة تنصيب الوينداوز مثلاً ..

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

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

وصدقنى اذا كان الكود بتاع حضرتك يعمل سيكون أفضل من الويب براوزر لآنه عقيم بعض الشيئ
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#8
السّلام عليكم و رحمة الله و بركاته
يعمل أخي الغالي " أبو روضة " عن تجربة .. بالنسبة للجيميل و أيضا للياهو و بإمكانك حتّى إرسال المرفقات .. و إذا شئت سأضع لك مثالا للتبسيط أكثر
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: ابو روضة , elgokr
#9
(16-11-18, 11:17 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
يعمل أخي الغالي " أبو روضة " عن تجربة .. بالنسبة للجيميل و أيضا للياهو و بإمكانك حتّى إرسال المرفقات .. و إذا شئت سأضع لك مثالا للتبسيط أكثر
تحياتي

مصدقك طبعا أخى ليس هناك شك مقصدى أن كودك سيكون أسرع وفكرته أفضل
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#10
فقط أخي الكريم .. ترتيب العناصر بالكود الذي وضعته .. بالتّوفيق
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: elgokr , ابو روضة , ابو روضة , محمد خيري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  [VB.NET] ارسال رسالة واتساب h2551996 0 187 07-01-24, 12:17 PM
آخر رد: h2551996
Photo [سؤال] ظور رسالة خطأ عند تحميل قاعدة بيانات تحتوي على صور أبو خالد الشكري 4 396 11-09-23, 09:51 PM
آخر رد: أبو خالد الشكري
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  طلب تصحيح كود ارسال رسائل SMS assuhimi 3 747 09-07-23, 01:41 PM
آخر رد: Shade0001
  رسالة خطأ ،، احتاج مساعدتكم assuhimi 2 473 21-05-23, 02:47 PM
آخر رد: assuhimi
  [سؤال] رسالة تظهر لى كلما قمت بتشغيل مشروع dr.programming 3 422 19-05-23, 06:21 PM
آخر رد: dr.programming
Exclamation [VB.NET] رسالة خطـأ لم أفهم معناها ، وحل مشكلتها ! أبو خالد الشكري 2 432 18-05-23, 12:05 AM
آخر رد: أبو خالد الشكري
  [C#.NET] مشكلة في كود ارسال بريد الكتروني ahmed_king2023 2 440 16-05-23, 07:47 PM
آخر رد: ابو روضة
  [VB.NET] رسالة خطأ IsMdiContainer ahmed_king2023 5 584 01-05-23, 12:45 PM
آخر رد: Dedda

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم