Vba CDO邮件问题“；传输无法连接到服务器"；

我正在尝试在Excel文件中设置一个userform，它会发送一封电子邮件，报告用户在电子表格中发现的任何错误/问题

Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant

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

iConf.Load -1
Set Flds = iConf.Fields

With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "bugreporter@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'smtp mail server
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'stmp server
    .Update
End With

With iMsg

    Set .Configuration = iConf
    .To = "example@domain.com"
    .From = "bugreporter@gmail.com"
    .Subject = "Hello"
    .TextBody = "Hi Dude"
    .Send
End With

Set iMsg = Nothing
Set iConf = Nothing

我收到一个错误“传输无法连接到服务器”。我对端口/端口转发不太了解，但我尝试了端口25、465和587，但都不起作用。我在工作网络上运行这个，但我假设至少有一个端口必须打开，因为Outlook在每个人的计算机上运行

---

我已经在gmail帐户上启用了IMTP，并且允许使用不太安全的应用程序。

Try

smtpserverport”）=587'stmp server

许多公司网络都设置了阻止通过smtp使用gmail.com的规则。我建议您在工作网络之外尝试代码。Try

smtpserverport“)=587'stmp服务器

许多公司网络都设置了阻止通过smtp使用gmail.com的规则。我建议您在工作网络之外尝试您的代码。