Ai Galera preciso saber se esse código esta correto pois esta em ASP e é chamado de um form feito em flash.... o site está em flash mas o sistema de e-mail é CDOSYS por isso tem q ser em ASP
Por favor me Ajudem
segue o arquivo ASP
ai Galera to com esse formulario aqui e ele não ta enviando o e-mail alguém poderia me ajudar?
<%
'Envio de email Flash + Linguagens
'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com)
'Scripts web sem autoria de Weverton Naves
'Flash com autoria de Weverton Naves
'pegar variaveis
nome=request.Form("formNome")
email=request.Form("formEmail")
assunto=request.Form("formAssunto")
mensagem=request.Form("formMsg")
'suas informações aqui
seunome="XXXXXXXXXXXX"
seuemail="XXXXXXXXXXXXXXXXXXXXXXXXXX"
suasenha = "XXXXXXXXXXXXXXXXXX"
Texto="Olá, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: "&mensagem
Dim objCDOSYSMail
Dim objCDOSYSCon
'CRIA A INSTÂNCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.XXXXXXXXXXXXXX.com.br"
'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'PORTA DO CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'ATIVAR RECURSO DE SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = XXXXXXXXXXXXXXXXXXX
'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = XXXXXXXXXXXXXXXXX
'TEMPO DE TIMEOUT (EM SEGUNDOS)
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
'NOME DO REMETENTE, E-MAIL DO REMETENTE
objCDOSYSMail.From = nome&" <"&email&">"
'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = seunome&" <"&seuemail&">"
'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = assunto
'CONTEÚDO DA MENSAGEM
'objCDOSYSMail.TextBody = "Teste do componente CDOSYS"
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
objCDOSYSMail.HtmlBody = Texto
on error resume next
'ENVIA A MENSAGEM
objCDOSYSMail.Send
'DESTRÓI OS OBJETOS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
if err.number <> 0 then
response.Write("retorno=Erro ao enviar.")
else
response.Write("retorno=Enviado com sucesso.")
end if
%>
Pergunta
MLMDesigner
Ai Galera preciso saber se esse código esta correto pois esta em ASP e é chamado de um form feito em flash.... o site está em flash mas o sistema de e-mail é CDOSYS por isso tem q ser em ASP
Por favor me Ajudem
segue o arquivo ASP
ai Galera to com esse formulario aqui e ele não ta enviando o e-mail alguém poderia me ajudar?
<% 'Envio de email Flash + Linguagens 'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com) 'Scripts web sem autoria de Weverton Naves 'Flash com autoria de Weverton Naves 'pegar variaveis nome=request.Form("formNome") email=request.Form("formEmail") assunto=request.Form("formAssunto") mensagem=request.Form("formMsg") 'suas informações aqui seunome="XXXXXXXXXXXX" seuemail="XXXXXXXXXXXXXXXXXXXXXXXXXX" suasenha = "XXXXXXXXXXXXXXXXXX" Texto="Olá, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: "&mensagem Dim objCDOSYSMail Dim objCDOSYSCon 'CRIA A INSTÂNCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.XXXXXXXXXXXXXX.com.br" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = XXXXXXXXXXXXXXXXXXX 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = XXXXXXXXXXXXXXXXX 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE objCDOSYSMail.From = nome&" <"&email&">" 'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO objCDOSYSMail.To = seunome&" <"&seuemail&">" 'ASSUNTO DA MENSAGEM objCDOSYSMail.Subject = assunto 'CONTEÚDO DA MENSAGEM 'objCDOSYSMail.TextBody = "Teste do componente CDOSYS" 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody objCDOSYSMail.HtmlBody = Texto on error resume next 'ENVIA A MENSAGEM objCDOSYSMail.Send 'DESTRÓI OS OBJETOS Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing if err.number <> 0 then response.Write("retorno=Erro ao enviar.") else response.Write("retorno=Enviado com sucesso.") end if %>Link para o comentário
Compartilhar em outros sites
40 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.