Ir para conteúdo

POWERED BY:

Arquivado

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

B&D Informatica

Problema ao enviar e-mail de formulario

Por , em ASP Clássico

Recommended Posts

B&D Informatica    0

B&D Informatica
Postado

Bom dia amigos do Forum,

 

Estou com um problema que nao estou conseguindo resolver.

 

Criei um formulario para envio de email, o email esta sendo enviado e quando vou visualizar ele atraves do webmail esta tudo normal.

 

ja qndo o email é baixo pelo outlook desconfigura tudo os caracteres. o que eu posso fazer para resolver esse problema?

 

Segue abaixo codigo.

 


<%
Session.LCID = 1046
%>

<%response.Charset="ISO-8859-1"%>

<%
nome = Request.Form("nome")
email = Request.Form("email")
fone = Request.Form("fone")
departamento = Request.Form("departamento")
mensagem = Request.Form("mensagem")



msgTxt = nome & vbCrLf& "Enviou um e-mail com os seguintes dados:" & vbCrLf & vbCrLf & "Nome Completo: "&nome& vbCrLf&"E-mail: "&email& vbCrLf&"Telefone: "&fone& vbCrLf&"Departamento: "&departamento& vbCrLf&"Mensagem: "&mensagem& vbCrLf& vbCrLf& vbCrLf&mensagem


assunto = "Contato do Site"
varpara = "fabio.santos@emz.com.br" & vbCrLf

'*********************************************************************************************
Set Mail = Server.CreateObject("CDONTS.Newmail")
Mail.Send email, varpara, msgTxt 
Set Mail = nothing
'*********************************************************************************************



if envio = "1" then
	response.write("<script language=""javascript"">window.alert(""Sua mensagem foi enviada com sucesso!"");</script>")
	end if


Response.Redirect "http://www.emz.com.br"
%>

 

obrigado pela help de todos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

andersonleme    1

andersonleme
Postado

você tem que por o HTML inteiro amigao

 

strMsg = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
 strMsg = strMsg & "<HTML><HEAD>"
 strMsg = strMsg & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"
 strMsg = strMsg & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"
 strMsg = strMsg & "<BODY><FONT face=Tahoma size=2><img src=""cid:"&imagem&"""><br><br>"
 strMsg = strMsg & "<FONT face=Tahoma size=2><B>" & cabecalho_email & "</B><BR><br>"
 strMsg = strMsg & "<b>Nome: </b>" & Trim(Request.Form("nome_contato")) & "<br><br>"
 strMsg = strMsg & "<b>E-mail: </b>" & Trim(Request.Form("email")) & "<br><br>"
 strMsg = strMsg & "<b>Cidade: </b>" & Trim(Request.Form("cidade_contato")) & "/" & Trim(Request.Form("estado_contato")) & " - " & Trim(Request.Form("pais")) & "<br><br>"
 strMsg = strMsg & "<b>Telefone: </b>" & Trim(Request.Form("telefone")) & "<br><br>"
 strMsg = strMsg & "<b>Mensagem: </b>" & Trim(Request.Form("mensagem_contato")) & "<br><br><br>"
 strMsg = strMsg & "</FONT></BOBY>"
 strMsg = strMsg & "</HTML>"

 

depois é só enviar o strMsg no MAil.send

 

 

eu uso sempre assim

nunca tive problema com outlook

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