Ir para conteúdo

POWERED BY:

Arquivado

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

j0rnal1sta

Erro no formulário em cdosys

Por , em ASP Clássico

Recommended Posts

j0rnal1sta    0

j0rnal1sta
Postado

Já olhei diversos modelos, li posts no fórum mas nao consigo resolver o problema. To há uns 8 dias tentando fazer 3 formulários funcionarem, esse é o mais simples dele. Os outros tem mais campos, mas se não consigo nem fazer esse funcionar, vo deixar os outros 2 de lado por enquanto. Agradeço a ajuda.

------------------------------------------------------------------------------------------------

O erro é esse:

 

CDO.Message.1 error '8004020c'

 

At least one recipient is required, but none were found.

 

/default.asp, line 71

------------------------------------------------------------------------------------------------

A linha 71 é:

 

objCDOSYSMail.Send

------------------------------------------------------------------------------------------------

O código do formulário é:

<HTML><HEAD><TITLE>CDOSYS</TITLE><link href="estilo.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style1 {font-size: 18px}--></style></HEAD><BODY BGCOLOR="#FFFFFF"><form method=post action="default.asp?acao=enviar">  <table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">	<tr>	  <td align="center"><TABLE width="654" align="center" CELLPADDING=4 CELLSPACING=1 BGCOLOR="#CCCCCC">		<TR bgcolor="#FFFFFF">			<TD height="93" align="center" class="Despesa"><img src="../../botaocontato.jpg" width="116" height="32"></TD>			<TD width="426" align="center" class="Despesa style1"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Rizzone 			  Academia</strong></font></TD>		</TR>		<TR align="center" bgcolor="#FFFFFF">		  <TD height="31" colspan="2" class="TextoN">				  <%							if request.QueryString("acao") = "enviar" then													'cria o objeto para o envio de e-mail 				Set objCDOSYSMail = Server.CreateObject("CDO.Message") 								'cria o objeto para configuração do SMTP 				Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 								'SMTP 				objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 								'porta do SMTP 				objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 								'porta do CDO 				objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2								'timeout 				objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 								objCDOSYSCon.Fields.update 								'atualiza a configuração do CDOSYS para o envio do e-mail 				Set objCDOSYSMail.Configuration = objCDOSYSCon 								'e-mail do remetente 				objCDOSYSMail.From = "Seu email" 								'e-mail do destinatário 				objCDOSYSMail.To = Request.Form("jorjaum@gmail.com") 								'assunto da mensagem 				objCDOSYSMail.Subject = "Contato - Rizzone Academia" 								'conteúdo da mensagem 				objCDOSYSMail.TextBody = "Sugestão/crítica/reclamação/mensagem" 								'objCDOSYSMail.fields.update 								'envia o e-mail 				objCDOSYSMail.Send 								'destrói os objetos 				Set objCDOSYSMail = Nothing 				Set objCDOSYSCon = Nothing 								response.write "E-mail!" & Request.Form("to")										end if		%>		  		  		  </TD>		  </TR>		<TR bgcolor="#FFFFFF">			<TD height="31" align="right" class="TextoN">E-mail:</TD>		  <TD><input name="to" type=text id="to" size="40"></TD>		</TR>		<TR bgcolor="#FFFFFF">			<TD align="right" class="TextoN">Nome: </TD>		  <TD><input name="subject" type=text id="subject" size="40"></TD>		</TR>		<TR bgcolor="#FFFFFF">			<TD align="right" class="TextoN">Sugestão/Crítica/Reclamação/Mensagem:</TD>		  <TD><TEXTAREA NAME="body" cols="50" id="body"></TEXTAREA></TD>		</TR>		<TR align="center" bgcolor="#FFFFFF">		  <TD COLSPAN=2><INPUT NAME="Send" TYPE="SUBMIT" class="botao" VALUE="Enviar"></TD>		</TR>	  </TABLE></td>	</tr>  </table></FORM></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado 
'e-mail do remetente
			objCDOSYSMail.From = "Seu email"

			'e-mail do destinatário
			objCDOSYSMail.To = Request.Form("jorjaum@gmail.com")

No 1º deve colocar o seu e-mail, ou o do remetente, como diz no próprio comentário. No de baixo creio que há um engano no campo do formulário que você está requisitando.

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