Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

dardo_vr

Objeto Cdonts

Por , em ASP Clássico

Recommended Posts

dardo_vr    0

dardo_vr
Postado

Bem, criei um formulário de inscrição e preciso que os dados sejam enviados para o e-mail do administrador, optei por trabalhar com o Objeto Cdonts, a pagina parece estar correta, mais as informações não chegam a serem enviadas para o e-mail do administrador! obs.: Lembrando q este não é um tópico repitido.A quem poder me ajudar ficarei plenamente agradecido!Qual é o erro ?CDONTS.ASP<%strnome = Trim(Request.Form("nome"))stridentidade = Trim(Request.Form("identidade"))strexpeditor = Trim(Request.Form("expeditor"))strestado = Trim(Request.Form("estado"))strdia = Trim(Request.Form("dia"))strmes = Trim(Request.Form("mes"))strano = Trim(Request.Form("ano"))strsexo = Trim(Request.Form("sexo"))stropcao = Trim(Request.Form("opcao"))strunidade = Trim(Request.Form("unidade"))strcarreira = Trim(Request.Form("carreira"))strendereco = Trim(Request.Form("endereco"))strtelefone = Trim(Request.Form("telefone"))strcidade= Trim(Request.Form("cidade"))strcep = Trim(Request.Form("cep"))Set objMail = Server.CreateObject("CDONTS.NewMail")objMail.BodyFormat=0objMail.MailFormat=0objMail.To = "eduardopires9@hotmail.com"objMail.Cc = "dardovr@pop.com.br"objMail.From = strEmail objMail.Subject = "FASF SUL - Inscrição"strMsgParaCadastro = "<b>nome</b> " & strnome & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>identidade</b> " & stridentidade & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>expeditor</b> " & strexpeditor & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>estado</b> " & strestado & vbcrlf strMsgParaCadastro = strMsgParaCadastro & "<br><b>dia</b> " & strdia & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>mes</b> " & strmes & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>ano</b> " & strano & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>sexo</b> " & strsexo & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>opcao</b> " & stropcao & vbcrlf strMsgParaCadastro = strMsgParaCadastro & "<br><b>unidade</b> " & strunidade& vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>carreira</b> " & strcarreira & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>endereco</b> " & strendereco & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>telefone</b> " & strtelefone & vbcrlf strMsgParaCadastro = strMsgParaCadastro & "<br><b>cidade</b> " & strcidade& vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<br><b>cep</b> " & strcep & vbcrlfstrMsgParaCadastro = strMsgParaCadastro & "<hr>"objMail.Body = strMsgParaCadastroobjMail.Send %><% response.redirect "fasfsul.asp" %><%Set objMail = nothingstrMsgObrigado = "Olá <b>" & strNome & vbcrlfstrMsgObrigado = strMsgObrigado & ",<br></b>Sua mensagem foi enviada com sucesso!<br><br>" & vbcrlfstrMsgObrigado = strMsgObrigado & "Extraia sua boleta e efetue o pagamento.<br><br>" & vbcrlf & vbcrlfstrMsgObrigado = strMsgObrigado & "Abraços," & vbcrlfstrMsgObrigado = strMsgObrigado & "<br><i><b>Equipe Fasfsul</b></i>"Set objMail = Server.CreateObject("CDONTS.NewMail")objMail.From = "eduardopires9@hotmail.com"objMail.BodyFormat=0objMail.MailFormat=0objMail.To = strEmail 'observeobjMail.Subject = "Fale Conosco"objMail.Body = strMsgObrigadoobjMail.Send%>FASFSUL.ASP (formulário)<html><head><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"><meta name="ProgId" content="FrontPage.Editor.Document"><title>Nova pagina 1</title><style type="text/css"><!--.style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px;}.style6 {font-family: Verdana, Arial, Helvetica, sans-serif}.style7 {font-size: 10px}.style9 { font-size: 14px; font-weight: bold;}--></style></head><body topmargin="0" leftmargin="0"><div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="780"> <tbody><tr> <td><table border="0" cellpadding="0" cellspacing="0" width="79%"> <tbody><tr> <td width="100%"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" align="" height="120" width="780"> <param name="movie" value="fasfsul_files/topo_faculdade.swf"> <param name="quality" value="high"> <param name="bgcolor" value="#FFFFFF"> <embed src="fasfsul_files/topo_faculdade.swf" quality="high" bgcolor="#FFFFFF" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" align="" height="120" width="780"></object> </td> </tr></tbody></table> </td> </tr> <tr> <td><p align="center" class="style1"><span class="style9"><br> Ficha de Inscrição</span><br> <b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> </font></b></p> <form name="dados" method="post" action="cdonts.asp"> <p class="style1">Nome do candidato:<br> <input name="nome" type="text" id="nome2" size="40" maxlength="100"> </p> <table width="100%" border="0" bordercolor="#F5F5F5" bgcolor="#FFFFFF"> <tr> <td colspan="3" bgcolor="#F5F5F5" class="style1" scope="col"><div align="center">Documento de Identidade <br> </div></td> <td bgcolor="#FFFFFF" class="style1" scope="col"> </td> <td colspan="3" bgcolor="#F5F5F5" class="style1" scope="col"><div align="center">Data de Nascimento </div></td> <td bgcolor="#FFFFFF" class="style1" scope="col"> </td> <td bgcolor="#F5F5F5" class="style1" scope="col"><div align="center">Sexo</div></td> </tr> <tr> <td width="19%" height="14" bgcolor="#F5F5F5" scope="col"><div align="left" class="style1 style6 style7"> <p>Número de Identidade: <strong><br> <input name="identidade" type="text" id="identidade2" size="9" maxlength="9"> </strong></p> </div></td> <td width="14%" bgcolor="#F5F5F5" scope="col"><span class="style1">Órgão Expeditor: <strong><br> <input name="expeditor" type="text" id="expeditor2" size="3" maxlength="3"> </strong></span></td> <td width="13%" bgcolor="#F5F5F5" scope="col"><span class="style1">Estado Eminete: <br> <strong> <input name="eminente" type="text" id="estado2" size="2" maxlength="2"> </strong></span></td> <td width="11%" bgcolor="#FFFFFF" scope="col"> </td> <td width="4%" bgcolor="#F5F5F5" scope="col"><span class="style1">Dia<br> <strong> <input name="dia" type="text" id="dia2" size="2" maxlength="2"> </strong></span></td> <td width="5%" bgcolor="#F5F5F5" scope="col"><span class="style1">Mês<br> <strong> <input name="mes" type="text" id="mes2" size="2" maxlength="2"> </strong></span></td> <td width="8%" bgcolor="#F5F5F5" scope="col"><span class="style1">Ano<br> <strong> <select name="ano" id="select"> <option>1975</option> <option>1976</option> <option>1977</option> <option>1978</option> <option>1979</option> <option>1981</option> <option>1982</option> <option>1983</option> <option>1984</option> <option>1985</option> <option>1986</option> <option>1987</option> <option>1988</option> <option>1989</option> </select> </strong></span></td> <td width="11%" bgcolor="#FFFFFF" scope="col"> </td> <td width="15%" bgcolor="#F5F5F5" scope="col"> <div align="center"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><span class="style1"><strong> <select name="sexo" id="select2"> <option>Feminino</option> <option>Masculino</option> </select> </strong></span> </b></font> </div></td> </tr> </table> <br> <table width="100%" border="0"> <tr> <td width="28%" scope="col"><div align="left"><span class="style1">Opção:<br> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><strong> <select name="opcao" id="select4"> <option>Marketing - Noturno</option> <option>Sistema de Informações - Noturno</option> </select> </strong></b></font></span></div></td> <th width="53%" scope="col"> </th> <td width="19%" scope="col"><div align="right"><span class="style1">Unidade Federativa <br> em que reside: <br> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><strong> <select name="unidade" id="select5"> <option>RJ</option> <option>MG</option> </select> </strong></b></font> <br> </span></div></td> </tr> </table> <p class="style1">Nome da Carreira:<br> <input name="carreira" type="text" id="carreira2" size="40" maxlength="100"> </p> <p class="style1">Endereço para remessa de correspondência(rua, avnedia, praça, número, apartamento, etc):<br> <input name="end" type="text" id="end2" size="50" maxlength="100"> </p> <table width="100%" height="47" border="0"> <tr> <td width="11%" scope="col"><div align="left"><span class="style1">Telefone:<br> <input name="telefone" type="text" id="telefone3" size="12" maxlength="12"></span></div></td> <td width="15%" scope="col"><div align="left"><span class="style1">Cidade:<br> <input name="cidade" type="text" id="cidade" size="18" maxlength="18"></span></div></td> <td width="74%" scope="col"><div align="left"><span class="style1">Cep:<br> <input name="cep" type="text" id="cep" size="8" maxlength="8"> </span></div></td> </tr> </table> <p align="center"> <input type="submit" name="Submit" value="Enviar"> </p> </form> <p></p> <p class="style1">  </p> </td> </tr> </tbody></table> </center></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

