Отправка писем на 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

Imports System.Net.Mail
Imports System.Text
Public Class Form3
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim email As New MailMessage
        Dim smtp As SmtpClient
        smtp = New SmtpClient("smtp.mail.ru") ' Пример smtp.mail.ru
        smtp.Credentials = New Net.NetworkCredential("IvanovES@mail.ru", "password1")
        email.From = New MailAddress("IvanovES@mail.ru")
        email.To.Add(New MailAddress("PetrovKN@mail.ru"))
        email.Body = "test_вложения"
        email.Subject = "test_вложения"
        email.Attachments.Add(New System.Net.Mail.Attachment("d:\rasp_p04ta\2.xls"))
        smtp.Send(email)
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim EMail As New MailMessage
        Dim Smtp As SmtpClient
 
        Smtp = New SmtpClient("smtp.yandex.ru")
        Smtp.EnableSsl = True
        Smtp.Port = 25 'попробовал менять, перед выдачей сообщения о неудаче увеличивается задержка, и только
        Smtp.Credentials = New Net.NetworkCredential("бла-бла@yandex.ru", "бла-бла") 'Данные Вашей почты (отправителя)
        EMail.From = New MailAddress("бла-бла@yandex.ru") ' Subject.Text здесь для красоты, по желанию можно убрать
        EMail.To.Add(New MailAddress("бла-бла@gt-parts.ru")) 'кому
        EMail.Body = "Тест" 'Основной текст
        EMail.Subject = "Тест" 'Тема письма
        
        Try
            Smtp.Send(EMail)
            MsgBox("Ваше сообщение отправлено. Спасибо!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Ваше сообщение не было отправлено. Пожалуйста, повторите попытку", MsgBoxStyle.Critical)
        End Try
        Me.Close()
    End Sub