无法发送邮件(VB.net)

Question

我正试图用Dart控件发送邮件。它在特定的服务器上运行良好，但是由于我切换到了一个安全的服务器，我收到了以下错误消息：

协议异常-请求: AUTH登录响应: 530必须首先发出STARTTLS命令

以下是代码：

Dim Smtp1 As Smtp = New Smtp
Dim SMTPResult As SmtpResult
Dim Message As Dart.Mail.MailMessage = New Dart.Mail.MailMessage()

Smtp1.Session.RemoteEndPoint.Port = intPortNo
strErrLoc = "SMTP1.DnsServerTimeout"
Smtp1.DnsServerTimeout = 15 'default time out 30 seconds

strErrLoc = "Set User Name"
Smtp1.Session.Username = strUserID
Smtp1.Session.Password = strPWD

strErrLoc = "Subject and Mail TEXT"
Message.Subject = strSubject
If strHTMLEmail.Trim = "" Then
    Message.Text = strMailText
Else
    Message.Html = strHTMLEmail
End If

Smtp1.Session.Authentication = Authentication.Auto

Smtp1.Session.RemoteEndPoint.HostNameOrAddress = strServerName.Trim
Smtp1.Session.ServicePrincipleName = "SMTP/" & strServerName.Trim


SMTPResult = Smtp1.Send(Message)

Answer 1

建议使用显式安全性。

下面的代码实现了显式安全性解决了这个问题。

Smtp1.Session.Security.Encrypt = Encrypt.Explicit

Answer 2

尝试启用SSL模式，如

 Smtp1.EnableSSL = True

这是在Gmail的情况下有效的，请与您的查询。