tionet x email!

[angus 0]

COMO CONFIGURAR UM FORMULÁRIO PARA ESTE CÓDIGO?<%set objMail = server.createobject("CDONTS.NewMail")objMail.From = "remetente@servidor.com.br"objMail.To = "destino1@servidor.com.br"objMail.Cc = "destino2@servidor.com.br"objMail.Bcc = "destino3@servidor.com.br"objMail.Subject = "Assunto"objMail.Body = "Corpo da Mensagem"objMail.Importance = 1objMail.SendResponse.Write "Mensagem Enviada"set objMail = Nothing%>

[angus 0]

Como criar um formulário para o código acima?Por Favor

[angus 0]

Como criar o formulário para este código?Obrigado

[angus 0]

Como criar um formulário para enviar E-Mails com os códigos acima?

[angus 0]

alguém pode me ajudar por favor!?

[angus 0]

Pelo menos repondam se tem jeito ou não, obrigado!

[Erivelton 0]

Ai esse código vai te ajudar d+, tá bem simples e mascadinho! Cada campo q você criar no forma é só adicionar no código abaixo e pronto! é fino d+.At+'strMsgObrigado = strMsgObrigado & " " & vbcrlf'esta linha é como se fosse um enter!<%Dim vNome,vEmpresa,vCidade,vEstado,vPais, vTelefone,vFax,vEmail,vAssunto,vTextovNome = request.form ("txtNome")vEmpresa = request.form ("txtEmpresa")vCidade = request.form ("txtCidade")vEstado = request.form ("txtEstado")vPais = request.form ("txtPais")vTelefone = request.form ("txtTelefone")vFax = request.form ("txtFax")vEmail = request.form ("Email")vAssunto = request.form ("txtAssunto")vTexto = request.form ("txtTexto")strMsgObrigado = strMsgObrigado & " Nome....: " &vNome &vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " Empresa.: " &vEmpresa & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " Cidade..: " &vCidade& "/" &vEstado &vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " País....: " & vPais &vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " Telefone: " &vTelefone & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " Fax.....: " &vFax & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " Email...: " &vEmail & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " Mensagem " & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " " &vTexto& vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " Contato Pelo Formulário do Site" & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfstrMsgObrigado = strMsgObrigado & " " & vbcrlfSet objCDO = Server.CreateObject("CDONTS.NewMail")objCDO.From = vEmailobjCDO.To = "seu@email.aqui.br"objCDO.Subject = vAssuntoobjCDO.Body = strMsgObrigadoobjCDO.Send%>

[angus 0]

Legal amigo, acho que você me ajudou muito!Um forte abraço