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

(Resolvido) CODIGO ASP


MLMDesigner

Pergunta

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

Posts Recomendados

  • 0

Olha o codigo asp ai correto para funcionar no CDOSYS da locaweb,o e-mail ta indo direto sem problema.... a unica coisa q está errada é que quando a gente vai ler infelizmente não aparece os acentos nas palavras q são acentuadas ou q contem "ç" no restante ta funcionando legal

segue o código em ASP

<%
'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="digite aqui seu nome"
seuemail="digite aqui seu e-mail@ dominio.com.br"
suasenha = "digite aqui a sua senha"

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

Editado por Rafael Spilki
tags code!
Link para o comentário
Compartilhar em outros sites

  • 0

Ok Prendi mas mesmo assim o Codigo só na parte da mensaghem continua sem acento e sem "ç" segue o código para verificação

<%
'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="digite aqui seu nome"
seuemail="digite aqui seu e-mail@ dominio.com.br"
suasenha = "digite aqui a sua senha"

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") = "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 = 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 = Server.HTMLEncode(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

  • 0

Mudei como você me pediu mas mesmo assim nada

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="coloque seu nome aqui"
seuemail="coloque seu e-mail@dominio.com.br aqui"
suasenha = "coloque sua senha aqui"

Texto="Ol&aacute, 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") = "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 = 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 = Server.HTMLEncode(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

  • 0

Pra descobrir os códigos de acentuação, crie uma página em ASP e use o server.htmlencode para exibir o código do caractere

Exemplo:

<%
Response.Write(Server.HTMLEncode("á-é-ç-í-ó-ú"))
%>

Obs.: Para ver o código do acento você tem que visualizar o código-fonte da página !

Link para o comentário
Compartilhar em outros sites

  • 0

Jonathan sei que o que você faz pela gente é maravilhoso, você deve ser uma p*** programador em ASP, mas desculpe o comentário é que eu como 70% do pessaol q acessa esse forun, ou outros forun de ASP, FLASH, PHP, etc.... somos digamos assim principiantes em programação ... por isso o q a gente pede é que, isso se você quizer e puder , poste o código onde a gente tem q colocar, e como fazer isso, esse código q você escreveu ai em cima eu nem sei onde colocar... fico vendido.... desculpe mas é isso q acontece...

Obrigado

MLMDesigner (Marcelo Lopes Machado)

Editado por MLMDesigner
Link para o comentário
Compartilhar em outros sites

  • 0

Bom segue o codigo ai para ver onde eu coloco esse esquema ai q você me falou... se possivel edita o codigo e me mostra onde colocar.

<%
'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="coloque seu nome aqui"
seuemail="coloque seu e-mail@dominio.com.br aqui"
suasenha = "coloque sua senha aqui"

Texto="Ol&aacute, 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") = "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 = 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 = Server.HTMLEncode(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

  • 0

a idéia do Jonathan é a seguinte:

<%
'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="coloque seu nome aqui"
seuemail="coloque seu e-mail@dominio.com.br aqui"
suasenha = "coloque sua senha aqui"

