vba - 在 Excel VBA 中使用 CDO 发送电子邮件不起作用

Question

我正在尝试在 Excel VBA 中发送电子邮件。根据我对 Internet 的研究，我启用了 Microsoft CDO for Windows 2000 Library并组成我的VBA代码如下:

Sub SendCDOMail()
    Dim objCDOMsg As Object

    Set objCDOMsg = CreateObject("CDO.Message")

    'CDO Configuration
    With objCDOMsg.Configuration.Fields
        '
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Server port (typically 25, 587)
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
        'SMTP server IP or Name
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
        'Type of authentication, NONE, Basic (Base64 encoded), NTLM
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        'SMTP Account User ID
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@bbbb.com"
        'SMTP Account Password
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
        'Use SSL for the connection (False or True)
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
        .Update
    End With

    'CDO Message
    objCDOMsg.Subject = "TEST Subject"
    objCDOMsg.From = "xx@xx.com"
    objCDOMsg.To = "xx@xx.com"
    objCDOMsg.TextBody = "TEST Body"

    objCDOMsg.Send

End Sub

但是，我收到错误消息:

The server rejected the sender address. The server response was: 530.5.7.57 SMTP;
Client was not authenticated to send anonymous mail during MAIL FROM

我还使用 PowerShell 尝试了相同的配置，并且成功了(smtpserver、用户名、密码、服务器端口……)。
我不知道它可能哪里出错了。

Answer 1

这里是:https://technet.microsoft.com/en-us/library/mt210446(v=exchg.150).aspx - 请注意，这是在“如何设置多功能设备或应用程序以使用 Office 365 发送电子邮件”的 Office365 部分中，因此可能还有其他内容适合您。

这表明您正在连接到无法用于直接发送的 SMTP 客户端提交端点 (smtp.office365.com)。对于直接发送，为您的 Office 365 租户使用 MX 端点，该端点以“mail.protection.outlook.com”结尾。 您可以按照 Full configuration instructions for direct send. 中的步骤找到您的 MX 端点。