VB.NET中SmtpClient发送邮件失败：多端口与SSL尝试无效

针对你遇到的SmtpClient发送邮件失效问题，即使更换端口、调整SSL设置仍无法解决，可按以下步骤排查：

1. 确认邮箱服务商的最新SMTP规则 #

不同邮箱服务商的SMTP配置可能有更新：

• 多数服务商（如QQ、网易、Outlook）要求使用授权码而非原邮箱登录密码，需先在邮箱后台开启POP3/SMTP服务并生成授权码。
• 端口对应规则：
  • 465：SSL加密连接，需确保EnableSsl = True
  • 587：STARTTLS加密，部分服务商要求先连接再升级加密，需确认EnableSsl设置是否匹配
  • 25：多数公共邮箱已禁用该端口，或仅允许IP白名单内的服务器使用

2. 修复Credentials配置顺序问题 #

代码中注释了UseDefaultCredentials = True，这里存在关键配置顺序错误：必须先将UseDefaultCredentials设为False，再设置Credentials，否则自定义凭证会被系统默认凭证覆盖。修正后的代码片段：

smtp.UseDefaultCredentials = False ' 先禁用默认凭证
smtp.Credentials = New Net.NetworkCredential(xEmailOrigenUsuario, xEmailOrigenContraseña)

3. 添加异常捕获定位具体错误 #

原代码未处理异常，无法得知失败原因。添加Try-Catch块捕获并输出异常详情，这是定位问题的核心：

Public Sub EnviarEmail(ByVal pMensaje As String, ByVal pAsunto As String)
    Try
        Dim message As New MailMessage
        Dim smtp As New SmtpClient
        message.From = New MailAddress(xEmailOrigen)
        message.To.Add(xEmailDestino)
        message.Body = pMensaje
        message.Subject = pAsunto
        message.Priority = MailPriority.Normal

        smtp.EnableSsl = xEmailOrigenSSL
        smtp.Port = xEmailOrigenPuertoSMTP
        smtp.Host = xEmailOrigenHostSMTP
        smtp.UseDefaultCredentials = False
        smtp.Credentials = New Net.NetworkCredential(xEmailOrigenUsuario, xEmailOrigenContraseña)

        smtp.Send(message)
    Catch ex As Exception
        ' 输出异常信息到日志或控制台
        Console.WriteLine($"发送失败：{ex.Message}")
        If ex.InnerException IsNot Nothing Then
            Console.WriteLine($"内部错误：{ex.InnerException.Message}")
        End If
    End Try
End Sub

通过异常信息可直接判断问题类型：

• "认证失败"：密码/授权码错误，或未开启SMTP服务
• "无法连接远程服务器"：端口被防火墙拦截，或SMTP主机地址错误
• "服务器响应5xx"：邮件被服务商拦截，需检查SPF/DKIM配置或邮件内容

4. 排查网络环境限制 #

• 检查本地/服务器防火墙、杀毒软件是否封禁了SMTP端口（25端口常被企业网络封禁）
• 使用telnet命令测试SMTP连接：telnet 你的SMTP主机 端口，若无法连接则说明网络层面存在问题

5. 考虑替换过时的SmtpClient #

.NET Framework中的SmtpClient已被标记为过时，长期维护建议迁移到更稳定的邮件库（如MailKit），其对现代SMTP协议支持更完善，错误处理更清晰。

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