VBA是否有向SMTP服务器发QUIT消息的函数？CDO连接释放方法

1. VBA中是否有发送SMTP QUIT消息的专用函数？ #

VBA没有类似.NET Dispose()的内置函数来主动触发SMTP QUIT消息，但CDO.Message对象在正常完成邮件发送流程后，会自动向SMTP服务器发送QUIT指令并关闭连接。只有当发送过程抛出异常、对象未被正确释放时，才可能出现连接未正常关闭的情况。

2. 如何在CDO发送邮件后强制释放SMTP连接？ #

你使用的Set config = Nothing和Set mail = Nothing是基础的资源释放操作，但受限于VBA延迟执行的垃圾回收机制，加上CDO底层可能存在连接池复用，这些操作有时无法立即释放连接。可以通过以下方案优化：

• 完善对象清理流程：发送完成后先清空邮件对象的核心属性，再清理配置字段，最后释放对象并调用DoEvents让系统及时回收资源：

  ' 邮件发送完成后执行
  mail.To = ""
  mail.Subject = ""
  mail.Body = ""
  ' 清空配置字段
  config.Fields.Delete
  config.Fields.Update
  ' 释放对象
  Set mail = Nothing
  Set config = Nothing
  DoEvents
  

• 缩短SMTP连接超时：初始化CDO配置时，设置较短的连接超时时间，避免闲置连接占用配额：

  config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 ' 单位：秒
  config.Fields.Update
  

• 避免复用CDO对象：每次发送邮件都创建全新的CDO.Message和Configuration实例，发送完成后立即释放，不要重复使用同一对象发送多封邮件，减少连接残留的概率。

• 极端情况：强制关闭连接：如果上述方法无效，可尝试通过Windows API强制关闭网络连接（此方法风险较高，需谨慎使用），需提前声明API函数：

  Private Declare Sub CloseHandle Lib "kernel32.dll" (ByVal hObject As Long)
  ' 注意：获取CDO连接句柄的逻辑较为复杂，且不同Office版本可能不兼容，仅作应急参考
  

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