VB.NET下SMTP 465端口启用SSL发送邮件超时问题解决方案咨询

阿华AIGC实验室

2026-4-28

解决VB.NET中465端口SSL发送邮件超时的问题

这个问题我之前也碰到过，核心原因是.NET自带的SmtpClient类对465端口的SSL支持有特殊限制：465端口采用的是SMTPS协议（连接建立时直接启用SSL加密），而SmtpClient.EnableSsl = True默认是为STARTTLS协议（587端口，先建立明文连接再升级为SSL）设计的，直接搭配465+EnableSsl=True就会触发超时。下面给你几个可行的解决思路：

方案1：改用587端口+STARTTLS（推荐，最简单）

大部分主流邮箱服务商都支持587端口的STARTTLS，这也是SmtpClient原生支持的模式，调整代码即可：

Dim smtpServer As New SmtpClient()
smtpServer.Host = "你的SMTP服务器IP/域名"
smtpServer.Port = 587 ' 改用STARTTLS端口
smtpServer.Credentials = New System.Net.NetworkCredential(FromMail, Password)
smtpServer.EnableSsl = True ' 这里EnableSsl对应STARTTLS升级
smtpServer.Send(mail)

这个方案不需要额外写复杂代码，只要你的邮箱服务商支持587端口，基本都能正常工作。

方案2：手动实现SMTPS连接（必须用465端口时）

如果你的场景必须使用465端口，就得绕开SmtpClient的限制，手动通过TcpClient+SslStream建立加密连接并发送SMTP命令，示例代码如下：

Imports System.Net
Imports System.Net.Sockets
Imports System.Net.Security
Imports System.IO

Sub SendEmailViaSMTPS465()
    Dim fromMail As String = "你的发件邮箱"
    Dim password As String = "你的邮箱密码/授权码"
    Dim toMail As String = "收件人邮箱"
    Dim smtpHost As String = "你的SMTP服务器IP"
    Dim smtpPort As Integer = 465

    ' 建立TCP连接
    Using tcpClient As New TcpClient(smtpHost, smtpPort)
        ' 包装为SSL加密流
        Using sslStream As New SslStream(tcpClient.GetStream(), False, AddressOf ValidateServerCert)
            sslStream.AuthenticateAsClient(smtpHost)

            Dim reader As New StreamReader(sslStream)
            Dim writer As New StreamWriter(sslStream) With {.AutoFlush = True}

            ' 读取服务器初始响应
            Console.WriteLine(reader.ReadLine())

            ' 发送EHLO命令标识客户端
            writer.WriteLine($"EHLO {Dns.GetHostName()}")
            Console.WriteLine(reader.ReadLine())

            ' 登录认证（邮箱和密码需要Base64编码）
            writer.WriteLine("AUTH LOGIN")
            Console.WriteLine(reader.ReadLine())
            writer.WriteLine(Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(fromMail)))
            Console.WriteLine(reader.ReadLine())
            writer.WriteLine(Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(password)))
            Console.WriteLine(reader.ReadLine())

            ' 指定发件人和收件人
            writer.WriteLine($"MAIL FROM:<{fromMail}>")
            Console.WriteLine(reader.ReadLine())
            writer.WriteLine($"RCPT TO:<{toMail}>")
            Console.WriteLine(reader.ReadLine())

            ' 开始发送邮件内容
            writer.WriteLine("DATA")
            Console.WriteLine(reader.ReadLine())
            writer.WriteLine($"From: {fromMail}")
            writer.WriteLine($"To: {toMail}")
            writer.WriteLine("Subject: 测试465端口SSL发送邮件")
            writer.WriteLine("")
            writer.WriteLine("这是通过465端口SSL发送的测试邮件")
            writer.WriteLine(".") ' 邮件内容结束标记
            Console.WriteLine(reader.ReadLine())

            ' 退出连接
            writer.WriteLine("QUIT")
            Console.WriteLine(reader.ReadLine())
        End Using
    End Using
End Sub

' 证书验证回调（生产环境建议严格验证，这里简化处理）
Function ValidateServerCert(sender As Object, cert As Security.Cryptography.X509Certificates.X509Certificate, chain As Security.Cryptography.X509Certificates.X509Chain, errors As SslPolicyErrors) As Boolean
    ' 生产环境请根据实际需求验证证书合法性，这里暂时返回True
    Return True
End Function

方案3：使用MailKit库（推荐给新项目）

如果你用的是.NET Core 3.1+或.NET 5+版本，SmtpClient已经被标记为过时，更推荐使用MailKit这个第三方库——它原生支持SMTPS（465端口），API更友好，错误处理也更完善。

先通过NuGet安装MailKit，然后用以下代码实现：

Imports MailKit.Net.Smtp
Imports MimeKit

Sub SendEmailWithMailKit()
    Dim message As New MimeMessage()
    message.From.Add(New MailboxAddress("发件人名称", "你的发件邮箱"))
    message.To.Add(New MailboxAddress("收件人名称", "收件人邮箱"))
    message.Subject = "MailKit测试465端口SSL邮件"

    ' 设置邮件内容
    message.Body = New TextPart("plain") With {
        .Text = "这是用MailKit通过465端口SSL发送的测试邮件"
    }

    Using client As New SmtpClient()
        ' 直接连接465端口的SMTP服务器，第三个参数True表示启用SSL
        client.Connect("你的SMTP服务器IP", 465, True)
        ' 身份认证
        client.Authenticate("你的发件邮箱", "你的邮箱密码/授权码")
        ' 发送邮件
        client.Send(message)
        ' 断开连接
        client.Disconnect(True)
    End Using
End Sub