Texto="Ol&aacute, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: "&mensagem
'aqui voce começa a formatar o seu texto...
texto = replace(texto, "á", Server.HTMLEncode("á"))
texto = replace(texto, "é", Server.HTMLEncode("é"))
'repita isso com todos os acentos possíveis... não vou fazer aqui por motivos óbvios... tudo igual... só mudando os acentos e letras... por exemplo: ã, ê, ó, à...
'o objetivo aqui é substituir os acentos "normais" por acentos "codificados"... não tem muito como explicar diferente... não é bem isso mas é quase isso!

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 = 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 = Server.HTMLEncode(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
%>

Enfim... taí... basta continuar agora!

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites

  • 0

Vou fazer as alterações devidas e obrigado, peço desculpa para vocês q são FERAS em ASP, para fazerem desse jeito, na minha opinião, acho q desse jeito se não funcionar é porque não tem como funcionar, mas se todos os POST do forum fossem assim desse jeito acho q a gente q é iniciante na parte de programação em ASP, PHP, Action Script, seria muita mais facil para gente poder aprender. Ta certo tem pessoas q só vão copiar e colar, mas no meu caso eu estudo o que cada linha esta fazendo, mas é dificil para gente enteder...

Obrigado mesmo a todos q ajudaram

MLMDesigner (Marcelo)

PS. Qualquer dúvida q alguém tiver em 3DStudio é só perguntar via e-mail q eu respondo pois trabalho com 3D desde a versão 1.

Editado por MLMDesigner
Link para o comentário
Compartilhar em outros sites

  • 0

Bom galera olha o codigo ai q eu fiz com todas as alterações q me falaram, mas infelizmente não deu certo

Olha o que me retorna no e-mail

Ol&aacute, você recebeu uma mensagem do site.<br>Nome: Marcelo Lopes

Machado<br>Email: mlmdesigner@uol.com.br<br>Assunto: teste<br> Mensagem:

Ã, á, é, Ã?, Ã, í ,Ã", ó,

ú, Ãs

e no Fomulário do site foi digitado

Nome: Marcelo Lopes Machado<br>Email: mlmdesigner@uol.com.br<br>Assunto: teste<br> Mensagem:

Á, á, É, é,í, Í, Ó, ó

<%
'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="Digite seu Nome Aqui"
seuemail="digite seu e-mail@dominio.com.br aqui"
suasenha = "digite sua senha aqui"

Texto="Ol&aacute, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: "&mensagem
            texto = replace(texto, "á", Server.HTMLEncode("á"))
            texto = replace(texto, "é", Server.HTMLEncode("é"))
            texto = replace(texto, "ã", Server.HTMLEncode("ã"))
            texto = replace(texto, "í", Server.HTMLEncode("í"))
            texto = replace(texto, "ó", Server.HTMLEncode("ó"))
            texto = replace(texto, "õ", Server.HTMLEncode("õ"))
            texto = replace(texto, "ú", Server.HTMLEncode("ú"))
            texto = replace(texto, "Á", Server.HTMLEncode("Á"))
            texto = replace(texto, "Ã", Server.HTMLEncode("Ã"))
            texto = replace(texto, "É", Server.HTMLEncode("É"))
            texto = replace(texto, "Í", Server.HTMLEncode("Í"))
            texto = replace(texto, "Ó", Server.HTMLEncode("Ó"))
            texto = replace(texto, "Õ", Server.HTMLEncode("Õ"))
            texto = replace(texto, "Ú", Server.HTMLEncode("Ú"))
            texto = replace(texto, "ç", Server.HTMLEncode("ç"))
            texto = replace(texto, "Ç", Server.HTMLEncode("Ç"))
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 = 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 = Server.HTMLEncode(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
%>

se alguém conseguir achar o erro me avise

Obrigado

Editado por MLMDesigner
Link para o comentário
Compartilhar em outros sites

  • 0

Bom... no caso acima como você está dando o replace nos acentos a palavra Olá deverá ser novamente escrita desta forma mesmo: "Olá"...

mas muito estranho... cara... tenta assim:

<%
'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="Digite seu Nome Aqui"
seuemail="digite seu e-mail@dominio.com.br aqui"
suasenha = "digite sua senha aqui"

'Texto="Olá, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: &mensagem
            'texto = replace(texto, "á", Server.HTMLEncode("á"))
            'texto = replace(texto, "é", Server.HTMLEncode("é"))
            'texto = replace(texto, "ã", Server.HTMLEncode("ã"))
            'texto = replace(texto, "í", Server.HTMLEncode("í"))
            'texto = replace(texto, "ó", Server.HTMLEncode("ó"))
            'texto = replace(texto, "õ", Server.HTMLEncode("õ"))
            'texto = replace(texto, "ú", Server.HTMLEncode("ú"))
            'texto = replace(texto, "Á", Server.HTMLEncode("Á"))
            'texto = replace(texto, "Ã", Server.HTMLEncode("Ã"))
            'texto = replace(texto, "É", Server.HTMLEncode("É"))
            'texto = replace(texto, "Í", Server.HTMLEncode("Í"))
            'texto = replace(texto, "Ó", Server.HTMLEncode("Ó"))
            'texto = replace(texto, "Õ", Server.HTMLEncode("Õ"))
            'texto = replace(texto, "Ú", Server.HTMLEncode("Ú"))
            'texto = replace(texto, "ç", Server.HTMLEncode("ç"))
            'texto = replace(texto, "Ç", Server.HTMLEncode("Ç"))
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 = email

'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = assunto

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = "Olá... você recebeu uma mensagem acentuada em TXT!"
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
'objCDOSYSMail.HtmlBody = Server.HTMLEncode(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
%>

teste e depois diga o que aconteceu!

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites

  • 0

OLHA AI MANDEI O SEGUINTE ASSUNTO E NA MENSAGEM

TESTE DE ACENTOS áéíóúçÇÁÉÍÓÚ

OLHA o que RETORNOU

Ol&aacute, você recebeu uma mensagem do site.<br>Nome: Marcelo<br>Email:

mlmdesigner@uol.com.br<br>Assunto: Teste de acentos

áéíóúçÃÃ?ÃÃ"&#

195;sÃ?<br> Mensagem: Teste de acentos

áéíóúçÃÃ?ÃÃ"&#

195;sÃ?

O FORM É EM FLASH SERA Q TEM ALGO ERRADO LÁ, POIS LA ESTA TUDO ENBLEBED

TENHAMOS FÉ Q VAMOS CONSEGUIR

Editado por MLMDesigner
Link para o comentário
Compartilhar em outros sites

  • 0

você tem certeza que deixou o códio exatamente como eu sugeri... porque a mensagem que eu escrevi está bem diferente e eu havia desabilitado a mensagem antiga e o modo de envio por HTML...

Veja... a mensagem do script que lhe mandei era assim:

"Olá... você recebeu uma mensagem acentuada em TXT!"

e a resposta que tivemos do seu teste foi assim:

Ol&aacute, você recebeu uma mensagem do site.<br>Nome: Marcelo<br>Email:

mlmdesigner@uol.com.br<br>Assunto: Teste de acentos

Ou seja, algo errado aconteceu... confirme se o codigo ficou exatamente como lhe mandei... alterando é claro apenas as infs pessoais como senha e etc...

Link para o comentário
Compartilhar em outros sites

  • 0

não deu certo copiei o código q você postou e o retorno foi

Assunto :teste deá-é-ç-í-ó-ú

E tinha digitado: Assunto teste de ÁÉÍÓÚ áéíóú àÀ èè çÇ

no campo msg retornou o texto q você tinha colocado pra retornar no código

objCDOSYSMail.TextBody = "Olá... você recebeu uma mensagem acentuada em TXT!"

fico no aguardo

Editado por MLMDesigner
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.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...