Pular linha...

cillani · Outubro 24, 2006

ola amigos do forum..

estou com uma dificuldade de iniciante.. tenho um codigo para o envio e mostrar dados de um formulario.. mas estou com um problema nao consigo criar tipo de uma mascaras para que quando eu receber o formulario em minha caixa de emails eu possa visualiza-lo linha a linha tipo assim

nome: fulano

end : tal

tel: tal..

o codigo q eu coloquei fica em linha talvez seria o caso de apenas inserir uma linha que faça o asp pular linha vejam ai c podem me ajudar.. meio urgente... brigado..

o codigo é

cdoMessage.TextBody = "Equipe: " & Request.Form("equipe")  & " " & "Nome: " &  Request.Form("nome") & " " & "RG: " & Request.Form("RG") & " " & "Tel: " & Request.Form("tel") & " " & "Email: " & Request.Form("email") & " " & "Data de Nascimento: " & Request.Form("nasc")

Mário Monteiro · Outubro 24, 2006

so inderir a quebra de linha tiozinho

onde voce quer que quebre poe

cdoMessage.TextBody = "Equipe: " & Request.Form("equipe")  & "<br>" & "Nome: " &  Request.Form("nome") & "<br>" & "RG: " & Request.Form("RG") & "<br>" & "Tel: " & Request.Form("tel") & "<br>" & "Email: " & Request.Form("email") & "<br>" & "Data de Nascimento: " & Request.Form("nasc")

so isso

cillani · Outubro 24, 2006

ENTAO DA MANEIRA QUE ESTA COLOCADO O EU TESTEI E QUANDO EU RECEBO O EMAIL ELE APARECE ASSIMNOME: FULANO ENDEREÇO: TAL E ASSIM POR DIANTEEU TINHA FEITO O TESTE ANTES.. TENHO CERTEZA Q É PQ QUANDO COLOCAMOS ASPAS EM ASP NOS INDICAMOS AO CODIGO QUE AQUELE OBJETO Q ESTA ALI ENTRE AS ASPAS É UMA STRING OU TEXTO Q TEM Q SER ESCRITO NA PAGINA... ENTAO NAO FUNCIONOU ...

Ted k' · Outubro 25, 2006

Veja se isso te ajudar

entenda a lógica

br = " "

Nome = ""&Request.Form("Nome")&""

Endereco = ""&Request.Form("Endereco")&""

cdoMessage="<html><body>"&Nome&br&Endereco&"</body></html>"

Klotes · Outubro 25, 2006

faz assim http://forum.imasters.com.br/public/style_emoticons/default/closedeyes.gif

cdoMessage.TextBody = "Equipe: " & Request.Form("equipe")  & ""<br>"" & "Nome: " &  Request.Form("nome") & ""<br>"" & "RG: " & Request.Form("RG") & ""<br>"" & "Tel: " & Request.Form("tel") & ""<br>"" & "Email: " & Request.Form("email") & ""<br>"" & "Data de Nascimento: " & Request.Form("nasc")

Daw · Outubro 25, 2006

Não é necessário CAIXA ALTA, ok amigo cillani?

cillani · Outubro 25, 2006

ola queridos amigos nao me interpretem mal por favor.. é uma caracteristica minha sempre escrever em caixa alta.. rs nao é nervosismo.. rs... mas voltando ao assunto eu estou me sentindo um burro.. pq por exemplo o ultimo codigo q me passaram (do klots) ele enviou o email normal so que esta chegando apenas escrito falso sera q eu estou errando em algo..??? desde ja agradeço a ajuda de todos.. http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Magnoweb · Outubro 26, 2006

aê vale a pena verificar se o email está sendo enviado como HTML ou como TEXTO...., se possível posta essa parte ai pra gente.t+, B) Magnoweb

cillani · Outubro 26, 2006

boa ideia amigo....

ta ai ..

<html><body>

Imprima seu formulario...

<%

' Definindo uma variavel auxiliar

sch = "http://schemas.microsoft.com/cdo/configuration/"

' Criando o objeto de configuração do CDO

Set cdoConfig = Server.CreateObject("CDO.Configuration")

' Definindo as configurações

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.acaoderua.com"

cdoConfig.Fields.Item(sch & "sendusername") = "inscricao=acaoderua.com"

cdoConfig.Fields.Item(sch & "sendpassword") = "acao3rua"

cdoConfig.fields.update

' Criando o objeto de msg do CDO

Set cdoMessage = Server.CreateObject("CDO.Message")

' Associando as configurações ao obj Mensagem

Set cdoMessage.Configuration = cdoConfig

' Definido variaveis da msg

cdoMessage.From = "inscricao@acaoderua.com"

cdoMessage.To = "inscricao@acaoderua.com"

cdoMessage.Subject = "Inscrição Torneio"

' Utilize esta opção caso deseje definir o e-mail de resposta

' cdoMessage.ReplyTo = Request.Form(email)

cdoMessage.TextBody = "Equipe: " & Request.Form("equipe") & "" "" & "Nome: " & Request.Form("nome") & "" "" & "RG: " & Request.Form("RG") & "" "" & "Tel: " & Request.Form("tel") & "" "" & "Email: " & Request.Form("email") & "" "" & "Data de Nascimento: " & Request.Form("nasc")

cdoMessage.Send

Set cdoMessage = Nothing

Set cdoConfig = Nothing

variavel_equipe = Request.Form("equipe")

variavel_nome = Request.Form("nome")

variavel_RG = Request.Form("RG")

variavel_tel = Request.Form("tel")

variavel_email = Request.Form("email")

