VB6/VB.NET4.0应用对接Outlook365发邮件遇认证失败求助

1. 验证Office365账户的SMTP权限配置 #

• 确保目标邮箱账户开启了SMTP AUTH功能：在Exchange管理员中心，找到对应邮箱的「邮件流」-「邮箱功能」选项，启用SMTP AUTH。
• 若账户开启了多重身份验证（MFA），代码中不能使用普通登录密码，必须替换为微软账户安全中心生成的应用密码。

2. 完善.NET 4.0的TLS1.2支持配置 #

.NET 4.0原生对TLS1.2的支持存在局限性，需补充以下代码配置，确保握手逻辑符合Office365要求：

' 在发送邮件的代码块前执行
ServicePointManager.SecurityProtocol = DirectCast(3072, SecurityProtocolType)
ServicePointManager.Expect100Continue = True
' 临时绕过证书验证（XP系统根证书过期可能导致验证失败，生产环境需替换为合法验证逻辑）
ServicePointManager.ServerCertificateValidationCallback = Function(sender, cert, chain, sslPolicyErrors) True

3. 确保XP系统支持TLS1.2 #

XP系统默认不支持TLS1.2，需安装官方补丁：

• 安装适用于XP SP3的KB3140245补丁，为系统添加TLS1.1和TLS1.2协议支持。
• 安装完成后重启系统，确认TLS1.2在系统层面可用。

4. 替代方案：使用兼容的第三方SMTP组件 #

若原生SmtpClient仍无法解决问题，可替换为支持TLS1.2的第三方组件，比如兼容.NET 4.0的MailKit 1.x版本：

Imports MailKit.Net.Smtp
Imports MimeKit

Try
    Using client As New SmtpClient()
        ' 使用StartTLS模式连接
        client.Connect("smtp.office365.com", 587, SecureSocketOptions.StartTls)
        ' 用应用密码（MFA开启时）或普通密码验证
        client.Authenticate("your-account@domain.com", "your-password/app-password")

        Dim message As New MimeMessage()
        message.From.Add(New MailboxAddress("发送人", FromAddress))
        message.To.Add(New MailboxAddress("收件人", ToAddress))
        message.Subject = $"Test Email {DateTime.Now}"
        message.Body = New TextPart("plain") With { .Text = "This is for testing SMTP mail using MailKit" }

        client.Send(message)
        client.Disconnect(True)
    End Using
    MsgBox("Mail sent")
Catch ex As Exception
    MsgBox($"Error : {ex.Message}")
End Try

注：需将MailKit和MimeKit的.NET 4.0版本引入项目。

错误5.7.57/535的常见排查点 #

1. 邮箱账户未启用SMTP AUTH
2. MFA开启时使用了普通密码而非应用密码
3. XP系统未安装TLS1.2补丁导致协议握手失败
4. 账户触发Exchange Online安全策略（如登录地域异常、密码过期）

内容的提问来源于stack exchange，提问作者Slugsie