Ir para conteúdo

POWERED BY:

Arquivado

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

Gustavo Freitas

Quebras de linha no form mail...

Por , em ASP Clássico

Recommended Posts

Gustavo Freitas    0

Gustavo Freitas
Postado

Tenho um form mail e quero botar umas quebras de linha pra organizar as informações enviadas. Estou montando assim:

 

ASP

[*]conteudo = "Nome do Contato:"&nome & "<br>Empresa:"&empresa & "<br>Cidade:"&cidade & "<br>Estado:"&estado & "<br>Telefone:"&telefone & "<br>e-mail:"&email & "<br>Informações:"&mensagem & "<br>Retorno via:"&contato

 

[*]msg.body = conteudo

 

Quando recebo o e-mail ele exibe desse jeito:

 

Nome do Contato:nome do contato<br>Empresa:nome da empresa<br>Cidade:Cidade<br>Estado:RJ<br>Telefone:2676-0000<br>e-mail:email@servidor.com.br<br>Informações:teste de envio de mensagem<br>Retorno via:email

Como faço essa quebra de linha?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Freitas    0

Gustavo Freitas
Postado

num sei!, lá vai o código...

 

ASP

[*]<html>

 

[*] <head>

 

[*] <title>Imagem Moderna</title>

 

[*] <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

 

[*] </head> 

 

[*]<% 'Lê os dados do formulário

 

[*]  nome = request.Form("nome")

 

[*]  empresa = request.Form("empresa")

 

[*]  cidade = request.Form("cidade")

 

[*]  estado = request.Form("estado")

 

[*]  telefone = request.Form("telefone")

 

[*]  email = request.Form("email")

 

[*]  mensagem = request.Form("mensagem")

 

[*]  contato = request.Form("contato")

 

[*] 'Cria o objeto para envio da mensagem

 

[*]  set msg = Server.CreateOBject( "JMail.Message" ) 

 

[*] 'Define opções para tratar o erro, caso ocorra algum

 

[*]  msg.Logging = true

 

[*]  msg.silent = true

 

[*] 'Remetente

 

[*]  msg.From = email

 

[*]  msg.FromName = nome 

 

[*] 'Usuário e senha para autenticar no servidor no momento de enviar

 

[*]  msg.MailServerUserName = "mail@meuemail.com.br"

 

[*]  msg.MailServerPassWord = "minhasenha"

 

[*] 'Quem irá receber o e-mail 

 

[*] 'Se for mais de um destinatário, repetir a linha informando a outra conta de e-mail, exemplo: 

 

[*] 'msg.AddRecipient "outroemail@dominio.com.br"

 

[*]  msg.AddRecipient "mail@meuemail.com.br"

 

[*]  msg.AddRecipient email 'envia uma cópia para o remetente 

 

[*] 'Título da mensagem

 

[*]  msg.Subject = "Formulário preenchido no site"

 

[*] 'Corpo do email

 

[*]  conteudo = "Nome do Contato:"&nome & "'<br>'Empresa:"&empresa & "'<br>'Cidade:"&cidade & "'<br>'Estado:"&estado & "'<br>'Telefone:"&telefone & "'<br>'e-mail:"&email & "'<br>'Informações:"&mensagem & "'<br>'Retorno via:"&contato

 

[*]  msg.body = conteudo

 

[*] 'Agora envia a mensagem

 

[*]  if not msg.Send("mail.encarj.com.br") then

 

[*] 'Caso ocorra alguma erro, mostra-o

 

[*] Response.write "<pre>" & msg.log & "</pre>"

 

[*]  else

 

[*] 'ocorreu tudo bem

 

[*] Response.write "<font face='Arial' size='2'>Menssagem enviada com sucesso!</font><br>"

 

[*] Response.write "<font face='Arial' size='2'><a href='inicial.htm' target='inicial'>Voltar</a></font>"

 

[*]  end if %>

 

[*] <body>

 

[*] </body>

 

[*] </html>

 

Como faço pra saber issu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Freitas    0

Gustavo Freitas
Postado

Boiei...Executei como você pediu...

Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' /enviaremail.asp, line 16

foi isso que ele me retornou.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

desabilite as mensagens de HTTP amigaveis em seu navegador antes pra verifricar o erro real...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gustavo Freitas    0

Gustavo Freitas
Postado

Resolvi Pessoal!!!

 

O lance foi o seguinte:

 

1 - substitui o "<br>" por "& vbcrlf "

2 - removi a linha que o AAlves me passou> ' JMail.ContentType = "text/html" '

 

O Script ficou assim:

 

ASP

[*]<html>

 

[*] <head>

 

[*] <title>Meu Form Mail em Asp</title>

 

[*] <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

 

[*] </head> 

 

[*]<% 'Lê os dados do formulário

 

[*]  nome = request.Form("nome")

 

[*]  empresa = request.Form("empresa")

 

[*]  cidade = request.Form("cidade")

 

[*]  estado = request.Form("estado")

 

[*]  telefone = request.Form("telefone")

 

[*]  email = request.Form("email")

 

[*]  mensagem = request.Form("mensagem")

 

[*]  contato = request.Form("contato")

 

[*] 'Cria o objeto para envio da mensagem

 

[*]  set msg = Server.CreateOBject( "JMail.Message" ) 

 

[*] 'Define opções para tratar o erro, caso ocorra algum

 

[*]  msg.Logging = true

 

[*]  msg.silent = true

 

[*] 'Remetente

 

[*]  msg.From = email

 

[*]  msg.FromName = nome 

 

[*] 'Usuário e senha para autenticar no servidor no momento de enviar

 

[*]  msg.MailServerUserName = "meu@email.com.br"

 

[*]  msg.MailServerPassWord = "minhasenha"

 

[*] 'Quem irá receber o e-mail 

 

[*] 'Se for mais de um destinatário, repetir a linha informando a outra conta de e-mail, exemplo: 

 

[*] 'msg.AddRecipient "outroemail@dominio.com.br"

 

[*]  msg.AddRecipient "meu@email.com.br"

 

[*]  msg.AddRecipient email 'envia uma cópia para o remetente 

 

[*] 'Título da mensagem

 

[*]  msg.Subject = "Fale Conosco!"

 

[*] 'Corpo do email

 

[*]  conteudo = "Nome do Contato:"&nome & vbcrlf & "Empresa:"&empresa & vbcrlf & "Cidade:"&cidade & vbcrlf & "Estado:"&estado & vbcrlf & "Telefone:"&telefone & vbcrlf & "e-mail:"&email & vbcrlf & "Informações:"&mensagem & vbcrlf & "Retorno via:"&contato & vbcrlf 

 

[*]  msg.body = conteudo

 

[*] 'Agora envia a mensagem

 

[*]  if not msg.Send("mail.meudominio.com.br") then

 

[*] 'Caso ocorra alguma erro, mostra-o

 

[*] Response.write "<pre>" & msg.log & "</pre>"

 

[*]  else

 

[*] 'ocorreu tudo bem

 

[*] Response.write "<font face='Arial' size='2'>Menssagem enviada com sucesso!</font><br>"

 

[*] Response.write "<font face='Arial' size='2'><a href='inicial.htm' target='inicial'>Voltar</a></font>"

 

[*]  end if %>

 

[*] <body>

 

[*] </body>

 

[*] </html>

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