variavel_nasc = Request.Form("nasc")

variavel_equipe = Request.Form("equipe")

variavel_nome2 = Request.Form("nome2")

variavel_RG2 = Request.Form("RG2")

variavel_tel2 = Request.Form("tel2")

variavel_email2 = Request.Form("email2")

variavel_nasc2 = Request.Form("nasc2")

variavel_equipe3 = Request.Form("equipe3")

variavel_nome3 = Request.Form("nome3")

variavel_RG3 = Request.Form("RG3")

variavel_tel3 = Request.Form("tel3")

variavel_email3 = Request.Form("email3")

variavel_nasc3 = Request.Form("nasc3")

variavel_equipe4 = Request.Form("equipe4")

variavel_nome4 = Request.Form("nome4")

variavel_RG4 = Request.Form("RG4")

variavel_tel4 = Request.Form("tel4")

variavel_email4 = Request.Form("email4")

variavel_nasc4 = Request.Form("nasc4")

variavel_equipe5 = Request.Form("equipe5")

variavel_nome5 = Request.Form("nome5")

variavel_RG5 = Request.Form("RG5")

variavel_tel5 = Request.Form("tel5")

variavel_email5 = Request.Form("email5")

variavel_nasc5 = Request.Form("nasc5")

response.Write ("O nome da Equipe é " & variavel_equipe & " " )

response.Write ("Nome: " & variavel_nome & " ")

response.Write ("RG: " & variavel_RG & " ")

response.Write ("Tel: " & variavel_tel & " ")

response.Write ("Email: " & variavel_email & " ")

response.Write ("Data de Nascimento: " & variavel_nasc & "<hr>")

response.Write ("Nome2: " & variavel_nome2 & " ")

response.Write ("RG2: " & variavel_RG2 & " ")

response.Write ("Tel2: " & variavel_tel2 & " ")

response.Write ("Email2: " & variavel_email2 & " ")

response.Write ("Data de Nascimento2: " & variavel_nasc2 & "<hr>")

response.Write ("Nome3: " & variavel_nome3 & " ")

response.Write ("RG3: " & variavel_RG3 & " ")

response.Write ("Tel3: " & variavel_tel3 & " ")

response.Write ("Email3: " & variavel_email3 & " ")

response.Write ("Data de Nascimento3: " & variavel_nasc3 & "<hr>")

response.Write ("Nome4: " & variavel_nome4 & " ")

response.Write ("RG4: " & variavel_RG4 & " ")

response.Write ("Tel4: " & variavel_tel4 & " ")

response.Write ("Email4: " & variavel_email4 & " ")

response.Write ("Data de Nascimento4: " & variavel_nasc4 & "<hr>")

response.Write ("Nome5: " & variavel_nome5 & " ")

response.Write ("RG5: " & variavel_RG5 & " ")

response.Write ("Tel5: " & variavel_tel5 & " ")

response.Write ("Email5: " & variavel_email5 & " ")

response.Write ("Data de Nascimento5: " & variavel_nasc5 & "<hr>")

%>

</body></html>

Ted k' · Outubro 26, 2006

Olhe o que fiz pra você....

teste só esses campos ai e me diga se funciona ou ñ

<%

variavel_equipe = Request.Form("equipe")

variavel_nome = Request.Form("nome")

variavel_RG = Request.Form("RG")

variavel_tel = Request.Form("tel")

variavel_email = Request.Form("email")

variavel_nasc = Request.Form("nasc")

Geral="Equipe: "&variavel_equipe&" Nome: "&variavel_nome&" Rg: "&variavel_RG&" Telefone: "&variavel_tel&" E-mail: "&variavel_email&" Nascimento: "&variavel_nasc&""

MsgHtml = "<html><body>"&Geral&"</body></html>"

Sch = "http://schemas.microsoft.com/cdo/configuration/"

Set TedkConfig = Server.CreateObject("CDO.Configuration")

TedkConfig.Fields.Item(sch & "sendusing") = 2

TedkConfig.Fields.Item(sch & "smtpauthenticate") = 1

TedkConfig.Fields.Item(sch & "smtpserver") = "smtp.acaoderua.com"

TedkConfig.Fields.Item(sch & "sendusername") = "inscricao=acaoderua.com"

TedkConfig.Fields.Item(sch & "sendpassword") = "acao3rua"

TedkConfig.Fields.Update

Set TedkMessage = Server.CreateObject("CDO.Message")

Set TedkMessage.Configuration = TedkConfig

TedkMessage.From = "inscricao@acaoderua.com"

TedkMessage.To = "inscricao@acaoderua.com"

TedkMessage.Subject = "Inscrição Torneio"

TedkMessage.ReplyTo = email

TedkMessage.HTMLBody = MsgHtml

If MsgHtml <> "" Then

TedkMessage.AutoGenerateTextBody = False

TedkMessage.TextBody = MsgHtml

End If

Erro = ""

Sucesso = False

On Error Resume Next

TedkMessage.Send

Set TedkMessage = Nothing

Set TedkConfig = Nothing

If Err <> 0 Then

Erro = Err.Description

Else

Sucesso = True

End If

Set Mail = Nothing

Response.Write("<script>alert(' » Mensagem enviada com Sucesso!')</script>")

%>

cillani · Outubro 29, 2006

firmeza totall... funcionou muito bem... muito obrigado amigos.. vcs são d mais.. ....... valeu mesmo..

Arquivado

Pular linha...

Recommended Posts

cillani 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

cillani 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Klotes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Daw 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cillani 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Magnoweb 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cillani 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

cillani 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante