Envio de email após cadastro

[p986176 0]

Olá a todosAlguém pode dar uma mãozinha aqui. õ coisinha chata esse cdonts viu.Após um script de cadastro estou tentando enviar para o email do cadastrado seus dados e outras informaçoes. O cdonts está instalado no servidor onde roda o site, não dá erro nenhum, mas o email nao chega. estou rodando a página online. O QUE PODE ESTÁ HAVENDO? Vejam o código. Obrigado!<!--#include file="conexao.asp"--><%Dim data,cnpj,fantasia,razaosocial,endereco,cidade,tel,email,emailpadrao,senhaemailpadrao = "projetomasters@ig.com.br"emailadm="administrador@administrador.com.br"data=session("DataCadastro")cnpj=request.form("cnpj")fantasia=request.form("fantasia")razaosocial=request.form("razaosocial")endereco = request.form("endereco")cidade=request.form("cidade")tel=request.form("telefone")email=request.form("email")senha=request.form("senha")senha2=request.form("senha2")if cnpj = "" thenresponse.write "<b><font color=""red"" size=""3""><center>Problemas no Preenchimento do formulário.</center>"response.write "<b><center>Preencha o CNPJ da empresa.</center>"response.write "<b><center><A HREF='cadastro_proximo.asp?status=concordo'>Voltar</A></b></center>"elseif fantasia = "" thenresponse.write "<b><b><font color=""red"" size=""3""><center>Problemas no Preenchimento do formulário.</center>"response.write "<b><center>Entre com o nome fantasia da empresa.</center>"response.write "<b><center><A HREF='cadastro_proximo.asp?status=concordo'>Voltar</A></b></center>"elseif razaosocial = "" thenresponse.write "<b><b><font color=""red"" size=""3""><center>Problemas no Preenchimento do formulário.</center>"response.write "<b><center>Entre com a razão social da empresa.</center>"response.write "<b><center><A HREF='cadastro_proximo.asp?status=concordo'>Voltar</A></b></center>"elseif cidade ="" thenresponse.write "<b><b><font color=""red"" size=""3""><center>Problemas no Preenchimento do formulário.</center>"response.write "<b><center>Preencha o campo cidade.</center>"response.write "<b><center><A HREF='cadastro_proximo.asp?status=concordo'>Voltar</A></b></center>"elseif tel="" thenresponse.write "<b><b><font color=""red"" size=""3""><center>Problemas no Preenchimento do formulário.</center>"response.write "<b><center>Preencha o campo telefone.</center>"response.write "<b><center><A HREF='cadastro_proximo.asp?status=concordo'>Voltar</A></b></center>"elseif senha = "" thenresponse.write "<b><b><font color=""red"" size=""3""><center>Problemas no Preenchimento do formulário.</center>"response.write "<b><center>Informe a senha de acesso ao sistema.</center>"response.write "<b><center><A HREF='cadastro_proximo.asp?status=concordo'>Voltar</A></b></center>"elseif senha <> senha2 thenresponse.write "<b><b><font color=""red"" size=""3""><center>Problemas no Preenchimento do formulário.</center>"response.write "<b><center>A senha digitada e a confirmação da senha não conferem.</center>"response.write "<b><center><A HREF='cadastro_proximo.asp?status=concordo'>Voltar</A></b></center>"end ifset rs = server.createobject("ADODB.Recordset")rs.open "select * from lojas", conn , 3 ,3rs.addnew rs("Data")= datars("CNPJ")=cnpjrs("NomeFantasia")=fantasiars("RazaoSocial")=razaosocialrs("End")=enderecors("Cidade")=cidaders("Telefone")= telrs("Email")=emailrs("Senha")=senhars.updateFechaConexao%> <%cnpj=request.form("cnpj")razaosocial=request.form("razaosocial")tel=request.form("telefone")email=request.form("email")senha=request.form("senha")Banco = "Banco do Brasil"Agencia = "0346"Conta = "26017-7"Operacao = "001"Set objMail = Server.CreateObject("CDONTS.NewMail")objMail.Subject = "Cadastro On Line"objMail.BodyFormat=1objMail.MailFormat=1objmail.Importance=2strBody = "Caro lojista."strBody = strBody & "Estamos encaminhando os dados do seu cadastro postados em nosso formulário de registro. Segue abaixo os dados bancários para pagamento da sua assinatura." & vbcrlf & vbcrlfstrBody = strBody & "CNPJ: " & cnpj & vbcrlf & vbcrlfstrBody = strBody & "Razão Social: " & razaosocial & vbcrlf & vbcrlfstrBody = strBody & "Telefone de Contato " & tel & vbcrlf & vbcrlfstrBody = strBody & "Email: " & email & vbcrlf & vbcrlfstrBody = strBody & "Senha: " & senha & vbcrlf & vbcrlfstrBody = strBody & "Banco: " & Banco & vbcrlf & vbcrlfstrBody = strBody & "Agência: " & Agencia & vbcrlf & vbcrlfstrBody = strBody & "Conta Corrente: " & Conta & vbcrlf & vbcrlfstrBody = strBody & "Operação: " & Operacao & vbcrlf & vbcrlfresponse.write strBody' Definimos o corpoobjMail.Body = strBodyobjMail.Send Set objMail = nothing' Fim :rolleyes: %><%Response.write "<center><b><font face=""Verdana"" color=""red"" size=""1"">"response.write "<br><br>O Cadastro da loja foi efetuado com sucesso. </font></center>"response.write "<b><center><A HREF='index.asp'>Página Principal</A></b></center>"%>

