[محمود صالح]

(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