Jump to content
TeixeiraRamos

Erro enviar email form

Recommended Posts

Boa noite,

Quando tento enviar um email pelo formulário mostra o erro:

Citar

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/sendmail.asp, line 74


Response.Write "<html>
----------------------^

 

A página sendmail.asp, line 74 tem esse código:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Charset="ISO-8859-1"%>
<!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>

<%
' Cria os objetos para envio de e-mail
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

'Obtendo valores digitados no formulário e armazená-los nas variáveis locais
strFrom = Request.Form("mailfrom")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")
'strSubject = Request.Form("estado")
'strEstado = Request("estado")
'Response.Write(strEstado)
'Response.End()

'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado
'para envio de Spam
aux1 = chr(13)
aux2 = chr(10)
regex= " | |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
'Atribui-se os valores para as propriedades do objeto
message.From = strFrom
message.To = strTo
message.Subject = StrSubject
message.textBody = "Mensagem: <br> <br>" & _
"Nome:&nbsp;&nbsp;&nbsp;"& Request.Form("name") &"<br>" & _
"Estado:&nbsp;&nbsp;&nbsp;"& Request.Form("Estado") &"<br>" & _
"E-Mail:&nbsp;&nbsp;&nbsp;"& Request.Form("mailfrom") &"<br>" & _
"Assunto:&nbsp;&nbsp;&nbsp;"& Request.Form("assunto") &"<br>" & _
"Mensagem:&nbsp;&nbsp;&nbsp;"& Request.Form("mensagem")

message.HTMLBody = message.textBody 'Envia no formato HTML

' Outras propriedades que podem ser usadas, mas que deixaremos comentadas neste exemplo:
' - Você pode enviar e-mail HTML, arquivos anexados, etc;
' - Você pode mudar muitos aspectos da mensagem;
'message.HTMLBody = StrBody 'Envia no formato HTML
'message.Cc = "conta1@dominio.com.br;conta2@dominio.com.br" 'Com Cópia
'message.Bcc = "conta3@dominio.com.br;conta4@dominio.com.br" 'Com Cópia Oculta
'message.Fields("urn:schemas:httpmail:importance").Value = 2 '(0=Baixa, 1=Normal, 2=Alta)
'message.AddAttachment "I:InetpubWwwrootSuaContaNomeDoArquivo" 'Anexa arquivo na mensagem

'Envia a mensagem!
message.send

'Atribui nothing ao objeto para que ele se torna inválido imediatamente após o envio
'Não podendo ser utilizado dois "sends" para o mesmo objeto New Mail
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>"
%>

<%
Response.Redirect "http://informacaoteixeira.com.br/confirma_formulario.html"
%>


</head>

A linha 74 é essa:

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

 

Obrigado

 

 

 

 

 

Share this post


Link to post
Share on other sites

faça uma concatenação dos dados html, juntando-os em uma variável para ver se é das aspas, tipo:

 

 

MsgBody = "<html>" _

& "<head>" _

& "</head>" _

& "<body bgcolor=""#FFFFFF"">" _

& "<p align=""center"">Suas informações foram recebidas</p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>Obrigado pela preferencia</b></font></p>" _

& "</body>" _

