Formail, Cdons

[Guest Psycho]

no formulário de e mail, usando asp com cdonts, qual comando que manda pular uma linha, porque o cadastro eu recebo tudo em uma linha só todos os dados da pessoa, não cada um em uma linha, alguém sabe

[cyberalexxx]

Olha ali um código meu com varias quebras de linha na mensagem:

<%

' --------------------------------------------------------------

' Enviabase.asp - V.1.0 - 09/08/2004

' Informa os arquivos que serão enviados (base de dados)

' Script by: Alexandre

' --------------------------------------------------------------

set conrep=server.createobject("adodb.connection")

cnpath="DBQ=" & server.mappath("/intranet/database/rep.mdb")

conrep.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

set rsrep=conrep.execute("select * from REP where len(sistema)>0 and len(email)>0")

%>

<%

data=now()

X=0

do while not rsrep.eof

remetente="cobranca@xxxxxxx.com.br"

assunto="base de dados - sistema de cobrança"

dest=rsrep.fields("email")

arquivo="c:\temp\" + rsrep.fields("codigo") + ".zip"

mensagem = "Salve o arquivo anexo na pasta c:\temp ." & vbcrlf _

          & "DICAS PARA DESCOMPACTAÇÃO DO ARQUIVO:" & vbcrlf _

          & "Usuarios do PKUNZIP:" & vbcrlf _

          & "Entrar no Prompt do MS-DOS e digitar:" & vbcrlf _

          & "c:" & vbcrlf _

          & "cd\temp" & vbcrlf _

          & "Pkunzip " & rsrep.fields("codigo") & vbcrlf _

          &"" & vbcrlf _

          &"" & vbcrlf _

          & "Usuarios do WINZIP:" & vbcrlf _

          & "Entrar no Windows Explorer e selecionar a pasta c:\temp ." & vbcrlf _

          & "Localize o arquivo " & rsrep.fields("codigo") & ".zip" & vbcrlf _

          & "Clique com o botão direito do mouse sobre o arquivo." & vbcrlf _

          & "Escolha a opção WInzip e depois Extract to here." & vbcrlf _

          &"" & vbcrlf _

          & "Atenciosamente" & vbcrlf _

          &"" & vbcrlf _

          & session("user") & vbcrlf _

          & now()

fromEmail = remetente

toEmail = dest

Emailsubject = assunto

sMessage = mensagem

Email=session("user")

Set ObjMail = CreateObject("CDONTS.NewMail")

Call ObjMail.AttachFile(arquivo)

ObjMail.to = toEmail

ObjMail.from = fromEmail

ObjMail.subject = Emailsubject

ObjMail.body = mensagem

ObjMail.send

Set eObjMail = nothing

set conmsg=server.createobject("adodb.connection")

cnpath="DBQ=" & server.mappath("/intranet/database/mensagens.mdb")

conmsg.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

SQL = "INSERT INTO mensagens(Data,Atendente,Para,copia,assunto,anexo,mensagem)VALUES("

SQL = SQL & "'" & Data & "',"

SQL = SQL & "'" & session("user") & "',"

SQL = SQL & "'" & toEmail & "',"

SQL = SQL & "'" & ccEmail & "',"

SQL = SQL & "'" & Emailsubject & "',"

SQL = SQL & "'" & arquivo & "',"

SQL = SQL & "'" & mensagem & "')"

set rsmsg=conmsg.execute(SQL)

X=X+1

rsrep.MoveNext

LOOP

response.write(X)

response.write(" Mensagens enviadas com sucesso")

%>

[dark0]

quebrar linha, se o email for no formato HTML, é só colocar

<BR>

que quebrará linha.

Senao é preciso colocar

vbcrlf

que tb quebra linha.