Ir para conteúdo

POWERED BY:

Arquivado

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

Rodrigo Poa

Acentos não aparecem no email de retorno!

Por , em ASP Clássico

Recommended Posts

Rodrigo Poa    0

Rodrigo Poa
Postado

beleza gente!

 

Seguinte, vou postar o codigo da pag. do formulário e tbm o o script da pag. asp.

 

contato.asp

 

<html><head><title>teste</title><meta http-equiv="Content-Type" content="text/html; [b]charset=iso-8859-1[/b]"><link href="text.css" rel="stylesheet" type="text/css"></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">				   <tr valign="top"> 				  <td> </td>				  <td colspan="2"> </td>				</tr>				<tr valign="top"> 					[b]<form name="formContato" method="post" action="email.asp" >[/b]				  <td> </td>				  <td colspan="2"><table width="380" border="0" cellpadding="0" cellspacing="0" class="text">					  <tr> 						<td align="left" valign="top"><table width="360" border="0" cellpadding="2" cellspacing="0" class="text">							<tr> 							  <td width="76"><strong class="title1">Nome :<br>					 </strong></td>							  <td width="266"><input name="nomemsg" type="text" class="texto" id="nomemsg" size="55"></td>							</tr>							<tr> 							  <td><strong class="title1">E-mail :<br>					 </strong></td>							  <td><input name="email" type="text" class="texto" id="email" size="55"></td>							</tr>							<tr> 							  <td><strong class="title1">Fone :<br>					 </strong></td>							  <td><input name="telefonemsg" type="text" class="texto" id="telefonemsg" size="55"></td>							</tr>							<tr> 							  <td><strong class="title1">Cidade :<br>					 </strong></td>							  <td><input name="cidademsg" type="text" class="texto" id="cidademsg" size="55"></td>							</tr> <tr> 							  <td><strong class="title1">Estado :<br>					 </strong></td>							  <TD width="200"><SELECT name="ufmsg" class="texto" id="ufmsg">								<option selected>Selecionar</option>								<option>Rio grande do Sul</option>																	<OPTION>Sao Paulo</OPTION>																	<OPTION>Bahia</OPTION>																	<OPTION>Distrito Federal</OPTION>																	<OPTION>Espirito Santo</OPTION>																	<OPTION>Minas Gerais</OPTION>																	<OPTION>Rio de Janeiro</OPTION>																	<OPTION>Santa Catarina</OPTION>																	<OPTION>Outro</OPTION>																</SELECT></TD>							</tr>							<tr> 							  <td><strong class="title1">Mensagem :<br>					 </strong></td>							  <td><textarea name="mensagemmsg" cols="55" rows="5" wrap="VIRTUAL" class="texto" id="mensagemmsg"></textarea></td>							</tr>							<tr> 							  <td> </td>							  <td><table width="170" border="0" cellpadding="0" cellspacing="0" class="text">								  <tr> 									<td><INPUT name="Submit" type="submit" onClick="" value="Enviar"></td>									<td><INPUT type="reset" value="Limpar" name="reset"></td>								  </tr>								</table></td>							</tr>						  </table></td>					  </tr>					</table></td>				</tr>			  </table></td>		  </tr>		</table[b]</form>[/b]</body></html>
email.asp

 

<%Dim nome,email,telefone,cidade,mensagem,uf,destinonome = request("nomemsg") email = request("email")telefone = request("telefonemsg")cidade = request("cidademsg")mensagem = request("mensagemmsg")uf = request("ufmsg")destino = request("destinomsg")%><%dim msg msg = "<html>" _& "<head>" _& "</head>" _& "<boby bgcolor=""#FFFFFF""><br>" _& "<p><h2><b>Atendimento OnLine:</b></h2></p><hr>" _& "<p>Assunto: <b>Contato</b><br>" _& "Nome: <b>" & nome & "</b><br>" _& "Cidade: <b>" & cidade & "</b><br>" _& "UF: <b>" & uf & "</b><br>" _& "Email: <b>" & email & "</b><br>" _& "Telefone: <b>" & telefone & "</b><br><hr>" _& "Mensagem: <b>" & mensagem & "</b><br>" _& "</body>" _& "</html>"Set Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "Web site empresa<empresa@empresa.com.br>" Mailer.To = "user@user.com.br" Mailer.Importance = 2 Mailer.BodyFormat = 0 Mailer.MailFormat = 0 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" Mailer.Subject = "Atendimento empresa" Mailer.Body = msgMailer.Send Set Mailer = Nothing %> <%response.redirect("sucesso.asp")%>
bom, quando é recebido o email com os dados desse formulário, os mesmos aparecem sem acentos e com caracteres estranhos!! se alguém souber o que pode ser me dá um aviso ae!

 

 

valeu!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ivan.Teles    23

Ivan.Teles
Postado

cara eu fiz um igualzinho e a mesangem vem tranquilo, perfeita!!

 

usei este código

 

<% 

Dim var_nome, var_data, var_mail, var_telefone, var_cidade, var_mensagem, myMail

var_nome = request.form("Nome")
var_data = request.form("Data")
var_mail = request.form("Email")
var_telefone = request.form("Telefone")
var_cidade = request.form("Cidade")
var_mensagem = request.form("Mensagem")

Set myMail = CreateObject("CDONTS.NewMail") 

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL 
HTML = HTML & "<html>" 
HTML = HTML & "<head>" 
HTML = HTML & "<meta http-equiv=""Content-Type""" 
HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
HTML = HTML & "<title>Exemplo de envio de email HTML com Anexo</title>"
HTML = HTML & "</head>" 
HTML = HTML & "<body bgcolor=""#FFFFFF"">"
HTML = HTML & "<p><font size=""2"" face=""Verdana"">"& var_nome &" enviou-lhe um contato via seu site dia "& var_data &" contendo os seguintes dados: <br>"
HTML = HTML & "Nome: "& var_nome &"<br>" 
HTML = HTML & "Email: "& var_mail &"<br>"
HTML = HTML & "Telefone: "& var_telefone &"<br>"
HTML = HTML & "Cidade: "& var_cidade &"<br>"  
HTML = HTML & "Mensagem: "& var_mensagem &"<br>" 
HTML = HTML & "</strong></font></p>" 
HTML = HTML & "</body>" 
HTML = HTML & "</html>"
 
myMail.From = var_mail ' Remetente
myMail.To = "email@email.com" ' Destinatário
myMail.Subject = "Contato via site" ' Assunto do e-mail
myMail.BodyFormat = 0 
myMail.MailFormat = 0 
myMail.Body = HTML ' Corpo da mensagem definido na variável HTML 
myMail.Send 

Set myMail = Nothing
Response.Write "Muito obrigado "& var_nome &" pelo seu contato."
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo Poa    0

Rodrigo Poa
Postado

acho que achei o problema, deve ser no servidor do terra onde postei a pág. , pois utilizei outro servidor para fazer o teste e resolveu!!agora vou tentar resolver isso...valeu pela ajuda ae!!!

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