Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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?
Dá erro...HTTP 500 - erro interno do servidor Internet Explorer
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.
desabilite as mensagens de HTTP amigaveis em seu navegador antes pra verifricar o erro real...
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>
num sei!, lá vai o código...
ASP
[*]<% '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
[*] end if %>
Como faço pra saber issu?