发送电子邮件VB.net异常

Question

这是我的代码，它运行时没有错误，但突然出现异常SMTP服务器需要安全连接，或者客户端未通过身份验证。服务器响应为：5.5.1需要身份验证。

Dim smtpserver As New SmtpClient()
    Dim mail As New MailMessage()
    smtpserver.Credentials = New Net.NetworkCredential("[e-mail]", "mypass")
    smtpserver.Host = "smtp.gmail.com"
    smtpserver.Port = "587"
    mail = New MailMessage
    mail.From = New MailAddress("[e-mail]")
    mail.To.Add(Form2.TextBox1.Text)
    mail.Subject = "EagleEyes"
    mail.Body = "EagleEyes has detected a movement!"
    If emailphoto Then
        Dim attach As New Attachment("D:hi" & sm & ".jpg")
        mail.Attachments.Add(attach)
    End If
    smtpserver.EnableSsl = True
    smtpserver.UseDefaultCredentials = False
    '   Try1
    smtpserver.Send(mail)
    'Catch ex As SmtpException
    'MsgBox("Error Connection!" & ex.Message)
    'End Try
    sm += 1

Answer 1

端口不要使用"。

请为端口尝试此操作：

smtpserver.Port = 587