Jmail - Não Envia Todos Os Campos.

[Morcerus]

Olá! sou novato nesse negócio de ASP, + como peguei um site cujo servidor dá suporte ao mesmo, to tentando aprender uns lances aki...

Estou tentando configurar um form mail no site, peguei um exemplo (at~e bem explicado) no próprio provedor, como segue abaixo:

<% '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@dominio.com.br"

msg.MailServerPassWord = "senha"

'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@dominio.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

msg.body = mensagem

'Agora envia a mensagem

if not msg.Send("mail.dominio.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 %>

Só tem um problema... ele só envia o campo mensagem, acredito que a questão esteja aki:

'Corpo do email

msg.body = mensagem

Mas não sei como adicionar os campos no msg.body. Como posso resolver?

[bareta]

é so fazer antes do msg.body

mensagem="conteudo:" & variaveis

[Morcerus]

desculpa aew o inconveniente, + como eu separo isso, vírguma mesmo?

[Morcerus]

Consegui entrar com todos os dados no e-mail, agora estou com dificuldades para fazer as quebras de linha...

O e-mail chega assim:

Gustavo FreitasEmpresaCidadeRJ1234-5678morcerus@ig.com.brMensagememail

Se eu monto com as tags <br> ele me retorna o seguinte erro:

Erro de compilação do Microsoft VBScript erro '800a0401'

Fim da instrução esperado

/enviaremail.asp, line 34

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

-----------------------------^

Como é que eu faço pra botar as quebras?

[bareta]

veja:

[Morcerus]

ok, até funciona, + a mensagem chega assim:

Nome do Contato:Gustavo Freitas<br>Empresa:Imagem Moderna<br>Cidade:Duque de Caxias<br>Estado:RJ<br>Telefone:2676-4834<br>e-mail:gustavo@imagemmoderna.com.br<br>Informações:teste de envio de mensagem<br>Retorno via:email

[creko]

tente usar ( & vbcrlf ) no final de cada linha , aonde você quiser que quebre

abraço

[Morcerus]

Valeu Brother!!! Resolvido!

[bareta]

seu script não estava mandando a msg em html.. por isso <br> não funcionou....