使用CDO从VBA（MS Access）通过gmail发送电子邮件：传输无法连接到服务器

Question

我找到了以下代码，但它无效。

Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
    .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/smptserverport") = 465
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = MailSender
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = MailPassword
    .Item("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "xxx.xxx.x.xxx:8080"
    .Update
End With
' build email parts
With cdomsg
    .To = MailTo
    .From = MailSender
    .Subject = MailSubject
    .TextBody = MailText
    .Send
End With
    Set cdomsg = Nothing

我收到错误

The Transport Failed to connect to the Server

我在我尝试过的代理服务器后面，没有它。错误是一样的。我不确定的是，如果需要IIS才能工作，因为在搜索此错误时，通常是关于ASP和IIS的问题。我认为代码很好。它与为其他人工作的代码完全相同。

其他潜在问题？

编辑：

是否有工具可以让我获得有意义的错误消息？

编辑：

从来没有这个工作。公司更改为gmail作为电子邮件提供商，我没有使用我的私人Gmail（代理问题？）或我的公司电子邮件现在链接到gmail（“Google Business”）。但是，该公司已获得Affixa Chrome插件的许可。使用该插件可以发送电子邮件或更好地说，affixa将在Gmail中打开一个对话框，你必须手动按发送。