(Resolvido) Falha no e-mail

[fdirk]

Na minha máquina funciona. Mas quando é mandado para o ar o sistema não roda.

Da o seguinte erro:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/jornalista/funcoes_email.asp, line 7

800401f3

...
    Set email = server.CreateObject("CDONTS.NewMail")   'APONTA PARA ESTA LINHA
    email.from = fromemail
    email.to = toemail
    email.subject = subject
    email.body = body
    email.send
    set email = nothing
...

O q está errado??

[Bicicleta]

O componentes instanciado não existe. Verifique com seu servidor qual componente de e-mail eles disponibilizam e faça as alterações.

Abraço!

[fdirk]

Eu estou tentando verificar ...

Mas enquanto isso testei alterei o código para CDOsys ... mas agora está aparecendo outro erro:

The transport failed to connect to the server.

Aí apontou para linha 30 q nesse caso é:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")   
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")   
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com"     
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25     
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2     
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60     
    objCDOSYSCon.Fields.Update    
    Set objCDOSYSMail.Configuration = objCDOSYSCon   
    objCDOSYSMail.From = fromemail
    objCDOSYSMail.To =  toemail 
    objCDOSYSMail.Subject = subject 
    objCDOSYSMail.TextBody = body 
    objCDOSYSMail.Send                          'LINHA 30
    Set objCDOSYSMail = Nothing   
    Set objCDOSYSCon = Nothing

O q pode ser agora???

[Rafael Spilki]

Provavelmente você pode usar esse componente, mas o envio deve ser com autenticação de smtp...

Tente assim:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.coloqueaquiseudominio.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "seuemail@coloqueaquiseudominio.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senhadoseuemail"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update    
Set objCDOSYSMail.Configuration = objCDOSYSCon

    objCDOSYSMail.To =  toemail
    objCDOSYSMail.Subject = subject
    objCDOSYSMail.TextBody = body
    objCDOSYSMail.Send                          'LINHA 30
    Set objCDOSYSMail = Nothing  
    Set objCDOSYSCon = Nothing

[]'s

[bareta]

CDONTS não é usado mais...

o transporte se refere a um endereço de smtp incorreto, informe corretamente o smtp para autenticação

[fdirk]

Obrigada pela ajuda!!!

Liguei para o suporte do servidor do cliente.

Eles mudaram e agora só suportam o ASP Mail. Adpatei o formulário e peguei o host q eles usam.

=]

Att.