[MetalPhoeniX 0]

Olá,

nunca usei o CDONTS, mas o código de envio eu acho que é esse:

<%set objMail = server.createobject("CDONTS.NewMail")objMail.From = "email@servidor.com.br"objMail.To = emailobjMail.Subject = "Cadastro On-Line"objMail.Body = "<html><body>Tal Tal Tal" & _"<br><a href=""http://www.seusite.com.br/"">SeuSite</a></body></html>"objMail.BodyFormat = 0objMail.MailFormat = 0objMail.SendResponse.Redirect "sucesso.asp"set objMail = Nothing%>

Ajeite a mensagem e o E-mail "email@servidor.com.br", pois acho que você tinha se esquecido de definir o E-Mail de enviar e o email para onde enviar...

Fuiz... :lol:

[namio 0]

MetalPhoenix está certo. p986176, você esqueceu de informar o destinatário da mensagem. Altere o seu código para deixá-lo da seguinte forma:

 

Set objMail = Server.CreateObject("CDONTS.NewMail")objMail.From = endereco_origemobjMail.To = endereco_destinoobjMail.Subject = "Cadastro On Line"objMail.BodyFormat=1objMail.MailFormat=1objmail.Importance=2strBody = "Caro lojista."strBody = strBody & "Estamos encaminhando os dados do seu cadastro postados em nosso formulário de registro. Segue abaixo os dados bancários para pagamento da sua assinatura." & vbcrlf & vbcrlfstrBody = strBody & "CNPJ: " & cnpj & vbcrlf & vbcrlfstrBody = strBody & "Razão Social: " & razaosocial & vbcrlf & vbcrlfstrBody = strBody & "Telefone de Contato " & tel & vbcrlf & vbcrlfstrBody = strBody & "Email: " & email & vbcrlf & vbcrlfstrBody = strBody & "Senha: " & senha & vbcrlf & vbcrlfstrBody = strBody & "Banco: " & Banco & vbcrlf & vbcrlfstrBody = strBody & "Agência: " & Agencia & vbcrlf & vbcrlfstrBody = strBody & "Conta Corrente: " & Conta & vbcrlf & vbcrlfstrBody = strBody & "Operação: " & Operacao & vbcrlf & vbcrlfresponse.write strBody' Definimos o corpoobjMail.Body = strBodyobjMail.Send Set objMail = nothing

Atribua valores para endereco_origem e endereco_destino.

 

Abraço

 

Nâmio Evangelista Cavalcante