Ir para conteúdo

POWERED BY:

Arquivado

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

lordstarlight

CDonts no formato texto e com quebra de linhas

Recommended Posts

Olá pessoal,

 

Gostaria de saber como usando o CDonts consigo enviar um email no formato texto contento todas as quebras de linhas.

 

veja como estou tentando fazer

 

msg = & "Nome: "& name &""_

& "E-mail: "& email &""_

& "Numero do Pedido: "& nOrder &""

 

Mas não chegam com as quebras de linha. Chega tudo numa única linha.

 

Alguém pode me ajudar?

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

As quebras de linha que estão ali na verdade é apenas uma quebra para "estética" é o mesmo que estar assim:

msg = & "Nome: "& name &" E-mail: "& email &" Numero do Pedido: "& nOrder &""

Ou assim:

msg = "Nome: "& name
msg = msg &"E-mail: "& email
msg = msg &"Numero do Pedido: "& nOrder

, para enviar como TXT e ter quebras de linhas você deve concatenar com o "Enter", pode ser um Chr(13) ou o VBCRLF, assim:

msg = & "Nome: "& name & vbcrlf &" E-mail: "& email & vbcrlf &" Numero do Pedido: "& nOrder

Compartilhar este post


Link para o post
Compartilhar em outros sites

Maravilha Cara,

 

Funcionou mesmo

 

Agora pra finalizar, o que há de errado neste código que no final do email recebido aparece um "=" ?

 

<%name = Request.Form("name")email = Request.Form("email")nOrder = Request.Form("nOrder")dateDep = Request.Form("dateDep")nTicket = Request.Form("nTicket")valor = Request.Form("valor")obs = Request.Form("obs")data = (date)+(time)Set mail = Server.CreateObject("CDONTS.NewMail")msg = "Nome: "& name &""&vbcrlf&_	"E-mail: "& email &""&vbcrlf&_	"Numero do Pedido: "& nOrder &""&vbcrlf&_	"Data do Depósito: "& dateDep &""&vbcrlf&_	"Número do Comprovante: "& nTicket &""&vbcrlf&_	"Valor: "& valor &""&vbcrlf&_	"Mensagem: "&replace(obs,CHR(13),"<br>")&""vbcrlf&_		mail.from = ""&email&""mail.to = "pagamento@provedor.com.br"mail.subject = "Confirmação de Depósito"mail.Importance = 1mail.BodyFormat = 1mail.Body = msgmail.sendset mail = nothingif err.number > 0 then response.redirect "confNoSendPayment.asp" & err.descriptionelseresponse.redirect "confSendPayment.asp"end if%>

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.