Jump to content


Photo

Form Com Cdosys


  • Faça o login para participar
4 replies to this topic

#1 quarantines

quarantines

    idi Development Institute

  • Usuários
  • 318 posts
  • Sexo:Masculino
  • Localidade:Santa Cruz Cabrália - Costa do Descobrimento - Bahia
  • Interesses:Design, ActionScript, ASP, Flash, XML, Fireworks, Photoshop, Fotografia, Feijão com Arroz e ovo frito, Escrituras, Ajudar pessoas

Posted 05/12/2006, 21:06

Olá Pessoal... não sou muito hábil no ASP...

precisei fazer um form com o componente CDOsys... então fui à caça e encontrei bastante coisa... mas uma delas não to conseguindo configurar... pq não encontrei... nem aqui no fórum...

como faço pra formatar o corpo da mensagem pra me mandar os valores dos campos preenchidos??

utilizei este aqui, mas... é claro, deu errado!

objCDOSYSMail.HtmlBody = "Nome:" txtNome<br>"E-mail:"  txtEmail<br>"Telefone:" txtTel <br>"Assunto:" txtAssunto <br>"Comentários:" txtMsg

Será q alguém pode me dar uma ajudinha??

abraços!

#2 Operador

Operador

    12 Horas

  • Usuários
  • 228 posts
  • Sexo:Masculino
  • Localidade:Picos - PI

Posted 05/12/2006, 22:29

É isso?

strMsg = strMsg & "Nome: " & nome & "<br>"
strMsg = strMsg & "Email: " & email & "<br>"
strMsg = strMsg & "Cidade: " & cidade & "<br>"
strMsg = strMsg & "Estado: " & estado & "<br>"
strMsg = strMsg & "Assunto: " & subject & "<br>"
strMsg = strMsg & "Mensagem: " & mensagem & "<br>"
strMsg = strMsg & "-----------------------------"

cdoMessage.HTMLBody = strMsg
cdoMessage.To = "e-mail que receberá os dados"
cdoMessage.Send


Qualquer coisa pergunta ai...

Edição feita por: Operador, 05/12/2006, 22:34.

----------------------------------------------------------------------------
Não sei assinar... ehehehe
----------------------------------------------------------------------------

#3 quarantines

quarantines

    idi Development Institute

  • Usuários
  • 318 posts
  • Sexo:Masculino
  • Localidade:Santa Cruz Cabrália - Costa do Descobrimento - Bahia
  • Interesses:Design, ActionScript, ASP, Flash, XML, Fireworks, Photoshop, Fotografia, Feijão com Arroz e ovo frito, Escrituras, Ajudar pessoas

Posted 05/12/2006, 23:59

Puxa, obrigado por responder!!!

então... funcionou muito bem!

Obrigado!

uma última coisa... na verdade não é estritamente necessária... mas tem jeito de colocar o email da pessoa que está preenchendo o formulário no campo From??

tipo, pq eu tentei, mas só deu erro e o único q acietou foi um email estático...

ex.

só funciona assim: objCDOSYSMail.From = "meu@email.com"

eu tentei das duas formas... sendo txtEmail o campo preenchido do form
objCDOSYSMail.From = txtEmail
objCDOSYSMail.From = & txtEmail &

Abraços

Diego Idi

#4 Operador

Operador

    12 Horas

  • Usuários
  • 228 posts
  • Sexo:Masculino
  • Localidade:Picos - PI

Posted 06/12/2006, 00:59

vc quer dizer pegar o e-mail do usuário que preencheu o form? se for seria do jeito que eu coloquei, acrescente isso ao código para pegar os dados do form

email = Request("email")

e aqui o que vai aparecer no e-mail que vc colocou para receber os dados

strMsg = strMsg & "Email: " & email & "<br>"

ai vc recupera todos os campos do form...
----------------------------------------------------------------------------
Não sei assinar... ehehehe
----------------------------------------------------------------------------

#5 quarantines

quarantines

    idi Development Institute

  • Usuários
  • 318 posts
  • Sexo:Masculino
  • Localidade:Santa Cruz Cabrália - Costa do Descobrimento - Bahia
  • Interesses:Design, ActionScript, ASP, Flash, XML, Fireworks, Photoshop, Fotografia, Feijão com Arroz e ovo frito, Escrituras, Ajudar pessoas

Posted 06/12/2006, 15:40

Puxa, obrigado!

seria desta maneira aqui:

strMsg = strMsg & "Nome: " & txtNome & "<br>"
strMsg = strMsg & "Email: " & txtEmail & "<br>"
strMsg = strMsg & "Telefone: " & txtTel & "<br>"
strMsg = strMsg & "Assunto: " & txtAssunto & "<br>"
strMsg = strMsg & "Mensagem: " & txtMsg & "<br>"
strMsg = strMsg & "-----------------------------"
email = Request("txtEmail")

objCDOSYSMail.HTMLBody = strMsg
'e-mail do destinatário 
objCDOSYSMail.To = "luciano@xurupita.com" 
'e-mail do remetente 
objCDOSYSMail.From = email
objCDOSYSMail.fields.update


também tentei:
objCDOSYSMail.From = Request("txtEmail")

mas não deu certo igual...

mas não tem problema, muito obrigado por toda ajuda!

Edição feita por: quarantines, 06/12/2006, 15:41.





0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq