SMTP valor de configuração SendUsing configuração é inválida com ASP-Classic
-
06-09-2019 - |
Pergunta
Eu estou tentando obter um e-mail enviado com ASP clássico, e estou tendo problemas com a configuração SMTP.
O erro:
CDO.Message.1 erro '80040220' O "SendUsing" valor de configuração é inválido.
O Código (para o próprio e-mail):
Set objMsg = Server.CreateObject("CDO.Message")
objMsg.From = "name@name.com"
objMsg.To = "themetatron@gmail.com"
objMsg.Subject = "Procurement Ally Update"
objMsg.TextBody = strBody
O Código Tentei configure com (Pt 1):
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "smtpserver") = "127.0.0.1"
.update
End With
Isso não funcionou, então eu tentei:
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMsg.Configuration.Fields.Update
Isso também não funcionou.
(Sim, eu não mostrá-lo, mas no final há uma chamada para objMsg.Send
)
Tanto quanto eu posso dizer, o serviço SMTP caixas locais está em execução e pronto para fazer o seu dever.
alguém pode ajudar?
Solução
Se você estiver especificando um smptserver, certifique-se de definir o seu ' SendUsing ' campo para 2 (ou cdoSendUsingPort) assim:
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMsg.Configuration.Fields.Update
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow