To com um problema to querendo enviar um e-mail pelo cdost q tem autenticação e o codigo esta correto mas so envia nome_e-mail, assunto e mensagem e os outros campos como cep, telefone, estado e endereço não são enviados.. gostaria de saber o porque e o que esta faltando no meu codigo para este formulario seja enviado completamente por email com todos os compos:
nome_e-mail, assunto e mensagem, cep, telefone, estado e endereço.
ajudem pelo amor de deus não sei mais o que fazer
ai esta o meu codigo send o que envia os dados para o e-mail
<%
set objMail = server.createobject("CDONTS.NewMail")
Pergunta
cleverson.bh
Olá Pessoal,
To com um problema to querendo enviar um e-mail pelo cdost q tem autenticação e o codigo esta correto mas so envia nome_e-mail, assunto e mensagem e os outros campos como cep, telefone, estado e endereço não são enviados.. gostaria de saber o porque e o que esta faltando no meu codigo para este formulario seja enviado completamente por email com todos os compos:
nome_e-mail, assunto e mensagem, cep, telefone, estado e endereço.
ajudem pelo amor de deus não sei mais o que fazer
ai esta o meu codigo send o que envia os dados para o e-mail
<%
set objMail = server.createobject("CDONTS.NewMail")
' 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.provedor.com.br"
cdoConfig.Fields.Item(sch & "sendusername") = "usuario.provedor.com.br"
cdoConfig.Fields.Item(sch & "sendpassword") = "XXXXXXX"
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
cdoMessage.From = "secretaria@estrelasdofuturo.com.br"
cdoMessage.To = "secretaria@estrelasdofuturo.com.br"
cdoMessage.To = ""& Request.form("para") &""
cdoMessage.Subject = ""& Request.form("assunto") &""
cdoMessage.TextBody = ""& Request.form("produto") &""
cdoMessage.Nome = ""& Request.form("nome") &""
cdoMessage.endereco = ""& Request.form("endereco") &""
cdoMessage.telefone = ""& Request.form("telefone") &""
'cdoMessage.TextBodyFormat = 0
'cdoMessage.MailFormat = 0
'cdoConfig.Importance = 1
cdoMessage.Send
'cdoConfig.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
<%inscricao=Request.form("inscricao")%>
<%para=Request.form("para")%>
<%assunto=Request.form("Assunto")%>
<%endereco=Request.form("endereco")%>
<%nome=Request.form("nome")%>
<%telefone=Request.form("telefone")%>
<%produto=Request.form("produto")%>
obs.. os campos forms estao corretos la no form
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.