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


الملفات المرفقة
.rar   Yahoo.fr.rar (الحجم : 89.79 ك ب / التحميلات : 11)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 10)
الرد
#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 9 170 15-06-19, 06:01 PM
آخر رد: alsouf
  Windows Phone app لا تظهر عندي اريد ارسال sms وجدت الدرس ومش عارف كيف ahmedhhh2 0 52 11-06-19, 12:18 AM
آخر رد: ahmedhhh2
  اظهار رسالة فحص الاخطاء nooralcown 7 229 30-05-19, 12:27 PM
آخر رد: nooralcown
  رسالة خطأ فى الكود احمد خطاب 4 199 19-04-19, 11:56 AM
آخر رد: elgokr
Question [VB.NET] كيف اعمل رسالة ترحيب تظهر من اسفل الساعة " من الاسفل الى الاعلى " اباذر 5 260 04-04-19, 07:12 PM
آخر رد: elgokr
  [سؤال] أهلا وسهلا. هل يمكنم اعطائي كود برمجي يعطيني رسالة خطأ إذا لم تتصل بقاعدة بيانات عبر يونس جلال 0 128 22-03-19, 04:39 PM
آخر رد: يونس جلال
  مشكلة فى تثبيت الكريستال ريبورت يقف ويظهر رسالة خطاء ولا يقوم بالتثبيت على الجهاز hedra samir 1 142 22-03-19, 02:59 PM
آخر رد: 5000
Exclamation [VB.NET] اصطياد رسالة الخطأ دون يتوقف البرنامج sniperjawadino 7 374 07-03-19, 09:28 PM
آخر رد: elgokr
  [VB.NET] ظهور رسالة خطأ Ahmed Alkuiady 6 318 16-02-19, 06:10 PM
آخر رد: princelovelorn
  [سؤال] رسالة خطأ بعد عملية الاضافة georgos 11 395 16-02-19, 03:36 PM
آخر رد: georgos

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


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