مشكلة في الإرسال عن طريق Gmail - نسخة قابلة للطباعة

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click





        Using mail As New MailMessage

            mail.From = New MailAddress("hazwma1@gmail.com")

            mail.To.Add(destination.Text$)

            mail.Body = body.Text$

            If Not OpenFileDialog1.FileName = vbNullString Then

                Dim attach As New Attachment(OpenFileDialog1.FileName)

                mail.Attachments.Add(attach)

            End If

            mail.Subject = subject.Text$

            mail.Priority = MailPriority.Normal

            Using SMTP As New SmtpClient

                SMTP.EnableSsl = True

                SMTP.Port = "587"

                SMTP.Host = "smtp.gmail.com"

                SMTP.Credentials = New Net.NetworkCredential("hazwma1@gmail.com", "XXXXXXX")

                SMTP.Send(mail)

                imap.ConnectSSL("imap.gmail.com")





            End Using

        End Using



        Exit Sub



    End Sub