実行中の途中経過を出先で確認するために、メールにて確認しようと思っております。

本掲示板に紹介されている例を利用させていただいておりますが、送信がうまく行えません。
対処方法などをご存知でしたらご教授ください。

Private Sub mnSendMail_Click(sender As Object, e As EventArgs) Handles mnSendMail.Click
     Try
         Dim sReceiver As String = "*****@yahoo.co.jp"
         Dim sTitle As String = "fromVisualBasic"
         Dim sContents As String = "test message from VisualBasic."
         Dim sSender As String = "------@gmail.com"
         Dim sPassword As String = "+++++++"
         Dim sMessagingSpec As New System.Net.Mail.MailMessage(sSender, sReceiver, sTitle, sContents)
         Dim sSmtpClient As New System.Net.Mail.SmtpClient()

         sSmtpClient.Host = "smtp.gmail.com"
         sSmtpClient.Port = 465
         sSmtpClient.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
         sSmtpClient.Credentials = New System.Net.NetworkCredential(sSender, sPassword)
 
         sSmtpClient.Send(sMessageSpec)

         sMessagingSpec.Dispose()
         sSmtpClient.Dispose()

     Catch ex As Exception

         MsgBox(ex.Message)

     End Try
 End Sub

※SMTPホスト名とポートは Windows 10 に付属のメールアプリに表示される情報を参考にしました。
　実行結果は”メールは送信できませんでした”
　本メールアドれるは2段階認証のものです