منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة في الإرسال عن طريق Gmail - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في الإرسال عن طريق Gmail (/showthread.php?tid=32245)



مشكلة في الإرسال عن طريق Gmail - hazim1 - 25-11-19

بسم الله الرحمن الرحيم

حيا الله الإخوة الكرام ، عساكم بخير حال وصحة وعافية.

هل الكود التالي يحتوى على خطأ لأنه لا يسمح بإرسال الرسائل 

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


       Using mail As New MailMessage
           mail.From = New MailAddress("hazwma1@gmail.com")
           mail.To.Add(destination.Text$)
           mail.Body = body.Text$
           If Not OpenFileDialog1.FileName = vbNullString Then
               Dim attach As New Attachment(OpenFileDialog1.FileName)
               mail.Attachments.Add(attach)
           End If
           mail.Subject = subject.Text$
           mail.Priority = MailPriority.Normal
           Using SMTP As New SmtpClient
               SMTP.EnableSsl = True
               SMTP.Port = "587"
               SMTP.Host = "smtp.gmail.com"
               SMTP.Credentials = New Net.NetworkCredential("hazwma1@gmail.com", "XXXXXXX")
               SMTP.Send(mail)
               imap.ConnectSSL("imap.gmail.com")


           End Using
       End Using

       Exit Sub

   End Sub


مع العلم أنه تم تفعيل  [color=rgba(0, 0, 0, 0.87)]Allow less secure apps: ON



[/color]


RE: مشكلة في الإرسال عن طريق Gmail - boudyonline - 26-11-19

اتصل بالعنوان smtp-relay.gmail.com باستخدام المنفذ 25 أو 465 أو 587.