تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود ارسال ايميل من جيميل
#1
السلام عليكم
خدمة جوجل لاتسمح بالدخول الى حسابي لارسال رسالة
افيدوني ماذا اعمل ؟
جزاكم الله خيرا
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد }}}}
تم الشكر بواسطة:
#2
ممكن ارسال الكود المستخدم بدون بيانات الدخول وهحاول اساعدك
الرد }}}}
تم الشكر بواسطة: samira20
#3
Dim mail As New MailMessage()

Dim SmtpServer As New SmtpClient("smtp.hotmail.com")

mail.From = New MailAddress("samira.aa70@hotmail.com")

mail.[To].Add("nouring@gmail.com")

mail.Subject = "Test Mail - 1"

mail.Body = "mail with attachment"

Dim attachment As System.Net.Mail.Attachment

attachment = New System.Net.Mail.Attachment("C:\Books.mdb")

mail.Attachments.Add(attachment)

SmtpServer.Port = 587

SmtpServer.Credentials = New System.Net.NetworkCredential("", "")

SmtpServer.EnableSsl = True

SmtpServer.Send(mail)

MessageBox.Show("mail Send")
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد }}}}
تم الشكر بواسطة:
#4
السيرفر الخاص بالارسال عند حضرتك هو سيرفر Hotmail و ليس سيرفر Gmail
عموما الكود الخاص بالارسال هو :

Imports System.Net.Mail
Public Class mailform
Dim mail As New MailMessage()

Private Sub mailform_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
TextBox2.Text = "xyz@gmail.com"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential
("xyz@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True

mail = New MailMessage()
Dim addr() As String = TextBox1.Text.Split(",")
Try
mail.From = New MailAddress("xyz@gmail.com",
"Web Developers", System.Text.Encoding.UTF8)

Dim i As Byte
For i = 0 To addr.Length - 1
mail.To.Add(addr(i))
Next
mail.Subject = TextBox3.Text
mail.Body = TextBox4.Text
If ListBox1.Items.Count <> 0 Then
For i = 0 To ListBox1.Items.Count - 1
mail.Attachments.Add(New Attachment
(ListBox1.Items.Item(i)))
Next
End If
mail.DeliveryNotificationOptions =
DeliveryNotificationOptions.OnFailure
mail.ReplyTo = New MailAddress(TextBox1.Text)
SmtpServer.Send(mail)
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
ListBox1.Items.Add(OpenFileDialog1.FileName)
End If
End Sub
End Class
الرد }}}}
تم الشكر بواسطة: samira20
#5
جزاكم الله خيرا
جربت الجيميل و لكن رفض جوجل تسجيل دخول لارسال الايميل كيف احل هذا الامر ؟
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد }}}}
تم الشكر بواسطة:
#6
شوف الرابط

http://vb4arb.com/vb/thread-15436.html
الرد }}}}
تم الشكر بواسطة: samira20
#7
من فترة أوقفت Google الارسال من مواقع خارجي
فالأفضل ان تعتمد على البريد المقدم من خدمة الاستضافة
واذا كنت مصر على ال google gmail
سجل دخول في ال G mail
وادخل الرابط التالي
https://www.google.com/settings/security/lesssecureapps
واختر تشغيل
والان استخدم هذا الكود
PHP كود :
Dim mail As MailMessage = New MailMessage()
        
mail.To.Add("xxx@gmail.com")
        
mail.From = New MailAddress("Your-Gmail@gmail.com")
        
mail.Subject "Email using Gmail"

        
Dim Body As String "<b>Hi</b>, this mail is to test sending mail using Gmail in ASP.NET"
        
mail.Body Body

        mail
.IsBodyHtml True
        Dim smtp 
As SmtpClient = New SmtpClient()
        
smtp.Host "smtp.gmail.com"
        
smtp.Credentials = New System.Net.NetworkCredential("Your-Gmail@gmail.com""Your-Gmail-Password")
        
smtp.EnableSsl True
        smtp
.Send(mail)
        
MsgBox("Done!"
مع تغيير ما يلزم

بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: samira20 , ممدوح , HASAN6.0
#8
جزاكم الله خيرا جميعا
البرنامج لايستطيع ارسال الايميل
يعطي خطأ هنا SmtpServer.Send(mail)
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد }}}}
تم الشكر بواسطة:
#9
اخي العزيز عليط تشغيل خاصيه في الجيميل :
Access for less secure apps has been turned on
الرد }}}}
تم الشكر بواسطة: samira20
#10
جزاكم الله خيرا ...حلت المشكلة
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 37 منذ 1 ساعه مضت
آخر رد: YazanOtoum
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 1 18 منذ 3 ساعة مضت
آخر رد: dark1459
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 42 منذ 11 ساعة مضت
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة في حدف صورة من مسار بمجلد بالكمبيوتر ناصر شير 6 93 18-02-17, 02:37 PM
آخر رد: ناصر شير
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 120 17-02-17, 11:19 PM
آخر رد: EnormousSoft
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 70 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  [كود] حل مشكلة في كود عبدالرحمن المكاوي 12 151 16-02-17, 12:30 AM
آخر رد: مساعدة
  مشكلة واحدة على انتهاء المشروع Mohamed20 0 34 13-02-17, 01:49 AM
آخر رد: Mohamed20
  مشكلة صغيرة فى كتابة item الى xml Mohamed20 2 74 11-02-17, 01:27 AM
آخر رد: Mohamed20
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 56 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي

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


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