问题描述
我正在尝试使用 Amazon Simple Email Service SMTP 发送电子邮件。
我将电子邮件发送配置为使用端口 465 和 SSL,因为可用于 VB 脚本的 CDOSys 不支持 TLS。但即便如此,我还是在 objCDOSYSMail.Send 命令所在的行上收到错误错误“80040211”
我通过 TELNET 测试了 465 端口的连接,一切都表明连接到该端口没有问题。
下面是我的测试代码,我只审查了我的 smtp 登录名和密码。 我很感激你能为我提供的任何帮助。我还测试了端口 25 和 587
Set objCDOSYSMail = Server.CreateObject("cdo.message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SERVIDOR DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "email-smtp.sa-east-1.amazonaws.com"
'PORTA Para COMUNICAÇÃO COM O SERVIÇO DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'PORTA DO CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Utilização de SSl
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
'ATIVAR RECURSO DE SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = true
'USUARIO Para SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXXXXXXXXXXXXXXXXXXX"
'SENHA DO USUARIO Para SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
'TEMPO DE TIMEOUT (EM SEGUNDOS)
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "loja@sabarabucu.com"
objCDOSYSMail.To = "ronaldo@onemedia.com.br"
objCDOSYSMail.Subject = "Teste"
objCDOSYSMail.HtmlBody = "Testando"
objCDOSYSMail.Send
Set objCDOSYSMail = nothing
Set objCDOSYSCon = nothing
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)