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

   
الرد }}}
تم الشكر بواسطة:
#2
الرد }}}
#3
لقد قمت بتفعيل التطبيقات الاقل امانا ولكن نفس المشكله 
   
الرد }}}
تم الشكر بواسطة: asemshahen5
#4
ضع الاكود لمعاينته أو جرب الكود الموجود بالمشاركة التالية لربما الخطأ بكودك :

http://vb4arb.com/vb/showthread.php?tid=...#pid149901
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#5
هذا هو المثال


الملفات المرفقة
.zip   WindowsApplication16.zip (الحجم : 73 ك ب / التحميلات : 12)
الرد }}}
تم الشكر بواسطة: asemshahen5
#6
تفضل هذا الكود مجرب :

PHP كود :
   Private Sub Button3_Click(sender As ObjectAs EventArgsHandles 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 


الملفات المرفقة
.zip   WindowsApplication16.zip (الحجم : 78.67 ك ب / التحميلات : 14)
الرد }}}



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


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