如何用CDO与Access VBA对接带SSO和MFA的M365企业邮箱发件

CDO在该场景下的可行性结论 #

CDO（Collaboration Data Objects）无法直接用于带MFA和企业SSO的Microsoft 365托管邮箱发件。原因在于：

• CDO依赖传统SMTP身份验证（用户名+密码），而启用MFA的M365账号已禁用直接SMTP密码登录，必须通过OAuth2或企业SSO流程完成身份验证；
• CDO本身不支持OAuth2协议或企业级单点登录的跳转验证逻辑，无法满足M365的安全认证要求。

VBA自动化发件的替代方案 #

1. Microsoft Graph API + VBA（官方推荐） #

通过调用Microsoft Graph API的邮件发送接口，可原生支持MFA和SSO认证，步骤如下：

• 在Azure AD中注册一个应用程序，申请Mail.Send权限（需管理员同意）；
• 在VBA中实现OAuth2认证流程（可使用MSAL的VBA封装或直接发送HTTP请求获取令牌）；
• 调用Graph API的POST /me/sendMail接口发送邮件。

示例代码片段（简化版，需补充认证逻辑）：

Sub SendEmailViaGraph()
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP.6.0")
    
    ' 替换为实际的访问令牌
    Dim accessToken As String
    accessToken = "YOUR_ACCESS_TOKEN"
    
    ' 邮件内容JSON
    Dim mailJson As String
    mailJson = "{" & _
        """message"": {" & _
            """subject"": ""测试邮件""," & _
            """body"": {" & _
                """contentType"": ""Text""," & _
                """content"": ""这是通过Graph API发送的测试邮件""}" & _
            ",""toRecipients"": [{" & _
                """emailAddress"": {" & _
                    """address"": ""recipient@example.com""}" & _
                "}]}" & _
        ",""saveToSentItems"": true}"
    
    With http
        .Open "POST", "https://graph.microsoft.com/v1.0/me/sendMail", False
        .SetRequestHeader "Authorization", "Bearer " & accessToken
        .SetRequestHeader "Content-Type", "application/json"
        .Send mailJson
        If .Status = 202 Then
            MsgBox "邮件发送成功"
        Else
            MsgBox "发送失败：" & .Status & " - " & .ResponseText
        End If
    End With
End Sub

2. Power Automate（微软流）中转 #

利用Power Automate的低代码能力，无需处理复杂认证：

• 创建一个Power Automate流，触发方式选择「当收到HTTP请求时」；
• 添加「发送电子邮件（V2）」动作，配置为使用企业M365账号；
• 在Access的VBA中，通过HTTP POST请求调用该流的触发URL，传递邮件主题、内容、收件人等参数。

这种方式的优势是无需在VBA中处理OAuth2认证，所有安全验证由Power Automate完成，适合快速实现需求。

3. 强制部署经典Outlook（备选） #

若企业内部可通过组策略或部署工具强制用户使用经典Outlook，可继续沿用原有的Outlook对象模型（OOM）方案：

• 通过组策略禁用新Outlook的默认启用状态；
• 确保所有用户的Office安装包包含经典Outlook组件。
  但该方案依赖企业IT的部署策略，无法适用于无法控制客户端环境的场景。

4. 第三方SMTP客户端库（进阶） #

部分第三方SMTP客户端库支持OAuth2认证，可通过VBA调用这些库的COM接口实现发件。但这类方案需要额外部署组件，且维护成本较高，不如前两种方案稳定。

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