منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ في ارسال الايميل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ في ارسال الايميل (/showthread.php?tid=22308)



خطأ في ارسال الايميل - محمود صالح - 29-10-17

[attachment=15923]سلام عليكم 
انا عملت برنامج ارسال رسالة مع ملف بالايميل
ولكن هناك خطأ يظهر لي ممكن احد يساعدني


RE: خطأ في ارسال الايميل - Rabeea Qbaha - 29-10-17

(29-10-17, 08:19 PM)محمود صالح كتب : سلام عليكم 
انا عملت برنامج ارسال رسالة مع ملف بالايميل
ولكن هناك خطأ يظهر لي ممكن احد يساعدني

قم بالدخول على الايميل الذي يتم ارسال منه الايميلات 
وقم بتغير اعدادات الامان


RE: خطأ في ارسال الايميل - محمود صالح - 29-10-17

(29-10-17, 08:38 PM)Rabeea Qbaha كتب :
(29-10-17, 08:19 PM)محمود صالح كتب : سلام عليكم 
انا عملت برنامج ارسال رسالة مع ملف بالايميل
ولكن هناك خطأ يظهر لي ممكن احد يساعدني

قم بالدخول على الايميل الذي يتم ارسال منه الايميلات 
وقم بتغير اعدادات الامان

عدلت الامان في الايميل الى هي اقل امناً
ومازلت المشكلة والرسالة الخطأ
وده الكود
كود :
Imports System.Net.Mail
Imports System.Net
Public Class Form1
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim ofd = New OpenFileDialog
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox3.Text = ofd.FileName
       End If
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Me.Cursor = Cursors.WaitCursor
       Dim smtp = New SmtpClient("smtp.gmail.com", 587)
       smtp.Credentials = New NetworkCredential(TextBox1.Text, TextBox2.Text)
       smtp.EnableSsl = True
       'smtp.UseDefaultCredentials = False


       Dim mail = New MailMessage(TextBox1.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text)

       Dim attach = New Attachment(TextBox3.Text)
       mail.Attachments.Add(attach)
       mail.IsBodyHtml = False
       smtp.Send(mail)

       Me.Cursor = Cursors.Default
       MessageBox.Show("تم الارسال بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub

End Class



RE: خطأ في ارسال الايميل - سعود - 29-10-17

جربت المثال وعمل بشكل جيد ..... .لا مشكلة بالكود وانما باعدادات الامان لديك في قوقل.
فعل التحقق بخطوتين ليعطوك كلمة مرور للتطبيقات.


RE: خطأ في ارسال الايميل - محمود صالح - 30-10-17

(29-10-17, 11:33 PM)سعود كتب : جربت المثال وعمل بشكل جيد ..... .لا مشكلة بالكود وانما باعدادات الامان لديك في قوقل.
فعل التحقق بخطوتين ليعطوك كلمة مرور للتطبيقات.

ممكن تشرحلي الخطوتين


RE: خطأ في ارسال الايميل - ابو روضة - 30-10-17

(30-10-17, 01:13 AM)محمود صالح كتب :
(29-10-17, 11:33 PM)سعود كتب : جربت المثال وعمل بشكل جيد ..... .لا مشكلة بالكود وانما باعدادات الامان لديك في قوقل.
فعل التحقق بخطوتين ليعطوك كلمة مرور للتطبيقات.

ممكن تشرحلي الخطوتين

اقتباس من الاخ سعود الشومان

[quote pid='104442' dateline='1503249082']
ادخل على هذا الرابط


https://myaccount.google.com/lesssecureapps

واجعل الخيار كما بالصورة



[/quote]


RE: خطأ في ارسال الايميل - سعود - 30-10-17

(30-10-17, 01:13 AM)محمود صالح كتب :
(29-10-17, 11:33 PM)سعود كتب : جربت المثال وعمل بشكل جيد ..... .لا مشكلة بالكود وانما باعدادات الامان لديك في قوقل.
فعل التحقق بخطوتين ليعطوك كلمة مرور للتطبيقات.

ممكن تشرحلي الخطوتين

قوقل مش مقصرة بالموضوع انت ابحث عن "تفعيل التحقق بخطوتين"