Jump to content
Fórum Script Brasil
  • 0

ASP não RECEBE OS DADOS DO FORMULARIO


tannyeu

Question

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

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...