Email Cdosys

SuelySS · Abril 10, 2013

Ola

Formulei um formulario de contato com Cdosys, em html, só que quando recebo a resposta, ela vem com os acentos, til, e cedilhas em caracteres. Como posso resolve isso?

obrigada

suelyss

xanburzum · Abril 11, 2013

coloque assim:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

SuelySS · Abril 11, 2013

Ola, obrigada pela resposta ... alterei o cabeçalho conforme sua indicação ... mas não deu certo...

xanburzum · Abril 12, 2013

geralmenete isso aqui já resolve:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>ENVIA</title>
</head>

Monte uma página HTML inteira no corpo do e-mail e acrescente esta linha:

<meta http-equiv="Content-Type" content="text/html;charset=utf-8" >

deixe o tipo para envio da mensagem no formato html altere o TextBody para HtmlBody

objCDOSYSMail.HtmlBody = cBody

sMensagem = sMensagem & cBody

Tipo assim:

cBody = ""
cBody = cBody & "<html><head><meta http-equiv="Content-Type" content="text/html;charset=utf-8" ></head><body>"
cBody = cBody & "Nome: " & Request.Form("Nome") & "<BR>"'vbCrLf
cBody = cBody & "Email: <a href='mailto:" & Request.Form("Email") & "'>" & Request.Form("Email") & "</a>" & "<BR>"'vbCrLf
cBody = cBody & "Assunto: " & Request.Form("Assunto") & "<BR>"' & vbCrLf
cBody = cBody & "Comentário: " & Request.Form("Comentario") & "<BR>"' & vbCrLf
cBody = cBody & "</body></html>"

caso mesmo assim não dê certo altere o UTF-8 para ISO-8859-1.

Ulisses Arrais · Abril 12, 2013

Eu tinha esse problema, mas só resolveu com esse aqui:

cdoMessage.HTMLBodyPart.Charset = "utf-8"

xanburzum · Abril 13, 2013

coloque também

BodyPart.charset = "unicode-1-1-utf-8

SuelySS · Abril 23, 2013

Ola

Obrigada pela ajuda

mas, consegui parte ... as respostas estão com os caracteres, o que deu mais certo foi ISO-8859-1.

depois de varias tentativas com o "UTF-8" alterei para ISO-8859-1- (o Orçamento - fico sem o caractere)

FORMULARIO ON LINE:

Orçamento online
----------------------------------------------------
Nome...: suely02 obrigatÃ³rio o pÃ£o
----------------------------------------------------
Prefixo...:
Telefone...: 22
----------------------------------------------------
Email...:
----------------------------------------------------
Numero de convidados...: aa
----------------------------------------------------
----------------------------------------------------
Duvidas...: pÃ©, pÃ£o. atÃ© violÃ£o formulÃ¡rio 002

SuelySS · Abril 23, 2013

obrigada, deu certo ... descobri o meu erro ...

xanburzum · Abril 23, 2013

exatamente.... como sugerido no post #4

SuelySS · Abril 25, 2013

não, parte ... mas resolveu em parte .. :upset: no outlook no lixo aparece normal e na caixa de entrada com os caracteres mas entrando no webmail notei que os caracteres continuam.

já fiz todas as sugestões e não deu certo ... segue abaixo ...

<%
'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 Coloque aqui o IP do servidor aonde consta o seu domÃnio
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail....."

'Porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 587

'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 = request.form("email")

'E-mail do destinatÃ¡rio. Coloque aqui o seu e-mail
objCDOSYSMail.To = "."
objCDOSYSMail.cc = "."
'objCDOSYSMail.bcc = ""
objCDOSYSMail.Fields("urn:schemas:httpmail:importance").Value = 2 '(0=Baixa, 1=Normal, 2=Alta)

'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado
'para envio de Spam
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

'Assunto da mensagem. Troque aqui o assunto de sua mensagem
objCDOSYSMail.Subject = "Teste Formulario"

'ConteÃºdo da mensagem
objCDOSYSMail.HtmlBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html;charset=UTF-8""></head><body>"& " " & _

"<h3>FORMULARIO ON LINE:</h3>" & _

"Orçamento online" & _
"----------------------------------------------------" & " " & _
"Nome...: " & Request.Form("nome")& " " & _
"----------------------------------------------------" & " " & _
"Prefixo...: " & Request.Form("pref")& " " & _
"Telefone...: " & Request.Form("telefone")& " " & _
"----------------------------------------------------" & " " & _
"Email...: " & Request.Form("email")& " " & _
"----------------------------------------------------" & " " & _
"Aniversariante...: " & Request.Form("anivers")& " " & _
"----------------------------------------------------" & " " & _
"Idade...: " & Request.Form("idade") & " " & _
"----------------------------------------------------" & " " & _
"Data...: " & Request.Form("data")& " " & _
"----------------------------------------------------" & " " & _
"Horario...: " & Request.Form("horario") & " " & _
"----------------------------------------------------" & " " & _
"Numero de convidados...: " & Request.Form("convidados")& " " & _
"----------------------------------------------------" & " " & _
"----------------------------------------------------" & " " & _
"Duvidas...: " & Request.Form("dduvidas")& " " & _
"</body></html>"

'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'objCDOSYSMail.fields.update
'Envia o e-mail
objCDOSYSMail.Send

'DestrÃ³i os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail enviado com sucesso!!!"

response.redirect "servicos.htm"

Response.Write "<html><body><table align=center><tr><td> </td></tr>"

Response.Write "<tr><td> </td></tr>"

Response.Write "<tr><td>"& Msg &"</td></tr>"

Response.Write "</body></html>"

%>

xanburzum · Abril 25, 2013

coloque isso no começo ed seu code

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>ENVIA</title>
</head>

e no no corpo do e-mail e acrescente esta linha:

<meta http-equiv="Content-Type" content="text/html;charset=utf-8" >

deixe o tipo para envio da mensagem no formato html altere o TextBody para HtmlBody

objCDOSYSMail.HtmlBody = cBody

sMensagem = sMensagem & cBody

se não der altere para iso

SuelySS · Maio 6, 2013

o post #11 deu certo ... obrigada Xamburzum

Arquivado

Email Cdosys

Recommended Posts

SuelySS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

SuelySS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ulisses Arrais 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

SuelySS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

SuelySS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

SuelySS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

SuelySS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante