Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) CODIGO ASP

MLMDesigner

Perguntado por MLMDesigner,

 Share

Pergunta

MLMDesigner

MLMDesigner

Postado
Postado

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

  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Estranho... bom... vamos tentar denovo! Fiz algumas alterações no seu código... favor manter assim para testes!

<%
'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"

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 = email

'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = assunto

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = mensagem


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
%>

Basta completar ali onde diz "suas informações" e os campos direitinho do form flash... sepois teste e veja se resolveu!

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Marelo, assim... quando você for postar mensagens de erro poste-as completas, incluindo o detalhamento da linha a que ela se refere e o momento em que ela aconteceu...

Por exemplo: agora não sei se essa mensagem apareceu no seu flash (sendo uma mensagem pré-programado pelo programador) ou se você resumiu alguma mensagem de erro do asp...

Mas vamos lá...

você tem que verificar se todos os campos do form estão exatamente com esses nomes abaixo... que é onde o asp vai resgatar os dados q você digitou... olha:

nome=request.Form("formNome")
email=request.Form("formEmail")
assunto=request.Form("formAssunto")
mensagem=request.Form("formMsg")

Ou seja, o campo nome do seu form tem que ter o input denominado formNome, o campo de e-mail tem que ser formEmail e assim por diante... sacou?

Verifique isso... se continuar dando o erro poste a mensagem de erro completa, a linha a que ela se refere e a última posição do seu codigo...

Poste a última posição mesmo... completa... apagando apenas a sua senha, ok?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
MLMDesigner

MLMDesigner

Postado
  • Autor
Postado (editado)

Rafael, fiz do jeito q esta aqui mudando somente o seunome,seuemail, suasenha, smt.xxxxxx.com.br e senha xxxxxxxx ,colocando o que dever ser colocado. Pois Bem, quando cliquei no botão enviar no form, deu a mensagem pre programada "Erro ao enviar" no flash. e Por incrivel que pareça a Mensagem em vez de ir para o e-mail q é para ir foi para o e-mail que eu digitei no campo formEmail...e sem os acentos q deveriam ter ido... acho q agora esta explicado do jeito q eu fiz

<%
'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"

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 = email

'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = assunto

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = mensagem


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
%>

Editado por MLMDesigner
Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Mas aí é que está... o que eu to tentando fazer é descobrir se o erro do acento é no flash ou no asp...

Acredito ser no flash... mas pra ter 100% de certeza preciso que você mude essa linha:

objCDOSYSMail.TextBody = mensagem
por essa: 
objCDOSYSMail.TextBody = "Olá... Testes de acentos"
conforme solicitei nos exemplos que lhe mandei anteriormente... Mas assim... já posso lhe adinatar... provavelmente seja problema no flash e no asp ao mesmo tempo! você precisará rever tudo detalahadamente... lembrando que as variáveis e nomenclaturas são TUDO na programação... Isso é simples... mas tem suas quisilas... o básico você já tem... agora tens que fazer milho~es de testes até acertar... leia com atenção seu script... ele está super bem comentado... o e-mail do destinatário... que está indo errado é nessa linha aqui: 
'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = email
essa variavel email por sua vez vem daqui: 
email=request.Form("formEmail")
ou seja... o e-mail do destinatario está vindo do form flash do campo formEmail... se quiser que vá sempre pro mesmo endereço é so colocar o endereço de e-mail entre aspas, ex: 
'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = "sempreomesmo@email.com.br"

enfim... é isso... terás que fazer esses ajustes de acordo com a sua necessidade...

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
MLMDesigner

MLMDesigner

Postado
  • Autor
Postado

olha só o que eu fiz. fiztudo o que você me pediu.... e o retorno foi

Data: Tue, 16 Dec 2008 15:52:36 -0200

De: "Marcelo" <mlmdesigner@uol.com.br>

Para: <mzexpress@mzexpress.com.br>

Assunto: teste de acentos

Olá... Testes de acentos

segue o código

<%
'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="meu no aqui"
seuemail="xxxxxxxxx@xxxxxxxx.com.br"
suasenha = "xxxxxxxxxxxxxx"

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") = "localhost"

'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") = seuemail

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = suasenha
'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 = "mzexpress@mzexpress.com.br"


'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = assunto

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = "Olá... Testes de acentos"


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
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Faz assim... faz um ultimo teste só pra confirmar...

Pelo jeito está tudo ok... a única coisa que falta é substituir essa mensagem pelo "campo mensagem de seu form".. para isso faça assim:

onde aparece isso:

'CONTEÚDO DA MENSAGEM

objCDOSYSMail.TextBody = "Olá... Testes de acentos"

Substitui por isso:

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = mensagem

essa variavel "mensagem" é oriunda daqui: mensagem=request.Form("formMsg")

faça um teste colocando algum acento no seu form... se funcionar então está tudo ok! se não é cero que pe no flash... mas daí eu posso mover seu tópico pra lá se for o caso!

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites
  • 0
MLMDesigner

MLMDesigner

Postado
  • Autor
Postado

vou fazer

já volto

Olha o que digitei

Assunto: teste de acentos áéíóú

Mensagem: testede acentos áéíóú

olha o que retornou

Data: Tue, 16 Dec 2008 17:37:01 -0200

De: "Marcelo" <mlmdesigner@uol.com.br>

Para: <mzexpress@mzexpress.com.br>

Assunto: teste de acentos áéíóú

teste de acentos áéíóú

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

É meu caro... pelo menos seu código asp ficou redondinho... agora é algo no flash...

Tive ponderando aqui... acho que o melhor seria abrir um novo tópico lá mesmo... com um assunto mais focado na questão da acentuação mesmo, ok?

Bom... vou dar esse tópico aqui como resolvido... porque a parte de asp realmente foi resolvida... fiquei te devendo essa questão dos acentos... mas pra mim é quase certo que seja no flash mesmo, ok?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...