excel - 使用 VBA 在 Excel 中发送电子邮件，没有 Outlook，64 位

Question

我正在使用下面的代码尝试使用 VBA 在 Excel 中发送电子邮件。我不断收到错误消息:

Run-time error '-2147220973 (80040213)': The transport failed to connect to the server.

我尝试过更改端口(25、465、587)，更改电子邮件服务器(smtp.gmail.com、smtp.live.com)，同时尝试了 gmail 和 Hotmail，在两个 gmail 帐户上都启用了不太安全的功能，甚至设置了 Outlook 并禁用了Avast 中的防火墙。

这是代码:

Sub CDO_Mail_Small_Text()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant



    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '587 '465 '25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xyz@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
        .Update
    End With

    strbody = "Hi there" & vbNewLine & vbNewLine & _
        "This is line 1" & vbNewLine & _
        "This is line 2" & vbNewLine & _
        "This is line 3" & vbNewLine & _
        "This is line 4"

    With iMsg
        Set .Configuration = iConf
        .To = "charlie@gmail.com"
        .CC = ""
        .BCC = ""
        .From = "xyz@gmail.com"
        .Subject = "New figures"
        .TextBody = strbody
        .Send
    End With
End Sub

我现在开始认为这与我使用的是 Windows 10 64 位和 Office 2016 64 位这一事实有关。 - 只是预感，我是 64 位新手，喜欢它，但正在学习。

有人可以建议我是否走在正确的轨道上，以及如何才能让它飞起来。如果我不在正确的轨道上，还有什么可能是挂断？

我搜索了搜索问答，但没有找到任何具体内容。

Answer 1

在 Google 的 GMail 网站上，您必须打开此功能才能使 CDO 工作。

在您的 Gmail 页面上单击:

Settings - Accounts and Import - Other Google Account Settings - [At very bottom of page] Allow less secure apps.

同样从内存中，您第一次使用它时必须单击电子邮件中的链接(已经有几年了)。