VBA调用Google SMTP发邮件报0x80040217 需适配OAuth2认证

CDO组件原生不支持OAuth2认证，不存在修改cdoSMTPAuthenticate配置项即可适配OAuth2的对应取值。CDO是早已停止功能更新的遗留组件，最后一次功能迭代远早于主流邮件服务商普及OAuth2认证的时间点，仅支持匿名、明文基础认证、NTLM三种老旧认证方式，没有预留OAuth2适配接口，你之前的排查思路无法落地。

你提到的无需配置Outlook账户、支持动态指定发件人的需求完全可以满足，不需要依赖Outlook对象模型，有两个可直接落地的方案：

方案1：使用Gmail应用专用密码（零代码修改，最快生效） #

如果使用个人免费Gmail账号，不需要对接OAuth2逻辑即可恢复发信：

• 先为对应Google账号开启两步验证，未开启两步验证的账号无法生成应用专用密码
• 在Google账号的安全设置页面生成16位长度的应用专用密码，用该密码替换原有代码中填写的Gmail账号登录密码
• 原有CDO代码不需要做逻辑改动，仅需要把SMTP端口从465调整为587（CDO对465端口的隐式SSL兼容存在已知问题，587端口的STARTTLS模式适配更稳定），即可正常发送邮件

注意：该方案仅适用于个人免费Gmail账号，如果是Google Workspace企业账号，且管理员关闭了应用专用密码权限，请使用方案2。

方案2：替换为支持OAuth2的轻量发信实现（适配所有账号类型） #

如果应用专用密码不可用，直接替换CDO组件即可，不需要依赖本地邮件客户端：

• 可以调用系统自带的WinHttp.WinHttpRequest组件自行实现SMTP over OAuth2流程：先获取Gmail的OAuth2访问令牌，在SMTP认证阶段发送AUTH XOAUTH2指令拼接令牌完成认证，后续走标准SMTP流程发信即可
• 也可以直接使用成熟的开源VBA邮件发送类，这类实现已经封装好了OAuth2认证、附件编码、多收件人/抄送/密送处理等逻辑，只需要在Google Cloud控制台创建桌面端OAuth凭据，拿到客户端ID和客户端密钥，在代码中完成账号授权配置即可，完全支持动态指定发件人，不需要本地安装配置任何邮件客户端。

仅需要修改CDO配置中的端口参数即可：

' 保留SSL开启配置，将端口从465修改为587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
' 函数的sPassword参数传入16位应用专用密码，不要使用账号原登录密码

其余代码逻辑完全不需要改动，调整后即可正常发信。

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