[hazim1]

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

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

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

كود :

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]

[boudyonline]

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