8 replies to this topic

[ziriguidum]

galera.. o script é este:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

competidor = "COMPETIDOR"
nome = request("nome")
apelido = request("apelido")
e_mail = request("e_mail")
telefone = request("telefone")
data_nasc = request("data_nasc")
cidade = request("cidade")
uf = request("uf")
data_insc = request("data_insc")

modalidade = "MODALIDADE"
mod_surf = request("mod_surf")
mod_bb = request("mod_bb")

categorias = "CATEGORIAS"
sub_16_surf = request("sub_16_surf")
sub_20_surf = request("sub_20_surf")
open_surf = request("open_surf")

sub_16_bb = request("sub_16_bb")
sub_20_bb = request("sub_20_bb")
open_bb = request("open_bb")

sabendo = request("sabendo")

espaco = ": : : : :"

Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = e_mail 
Mailer.To = "ars@vibears.com"
Mailer.Subject = assunto
Mailer.Body = competidor & espaco & nome & espaco & apelido & espaco & e_mail & espaco & telefone & espaco & data_nasc & espaco & cidade & espaco & uf & espaco & data_insc & espaco & modalidade & espaco & mod_surf & espaco & mod_bb & espaco & categorias & espaco & sub_16_surf & espaco & sub_20_surf & espaco & open_surf & espaco & sub_16_bb & espaco & sub_20_bb & espaco & open_bb & espaco & sabendo
Mailer.Send
response.redirect "finaliza.asp"
%>

Bem... ele funciona perfeitamente... mas acontece q no Mailer.Body.. queria q cada ítem ficasse em linhas diferentes do mail... tentei colocar uns "<br>" mas não funcionou.. e se eu coloco um "espaco = "<br>" .. este <br> vai como texto e não como html... e se eu coloco direto no Mailer.Body não funiona.. ex.:

Mailer.Body = competidor & "<br"nome

Como faço para quebrar linhas??

Um abraço!

[[webmaster]®]

Não seria isso?

htmlemail = "Nome:" & Request("nome") & "<br>" & vbCrlf
htmlemail = "Cidade:" & Request("cidade") & "<br>" & vbCrlf
'bla bla bla

[ziriguidum]

hum.. então eu teria q descrever como quero q seja diagramado minha msg assim:

htmlemail: "balabalablaaa"

e depois, no Mailer.Body.. eu coloco só "Mailer.Body = htmlemail" ?

Vlw!

[ziriguidum]

ahh.. ehehhehe.. eu tinha percebido este erro e não sabia o q por.. então ficou assim:

htmlemail = "COMPETIDOR:<br>" & "Nome:" & request("nome") & "<br>" & "Apelido:" & request("apelido") & "<br>" & "E-mail:" & request("e_mail") & "<br>" & "Telefone:" & request("telefone") & "<br>" & "Data de nascimento:" & request("data_nasc") & "<br>" & "Cidade:" & request("cidade") & "<br>" & "UF:" & request("uf") & "<br>" & "Data de Inscrição:" & request("data_insc") & vbCrlf
htmlemail2 = "<br><br>MODALIDADE:<br>" & request("mod_surf") & "<br>" & request("mod_bb") & "<br><br>" & "CATEGORIAS:<br>" & request("sub_16_surf") & request("sub_20_surf") & request("open_surf") & request("sub_16_bb") & request("sub_20_bb") & request("open_bb") & "<br><br>" & "Como ficou sabendo?" & request("sabendo") & vbCrlf 

Só q os "<br>" ele não lê como quebra de linha... lê como texto mesmo... no e-mail a linha não é quebrada... como faço???

Abraço.

[cybermix]

para que ele reconheca o <br> como quebra coloque essa linhas antes do mailer.send

mailer.MailFormat = 0
mailer.BodyFormat = 0

elas fazem com que o cdonts envie o conteudo como html

[ziriguidum]

ae! valeu!

[Ricardo_Jackow]

aí Pessoal, eu pegeui o código e dei uma adaptada nele para meu formula´rio, mas os e-mails não estão chegando, alguém pode me ajudar?

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

Set Mailer = Server.CreateObject("CDONTS.NewMail")

Mailer.From = email1
Mailer.To = "amorosa@amorosa.com.br"
Mailer.Subject = "ASSINATURA DO SITE"
Mailer.Send
response.redirect "http://www.amorosa.c...irma_envio.asp"

Mailer.BodyText = "FORMULÁRIO DE CADASTRO AMOROSA.COM.BR"
Mailer.BodyText = " "
Mailer.BodyText = "Nome: " & Request.QueryString("nome") &""
Mailer.BodyText = "E-mail: " & Request.QueryString("email1") &""
Mailer.BodyText = "Conf.: " & Request.QueryString("email2") &""
Mailer.BodyText = "Sexo: " & Request.QueryString("sexo") &""
Mailer.BodyText = "Dia: " & Request.QueryString("dia_nasc") &""
Mailer.BodyText = "Mes: " & Request.QueryString("mes_nasc") &""
Mailer.BodyText = "Ano : " & Request.QueryString("ano_nasc") &""
Mailer.BodyText = "Cidade : " & Request.QueryString("cidade") &""
Mailer.BodyText = "UF : " & Request.QueryString("uf") &""
Mailer.BodyText = "Plano : " & Request.QueryString("plano") &""
Mailer.BodyText = "Username : " & Request.QueryString("username") &""
Mailer.BodyText = "Password : " & Request.QueryString("password") &""
Mailer.BodyText = "C. Pass: " & Request.QueryString("confpassword") &""
Mailer.BodyText = "News: " & Request.QueryString("news") &""


if not Mailer.SendMail then
Response.Write " O correu um erro...: <br>"
Response.Write Mailer.Response
else
Response.Redirect "http://www.amorosa.c...irma_envio.asp"
end if
Response.Write "This component expires: " & Mailer.Expires & "<p>"
%>