Search Avançado
Onde procurar

This topic

Fóruns

Membros

Help Files
Novas postagens

Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Como Colocar Mais Dois Campos Nesse Formulario

Started By ricardofressa, 05/12/2008, 16:39

Faça o login para participar

6 replies to this topic

#1 ricardofressa

Turista

Usuários
59 posts

Sexo:Não informado

Posted 05/12/2008, 16:39

<%
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

strFrom = Request.Form("para")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")

aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf
 message.From = strFrom
 message.To = strTo
 message.Subject  = StrSubject
 message.textBody = StrBody

message.HTMLBody = StrBody
message.Cc = "email@provedor.com.br"  
message.Fields("urn:schemas:httpmail:importance").Value = 2 


message.send

Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"

Olá, gostaria de inserir mais dois campos, telefone e endereço nesse script ASP, tem alguém que pode me ajudar com as variaveis??
por favor

#2 herreraaa

Novato no fórum

Usuários
8 posts

Sexo:Não informado

Posted 08/12/2008, 07:51

crie uma variável conteúdo

ae você pega e fala

conteudo = request("telefone") & " " & request("endereco") & " " & request("mensagem")

strBody = conteudo

Dá pra elaborar mais, colcoar um corpo decente no e-mail e talz, mas assim já está bom!

seja feliz

Edição feita por: herreraaa, 08/12/2008, 07:52.

#3 ricardofressa

Turista

Usuários
59 posts

Sexo:Não informado

Posted 09/12/2008, 11:58

Eu criei desse jeito as variaveis, mas não estão dando certo, fala que da erro na linha 40, cuja qual é message.send e o tipo de erro

Tipo de erro:
(0x8004020F)
A classe de evento dessa assinatura está em uma partição inválida

<%
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

strFrom = Request.Form("para")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")
strBody = Request.Form("telefone")
strBody = Request.Form("endcompleto")

aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf
 message.From = strFrom
 message.To = strTo
 message.Subject  = StrSubject
 message.textBody = StrBody

message.HTMLBody = StrBody
message.Cc = "email@provedor.com.br"  
message.Fields("urn:schemas:httpmail:importance").Value = 2 


message.send

Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"
%>

#4 herreraaa

Novato no fórum

Usuários
8 posts

Sexo:Não informado

Posted 09/12/2008, 16:59

strBody = Request.Form("mensagem")
strBody = Request.Form("telefone")
strBody = Request.Form("endcompleto")

se for criar desse jeito, faça assim

strBody = Request.Form("mensagem")
strBody = strBody & " " & Request.Form("telefone")
strBody = strBody & " " & Request.Form("endcompleto")

tenta assim

#5 ricardofressa

Turista

Usuários
59 posts

Sexo:Não informado

Posted 10/12/2008, 11:54

desde já agradeço estar me ajudando, mas não deu deu o seguinte erro

Tipo de erro:
(0x8004020F)
A classe de evento dessa assinatura está em uma partição inválida
/inoxrodrigues/enviar.asp, line 41

coloquei assim

<%
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

strFrom = Request.Form("para")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")
strBody = strBody & "<br /><br />" & Request.Form("telefone")
strBody = strBody & "<br /><br />" & Request.Form("endcompleto")


aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf
 message.From = strFrom
 message.To = strTo
 message.Subject  = StrSubject
 message.textBody = StrBody

message.HTMLBody = StrBody
message.Cc = "email@s.com.br"  
message.Fields("urn:schemas:httpmail:importance").Value = 2 


message.send

Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"
%>

E coloquei meu form desse jeito

<form method="post" action="enviar.asp" name="Inputform">
<input type="hidden" name="email" value="email@provedor.com.br">
<div align="center">
<center>
<table border="0" width="63%" cellspacing="0" cellpadding="0">
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Nome:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="para" size="40" width="300">
</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Telefone:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="telefone" size="40" width="300">
</font></td>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Endereço Completo:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="endcompleto" size="40" width="300">
</font></td>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">E-mail:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="40" width="300"></font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Assunto:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="40" width="300"></font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Mensagem:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea>
</font></td>
</tr>
<tr>
<td width="96%">&nbsp;</td>
</tr>
<tr>
<td width="96%">
<p align="center"><font face="Verdana"><input type="submit" value="Enviar &gt;&gt;" name="enviar"></font></td>
</tr>
</table>
</center>
</div>
</form>

#6 herreraaa

Novato no fórum

Usuários
8 posts

Sexo:Não informado

Posted 10/12/2008, 18:35

Desculpa não conseguir te ajudar mais... mas faz uma carinha que eu não faço(copio e colo) um código pra envido de e-mail...

ao menos os 2 campos estão inseridos corretamente =P

Isso que ta ocorrendo pode ser vários problemas, configuração de SMTP, remetente inválido... de uma pesquisada em outros códigos e procure entende-los... compare-os com o seu e assim, quem sabe, você consiga encontrar o seu problema... qualquer coisa estou por aqui.

Abratz!

#7 ricardofressa

Turista

Usuários
59 posts

Sexo:Não informado

Posted 11/12/2008, 10:59

então, o servidor funciona sim... porque é só colocar esses dois campos no forumaluria que da esse erro, tentei fazer assim e nao deu certo também...
será que alguém mais pode me ajudar a colocar esses dois campos no formulario?

<%
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

strFrom = Request.Form("para")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")
strtelefone = Request.Form("telefone")
strendcompleto = Request.Form("endcompleto")


aux1 = chr(13)
aux2 = chr(10)
regex= "\\n|\\r|cc\:|bcc\:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")
strBody = objRegExp.Replace(strBody,"")
strtelefone = objRegExp.Replace(strtelefone,"")
strendcompleto = objRegExp.Replace(strendcompleto,"")

Set message.configuration = conf
 message.From = strFrom
 message.To = strTo
 message.Subject  = StrSubject
 message.textBody = StrBody
 message.texttelefone = strtelefone
 message.textendcompleto = strendcompleto
 

message.HTMLBody = StrBody
message.Cc = "usuario@provedor.com.br"  
message.Fields("urn:schemas:httpmail:importance").Value = 2 


message.send

Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td>&nbsp;</td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"
%>

e o form assim

<form method="post" action="enviar.asp" name="Inputform">
<input type="hidden" name="email" value="usuario@provedor.com.br">
<div align="center">
<center>
<table border="0" width="63%" cellspacing="0" cellpadding="0">
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Nome:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="para" size="40" width="300">
</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Telefone:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="telefone" size="40" width="300">
</font></td>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Endereço Completo:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="endcompleto" size="40" width="300">
</font></td>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">E-mail:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="40" width="300"></font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Assunto:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="40" width="300"></font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Mensagem:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea>
</font></td>
</tr>
<tr>
<td width="96%">&nbsp;</td>
</tr>
<tr>
<td width="96%">
<p align="center"><font face="Verdana"><input type="submit" value="Enviar &gt;&gt;" name="enviar"></font></td>
</tr>
</table>
</center>
</div>
</form>