tannyeu

Boa tarde, Estou as dias tentando entender e resolver, mais não funciona, tenho uma pagina com um formulario e outra com que em ASP para enviar os dados do formulario para o email. O formulario chega no email, mais os dados do formulario que é preenchido pelo usuario não chega, vem tudo vazio. não sei mais o que fazer, então segue a baixo o arquivo ASP <% 'Valores preenchidos no formulário cnpj = Request.Form("cnpj") nomedoEscritorio = Request.Form("nomedoEscritorio") nome = Request.Form("nome") telefone = Request.Form("telefone") email = Request.Form("email") como = Request.Form("como") descreva = Request.Form("descreva") 'Ao invés de preenchermos os e-mails utilizados diretamente na configuração do CDOSYS emailFrom = "danieloliveiradasilva@bol.com.br" emailTo = "danieloliveiradasilva@bol.com.br" 'Corpo para o e-mail que será enviado corpoMensagem = "DADOS DO FORMULARIO <br><br>" & _ "CNPJ: "& cnpj &"<br>" & _ "NOME DO ESCRITORIO: "& nomedoEscritoria &"<br>" & _ "NOME: "& nome &"<br>" & _ "TELEFONE: "& telefone &"<br>" & _ "E-MAIL: "& email &"<br>" & _ "COMO CONHECEU?: "& como &"<br>" & _ "DESCREVA SUA NECESSIDADE:"& descreva Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") Set cdoConfig = Server.CreateObject("CDO.Configuration") Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig 'Aqui estava o meu problema: SSL tem que ser TRUE! objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtps.bol.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "danieloliveiradasilva@bol.com.br" objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123124125DA" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 cdoConfig.Fields.Item(sch & "smtpusessl ") = True objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'As variáveis onde estão preenchidos os e-mails do remetente e destinatário: objCDOSYSMail.From = emailFrom objCDOSYSMail.To = emailTo objCDOSYSMail.Subject = "DADOS PARA ATUALIZACAO" 'Corpo da mensagem, criado anteriormente: objCDOSYSMail.HtmlBody = corpoMensagem objCDOSYSMail.Send set objCDOSYSMail = nothing set objCDOSYSCon = nothing response.Redirect "Enviado.asp" %> deste já agradeco por todos