[alshandodi]

كيف حل هذه المشكة ولكم مني جزيل الشكر والتقدير

   

[asemshahen5]

ادارة حساب غوغل .

[alshandodi]

لقد قمت بتفعيل التطبيقات الاقل امانا ولكن نفس المشكله 
   

[asemshahen5]

ضع الاكود لمعاينته أو جرب الكود الموجود بالمشاركة التالية لربما الخطأ بكودك :

http://vb4arb.com/vb/showthread.php?tid=...#pid149901

[alshandodi]

هذا هو المثال

[asemshahen5]

تفضل هذا الكود مجرب :

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