+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة ارسال رسايل بالجيميل (/showthread.php?tid=33501)
مشكلة ارسال رسايل بالجيميل - alshandodi - 22-02-20
كيف حل هذه المشكة ولكم مني جزيل الشكر والتقدير
[attachment=24020]
RE: مشكلة ارسال رسايل بالجيميل - asemshahen5 - 22-02-20
RE: مشكلة ارسال رسايل بالجيميل - alshandodi - 22-02-20
لقد قمت بتفعيل التطبيقات الاقل امانا ولكن نفس المشكله
[attachment=24021]
RE: مشكلة ارسال رسايل بالجيميل - asemshahen5 - 22-02-20
ضع الاكود لمعاينته أو جرب الكود الموجود بالمشاركة التالية لربما الخطأ بكودك :
http://vb4arb.com/vb/showthread.php?tid=31646&pid=149901#pid149901
RE: مشكلة ارسال رسايل بالجيميل - alshandodi - 22-02-20
هذا هو المثال
RE: مشكلة ارسال رسايل بالجيميل - asemshahen5 - 22-02-20
تفضل هذا الكود مجرب :
PHP كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("asemshahen5@gmail.com", pass.Text) 'Asem6600@Hotmail.com'
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com" 'smtp.live.com'
e_mail = New MailMessage()
e_mail.From = New MailAddress("asemshahen5@gmail.com")
e_mail.To.Add("Asem6600@Hotmail.com")
e_mail.Subject = "ERROR"
e_mail.IsBodyHtml = False
e_mail.Body = Body.Text
Smtp_Server.Send(e_mail)
MsgBox("Mail Sent Thanks Progrum Well pe Close")
Close()
Catch error_t As Exception
MsgBox(error_t.ToString)
End Try
End Sub