如何通过vb.net中的smtp通过电子邮件发送短信

Question

我正在尝试设置一个简单的vb表单，只需点击一下按钮就可以将电子邮件发送到电话号码。我得到一个似乎与连接有关的长错误。这是我正在使用的代码。

Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Handles button01.Click

    Try

        Dim smtpserver As New SmtpClient()
        Dim mail As New MailMessage()
        smtpserver.Credentials = New Net.NetworkCredential("myemail@gmail.com", "mypassword")
        smtpserver.Port = 465
        smtpserver.Host = "smtp.gmail.com"
        mail = New MailMessage()
        mail.From = New MailAddress("myemail@gmail.com")
        mail.To.Add("3135555555@messaging.sprintpcs.com")
        mail.Subject = "Test"
        mail.Body = "hello This is a test"
        smtpserver.Send(mail)
        MsgBox("Message Sent")
    Catch ex As Exception
        MsgBox(ex.ToString)
        Close()
    End Try


End Sub

这是我得到的错误。

防火墙和IPS均已禁用。有没有人看到任何可能的问题？谢谢。