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?

Foi útil?

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
scroll top