MLMDesigner

Valeu meu amigo foi maravilhoso pode colocar como resolvido valeu mesmo

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 áéíóú

De veras não agora é no flahs agora vou lá e vamos ver Abraços

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

vou fazer

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

já mudei da no0 frmulario erro de comunicação

Caro Amigo eu copiei exatemente como esta ai seu código alterando o que você pediu Bom com é locaweb, se eu colocar "smtp.xxxxxx.com.br" da erro de comunicacção pois lá só entre "localhost" para você ficar bem contente Não deu certo vamos de novo ... Obrigado

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

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

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

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.

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

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)

Agora eu entendi segue a mensagem q apareceu depois de eu chamar o arquivo no servidor foi essa á-é-ç-í-ó-ú