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


الملفات المرفقة
.rar   Yahoo.fr.rar (الحجم : 89.79 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 4)
الرد
#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 , ابو روضة , ابو روضة , محمد خيري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال رسالة بالواتس اب المتألق9 2 119 01-12-18, 01:11 PM
آخر رد: DK-x
Photo ممكن حل لمشكلة رسالة التفعيل للديف اكسبرس سلامه محمد11 1 58 26-11-18, 03:15 AM
آخر رد: elgokr
Photo [VB.NET] رسالة خطأ ومشكلة Attempted to read or write protected memory. This is often an indica riyadh jihad 10 180 23-11-18, 01:11 PM
آخر رد: mero5000
  [سؤال] رسالة تظهرلي من غير طلبيها اسامه الهرماوي 4 93 22-11-18, 10:38 PM
آخر رد: اسامه الهرماوي
Star ارسال رسائل فيسبوك من برنامج | التعامل مع الماسنجر من برنامجك YousefOkasha 3 2,967 02-11-18, 03:05 AM
آخر رد: nabil.1710
Star ارسال رسائل SMS إلي جميع انحاء العالم مجانا YousefOkasha 10 884 28-10-18, 09:25 PM
آخر رد: atefkhalf2004
  كيفية التعامل عند حفظ سطر بقيمة فارغة وظهور رسالة خطأ؟ [ تم الحل ] Hazem1 2 154 23-09-18, 11:23 AM
آخر رد: elgokr
  [VB.NET] رسالة خطأ فجائية تطلع اثناء العمل بالبرنامج larbihamri 22 623 21-09-18, 07:56 PM
آخر رد: larbihamri
  استخدام كود البحث ثم عند عدم وجود نتيجة في الداتا جريدفيو تظهر رسالة Hazem1 11 423 19-09-18, 07:00 PM
آخر رد: elgokr
  [VB.NET] اظهار رسالة في الكود الحفظ Mahamed112 1 136 10-09-18, 12:26 PM
آخر رد: boudyonline

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


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