Отправка писем на E-mail не работает

#Region "Отправка сообщения"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim EMail As New MailMessage
        Dim Smtp As SmtpClient
        Dim Drop() As String = Split(Files, "[SP]")
        Smtp = New SmtpClient("smtp.yandex.ru")
        Smtp.Port = 465 '587 попробовал менять, перед выдачей сообщения о неудаче увеличивается задержка, и только
        Smtp.Credentials = New Net.NetworkCredential("dikrk3@yandex.ru", "пароль ввожу правильно") 'Данные Вашей почты (отправителя)
        EMail.From = New MailAddress("dikrk3@yandex.ru", Subject.Text) ' Subject.Text здесь для красоты, по желанию можно убрать
        EMail.To.Add(New MailAddress("jkrnd@yandex.ru")) 'кому
        EMail.Body = Message.Text 'Основной текст
        EMail.Subject = Subject.Text 'Тема письма
        If Num > 0 Then
            For N = 0 To Num - 1
                EMail.Attachments.Add(New System.Net.Mail.Attachment(Drop(N)))
            Next
        End If
        Try
            Smtp.Send(EMail)
            MsgBox("Ваше сообщение отправлено. Спасибо!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Ваше сообщение не было отправлено. Пожалуйста, повторите попытку", MsgBoxStyle.Critical)
        End Try
        Me.Close()
    End Sub
#End Region