تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في الإرسال عن طريق Gmail
#1
بسم الله الرحمن الرحيم

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

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

كود :
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]
الرد
تم الشكر بواسطة:
#2
اتصل بالعنوان smtp-relay.gmail.com باستخدام المنفذ 25 أو 465 أو 587.
الرد
تم الشكر بواسطة: hazim1 , معاند الحظ


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حل مشكلة الخطأ invalid password larbihamri 6 211 منذ 9 ساعة مضت
آخر رد: asemshahen5
  [سؤال] استخدام اداة DateTimePicker عن طريق زر TAB mr_hso 1 50 , 02:53 PM
آخر رد: nouribenyahia
  محتاج كود لفترة صور داخل ليست فيور عن طريق ليست فيو أخرى بالضغط على الصورة mohamedgadain61 2 108 21-01-20, 03:22 AM
آخر رد: mohamedgadain61
  [VB.NET] ممكن مساعدة في حل مشكلة مع الاداة bunifu 1.5.3 tahaayyoub 0 73 20-01-20, 05:24 PM
آخر رد: tahaayyoub
  [سؤال] مشكلة في الاتصال بقاعدة بيانات اكسس 2003 ناجح احمد 10 253 17-01-20, 10:57 PM
آخر رد: ناجح احمد
Photo مشكلة في الطباعه remonmary 1 81 16-01-20, 01:24 AM
آخر رد: boudyonline
  حل مشكلة برنامج مرتبط مع داتا اكسس 2007 في حال وجود اوفيس 2016 samira20 1 122 12-01-20, 05:36 PM
آخر رد: بيسك لكل العرب
  مشكلة CheckBoxColumn في الداتاجريد فيو بسام محمدغانم 0 64 12-01-20, 05:34 AM
آخر رد: بسام محمدغانم
  مشكلة في تعديل البيانات باستخدام جملة update جيولوجي مبتدئ 4 155 12-01-20, 01:53 AM
آخر رد: عبد العزيز البسكري
  مشكلة في الكود اسامه الهرماوي 3 135 10-01-20, 03:27 AM
آخر رد: اسامه الهرماوي

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


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