1

我正在尝试使用 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
4

0 回答 0