尝试通过SMTP发送电子表格时，“传输无法连接到服务器”

我正在尝试使用下面显示的代码通过SMTP发送Excel电子表格。 但是，每当我运行代码，我收到错误“传输失败连接到服务器” 。

这里是代码：

Sub CommandButton_Click() Dim CDO_Mail_Object As Object Dim CDO_Config As Object Dim SMTP_Config As Variant Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String Email_Subject = "Trying to send email using CDO" Email_Send_From = "[e-mail]" Email_Send_To = "[e-mail]" Email_Cc = "" Email_Bcc = "" Email_Body = "Congratulations!!!! You have successfully sent an e-mail using CDO !!!!" Set CDO_Mail_Object = CreateObject("CDO.Message") On Error GoTo debugs Set CDO_Config = CreateObject("CDO.Configuration") CDO_Config.Load -1 Set SMTP_Config = CDO_Config.Fields With SMTP_Config 'please put your server name below .Item("http://schemas.Microsoft.Com/cdo/configuration/smtpusessl") = True .Item("http://schemas.Microsoft.Com/cdo/configuration/smtpusetls") = True .Item("http://schemas.Microsoft.Com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[e-mail]" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.co.uk" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Update End With With CDO_Mail_Object Set .Configuration = CDO_Config End With CDO_Mail_Object.Subject = Email_Subject CDO_Mail_Object.From = Email_Send_From CDO_Mail_Object.To = Email_Send_To CDO_Mail_Object.TextBody = Email_Body CDO_Mail_Object.cc = Email_Cc 'Use if needed CDO_Mail_Object.BCC = Email_Bcc 'Use if needed 'CDO_Mail_Object.AddAttachment FileToAttach 'Use if needed CDO_Mail_Object.send debugs: If Err.Description <> "" Then MsgBox Err.Description End Sub 

上面的代码是否存在错误（我启用了Excel中包含的Microsoft CDO库>工具>引用），或者我提供的SMTP凭据中是否存在错误？
我使用错误的雅虎SMTP服务器（我应该使用.com）？

Answer 1

不知道，如果这在你的情况下工作，但我最近在类似的职位看到这一点。

尝试删除您的架构url中的大写字母？

“Microsoft.Com” – >“microsoft.com”