Erro ao enviar email usando CDONTS

[KERNELL 0]

Boa noite galerinha,

 

estou tentando enviar e-mail usando os objetos Cdonts ou Jmail e em ambos recebo sempre a mesma msg.

 

Tipo de erro:

Objeto Server, ASP 0177 (0x800401F3)

Seqüência de classe inválida

/freeout/sendmail_jmail.asp, line 18

 

 

essa msg serve tanto pro jmail quanto pro cdonts.

 

o que tem exatamente nesse linha 18 é:

 

Set JMail = Server.CreateObject("JMail.SMTPMail")

ou

Set JMail = Server.CreateObject("CDONTS.NewMail")

 

 

Uso o win xp professional

 

Peço a ajuda de vcs para solucionar esse probleminha.

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Generation 0]

Veja se voce possui o componente Cdonts ou Jmail instalado no servidor...T+

[Célio-Ctba 0]

Só, que tenho um caso que foje a esta realidade, já tenho uma página com CDONTS, agora elaborei outra para um sistema de indicação, e está gerando este mesmo erro.Alguém tem idéia?

[explore 3]

Set JMail = Server.CreateObject("CDONTS.NewMail") Da uma atualizada no seu componente!!!!!!

[Mário Monteiro 179]

Set JMail = Server.CreateObject("JMail.SMTPMail")ouSet JMail = Server.CreateObject("CDONTS.NewMail")

o que eh isso?? :wacko: qual o seu componente??

[Célio-Ctba 0]

Set JMail = Server.CreateObject("CDONTS.NewMail")

Da uma atualizada no seu componente!!!!!!

<{POST_SNAPBACK}>

É que está em uma hospedagem, eles alegaram que as aplicações de outros usuarios estao funcionando, e me disseram a mesma coisa, se o fale conosco q tb usa Cdonts tá func., esse de indique com a funcao CDONTS tb teria q funcionar.

e agora?

[explore 3]

Posta seu Cdondts ineiro ai! para ver oque está passando!

[Célio-Ctba 0]

***************** pagina 1 **********************************

ASP

[*]dim useraction, variavel

 

[*]

 

[*]useraction = request("action")

 

[*]select case useraction

 

[*] case "login"

 

[*]

 

[*] Set variavel = Server.CreateObject("CDONTS.NewMail")

 

[*]  

 

[*]

 

[*]  

 

[*]  Dim seunome, seuemail, nomeamigo, emailamigo

 

[*]

 

[*] seunome = request.form("seunome")

 

[*] seuemail = request.form("seuemail")

 

[*] nomeamigo = request.form("nomeamigo")

 

[*] emailamigo = request.form("emailamigo")

 

[*] variavel.To = emailamigo

 

[*] variavel.From = seunome

 

[*] variavel.Subject = "V I S I T E ! ! !"

 

[*] variavel.Body = htmlemail

 

[*] variavel.MailFormat = 0

 

[*] variavel.Bodyformat = 0

 

[*] variavel.Send

 

[*]

 

[*]

 

[*] Set variavel= Nothing

 

[*]

 

[*] response.redirect "indique2.asp"

 

[*]

 

[*]end select

 

[*]%>

**********************pagina 2 ********************************

 

ASP

[*]<% Dim variavel

 

[*]

 

[*] seunome = request.form("seunome")

 

[*] seuemail = request.form("seuemail")

 

[*] nomeamigo = request.form("nomeamigo")

 

[*] emailamigo = request.form("emailamigo")

 

[*] Set variavel = Server.CreateObject("CDONTS.NewMail")

 

[*]

 

[*] variavel.To = seuemail

 

[*] variavel.From = "contato@empresa.com"

 

[*] variavel.Subject = "O B R I G A D O"

 

[*]

 

[*] variavel.Body = htmlemail

 

[*]

 

[*] variavel.MailFormat = 0

 

[*] variavel.Bodyformat = 0

 

[*] variavel.Send

 

[*]

 

[*]

 

[*]

 

[*] if objCDO.Send = true then

 

[*] response.redirect "ok.asp"

 

[*] else

 

[*] response.redirect "indique.asp"

 

[*]  end if

 

[*]Set variavel= Nothing

 

[*]%>

 

[*]

[explore 3]

Não vi nada de errado em seu Codigo!!!!!!tenta tirar o Case e substituir por IF!

[Célio-Ctba 0]

Certo, tirei toda aquela parte do case e login. Agora ele dá erro lá no IF da pag2, bem la no final, se eu tirar aquele IF, ele manda o email apenas confirmando pra quem indicou ou seja a pagina 1. Ele pula para a pagina ok, sem enviar a indicação para o email da pagina2.Ou seja, quem manda a indicação está recebendo um email de confirmação, mas a pessoa que deveria recer a indicação, não chega email nenhum.

[Generation 0]

O segundo e-mail não esta indo porque com certeza não deve estar sendo passado os dados do request.form para que seja enviado, coloque tudo em uma pagina só que alem de mais legivel fica mais facil para voce.

 

 

email.asp

ASP

[*]<%

 

[*]'Variaveis com os dados do form

 

[*]seunome = request.form("seunome")

 

[*]seuemail = request.form("seuemail")

 

[*]nomeamigo = request.form("nomeamigo")

 

[*]emailamigo = request.form("emailamigo")

 

[*]

 

[*]'Enviando o E-Mail de Indicação

 

[*]

 

[*]'Criando o Objeto

 

[*]Set variavel = Server.CreateObject("CDONTS.NewMail")

 

[*]

 

[*]variavel.To = emailamigo

 

[*]variavel.From = seunome

 

[*]variavel.Subject = "V I S I T E ! ! !"

 

[*]variavel.Body = htmlemail

 

[*]variavel.MailFormat = 0

 

[*]variavel.Bodyformat = 0

 

[*]variavel.Send

 

[*]'Destruindo o Objeto

 

[*]Set variavel= Nothing

 

[*]

 

[*]

 

[*]'Enviando o Agradecimento

 

[*]Set variavel = Server.CreateObject("CDONTS.NewMail")

 

[*]

 

[*]variavel.To = seuemail

 

[*]variavel.From = "contato@empresa.com"

 

[*]variavel.Subject = "O B R I G A D O"

 

[*]variavel.Body = htmlemail

 

[*]variavel.MailFormat = 0

 

[*]variavel.Bodyformat = 0

 

[*]variavel.Send

 

[*]'Destruindo o Objeto

 

[*]Set variavel= Nothing

 

[*]

 

[*]'Redirecionamos para a pagina de sucesso

 

[*]Response.Redirect "ok.asp"

 

[*]

 

[*]%>

 

 

Assim ele ja envia os dois e-mails e ja redireciona para a pagina de OK, sem ter que ir para outra pagina.

 

[]'s

[Célio-Ctba 0]

100% -- É isso mesmo, o segundo arquivo jamais iria receber dados do request.form, pois ele envia especificamente p/ o primeiro.Muito Obrigado.