& "</html>"

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By vbnovak
      Pessoal, tudo bem?
       
      Eu infelizmente sou uma pessoa muito newbie no Access, e extremamente enferrujada no VBA, e eu tenho que criar um banco de dados para importar várias planilhas de Mês/Ano (Ex.: 012018; 022018) sempre do mesmo modelo/molde/afins, e no fim, gerar um relatório com as informações importadas. O modelo relatório e o modelo tabela estão prontos, entretanto, não sei como criar o formulário que faça:
       
      1º: Clicar no botão procurar arquivo;
      2º: Solicite o Mes/Ano do arquivo que será importado;
      3º: Abra a API do Windows de localizar arquivo;
      4º: Ao selecionar e importar o arquivo, dê baixa na tabela definida.
       
      A tabela e o arquivo tem todos as mesmas colunas, entretanto, eu inseri a coluna MesAno na tabela que deverá ser inserida conforme a pergunta que foi solicitada no formulário. Pois o relatório será gerado de acordo com essa coluna.
    • By Dineysil
      Boa tarde!
       
      Sou iniciante em Javascript e Ajax e estou precisando de criar uma função para:
      Em um Form tenho dois "radios" jurídico e físico, preciso que ao clicar em uma opção no form alterne uma "Label" e uma "Text"
      Se a opção for Físico a Label será CPF: e a Text terá uma mascara de cpf
      Se a opção for Jurídico a Label será CNPJ: e a Text terá uma mascara de cnpj
       
      Com relação as máscaras eu já as tenho.
       
      O site está em ASP Clássico

      Agradeço se alguém poder ajudar.
       
      Claudiney
    • By andrelimaverde
      Pessoal preciso de uma ajuda, desde já agradeço à todos.
      "Site teste, estudos..."
      Tenho um formulário com 3 etapas, ele está trabalhando em php normalmente e salvando os dados preenchidos em .txt (para testes apenas).
      Vamos lá, nas 3 etapas o form está com action="1.php" (2.php,  3.php) e method="post". [Não vou colocar muito código para simplificar, pois é um formulário básico fácil de entender]
      Exemplo:  Pagina 1 - envia para action '1.php'
      Nome: 
      Telefone:
      <input type="submit" value="Continuar">
      (
       O arquivo 1.php armazena os dados e redireciona => header( 'Location:Pagina2.php' ) ;   
       Assim como os outros php's
      )
      Pagina 2 - action 2.php armazena os dados e redireciona => header( 'Location:Pagina3.php' ) ; 
      Cidade:
      Endereço:
      <input type="submit" value="Continuar">
       
      A questão está na 3ª página
      Página 3 -
      Email:
      (Preciso que após preencher o campo da página 3 no caso "Email:",  ao clicar no botão, neste caso não sei se seria um submit ou button. O formulário não redirecionar para pagina 4, ao clicar ele enviar e salvar normalmente, mas aparecer um novo input na mesma pagina por Exemplo:"Twitter:"  ) 
      No caso preciso que ele não redirecione , gostaria de colocar um gif de carregando por 15 segundos por exemplo como se estivesse processando as informações... e em seguida ele apresentar o novo input do "Twitter:" , onde ai sim enviaria normalmente...
    • By Chead
      Galera,para vocês, qual o melhor jeito de criar um formulario de inscrição pago para eventos, sem ter que utilizar essas plataformas online de sites como sympla ou evenbrite?
    • By silassf
      Olá, boa tarde.
      A tempos venho trabalhando com este formulário de contato em PHP. porém uns dias para ca, estou fazendo teste e parece que nao esta funcionando mais nos sites que desenvolvo.
      não tenho experiencia em PHP mas quando comecei a usar esse FORM ele funcionava perfeitamente. Agora nao envia mais o email. Alguem pode me ajudar.
      Servidor que utilizo é UOL e quando incluo o email a ser enviado sempre utilizo do mesmo servidor que está hospedado o site. Ex."contato@meudominio.com.br".
       
      segue o código EXECUTADO quando clico no evento Submit (botao Enviar) do Formulario que está Method (post)
      <? $nome=$_POST['nome']; $cidade=$_POST['cidade']; $estado=$_POST['estado']; $produto=$_POST['produto']; $telefone=$_POST['telefone']; $email=$_POST['email']; $informacao=$_POST['informacao']; $piso='Contato Site XXXXXXX'; $dpto="contato@meudominio.com.br"; $titulo=$piso; //$destinatario="$dpto"; $mensagem=" Nome: $nome Cidade: $cidade Estado: $estado Produto: $produto Telefone1: $telefone Email: $email Informação: $informacao"; mail("$dpto","$titulo","$mensagem","from:$email"); ?>  
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.