CDO邮件问题“传输失败连接到服务器”
我正在尝试在Excel文件中设置一个用户表单，该文件发送一封电子邮件来报告用户在电子表格中发现的任何错误/问题。
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，并没有一个工作。 我从一个工作networking运行这个，但我认为至less有一个端口必须打开，因为我们有Outlook在每个人的计算机上运行。
我已经启用IMTP的Gmail帐户，以及允许不太安全的应用程序。