我正在尝试使用 Amazon Simple Email Service SMTP 发送电子邮件。
我将电子邮件发送配置为使用带有 SSL 的端口 465,因为可用于 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