maurohpg    0

maurohpg
Postado

Cara eu estava com o msm problema, só que o meu codigo eu não conseguia mandar com formatação html.

 

Esse código abaixo eu modifiquei e funcionou se quiser está perfeito envia com formatação html:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Option ExplicitDim nome, empresa, email, telefone,  mensagem, EnviarMail, MsgBody, var_to nome = Request.Form("nome")empresa = Request.Form("empresa")email = Request.Form("email")telefone = Request.Form("telefone")mensagem = Request.Form("mensagem")var_to = "maurohpg@hotmail.com"%><%Set EnviarMail = Server.CreateObject("CDONTS.NewMail")EnviarMail.To = var_toEnviarMail.From = emailEnviarMail.Subject = "Princípios de Conduta - Formulário enviado via Web"MsgBody = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu um emial de: <b>" & nome & "</b> <br>Empresa: <b>" & empresa & "</b><br>Email: <b>" & email & "</b><br>Telefone: <b>" & telefone & "</b><br>Mensagem: <b>" & mensagem & "</b></font>" _& "</body>" _& "</html>"EnviarMail.Body = MsgBodyEnviarMail.Importance = 1EnviarMail.BodyFormat = 0EnviarMail.MailFormat = 0EnviarMail.SendSet EnviarMail = Nothingresponse.Redirect(obrigado.htm)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

thiagocaetano    0

thiagocaetano
Postado

OláEstou usando esse código, mas quando cliko em enviar no form, aparece a página não pode ser exibida, sendo que ja criei a pagina obrigado.htm Me ajude por favor !!<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Option ExplicitDim nome, empresa, email, telefone, mensagem, EnviarMail, MsgBody, var_to nome = Request.Form("nome")empresa = Request.Form("empresa")email = Request.Form("email")telefone = Request.Form("telefone")mensagem = Request.Form("mensagem")var_to = "thiagoxoxo@hotmail.com"%><%Set EnviarMail = Server.CreateObject("CDONTS.NewMail")EnviarMail.To = var_toEnviarMail.From = emailEnviarMail.Subject = "Princípios de Conduta - Formulário enviado via Web"MsgBody = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu um emial de: <b>" & nome & "</b> <br>Empresa: <b>" & empresa & "</b><br>Email: <b>" & email & "</b><br>Telefone: <b>" & telefone & "</b><br>Mensagem: <b>" & mensagem & "</b></font>" _& "</body>" _& "</html>"EnviarMail.Body = MsgBodyEnviarMail.Importance = 1EnviarMail.BodyFormat = 0EnviarMail.MailFormat = 0EnviarMail.SendSet EnviarMail = Nothingresponse.Redirect(obrigado.htm)%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

posta aqui o erro como ele aparece na tela mesmo...

Compartilhar este post

Link para o post
Compartilhar em outros sites

DiegoBelloti    0

DiegoBelloti
Postado

galera... eu testei esse exemplo do mauro aqui em ksa... usando o iis... num dá erro nenhum...soh q o e-mail naum chega... e pasta mailroot>badmail... aparecem os arquivos reportando erro.... olhando no arquivo cuja extensão é *.bdr ele diz o seguinte:"Não é possível entregar esta mensagem porque ocorreu o seguinte erro: "Erro ao processar o arquivo na pasta de caixa de correio.".O código de erro específico era 0xC00402CE."O que deve ta ocorrendo??

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito