CDOSYS - Erro no envio com variavel como destinatario

[Allan Hermoso 0]

Tenho uma página de envio de e-mail, que utiliza o método CDOSYS e que pega atraves de uma variavel chamada "v_para" o destinatário.

 

Quando atribuo um valor fixo a variavel, por exemplo:

 

v_para = "Joao<joao@teste.com.br>"

 

O script funciona. Agora quando coloco:

 

nome = request.querystring("nome")email = request.querystring("email")v_para = nome & "<" & email & ">"

O script retorna o seguinte erro:

 

error '8004020f'

/web/nm/admin/list_assinantes.asp, line 121

 

Já fiz response.write na variável e ela exibe normalmente, o erro só acontece na hora do envio, e é apontado exatamente para linha que tem o comando:

 

objCDOSYSMail.Send

 

Segue abaixo código completo da aplicação:

 

dim strMsg, email, nome	email = request.QueryString("emailpara")	nome = request.QueryString("nomepara")	response.write request.QueryString("emailpara")	v_para = nome & "<" & email & ">"	v_de = "EU<eu@dominio.com.br>"	v_respondepara = "EU<eu@dominio.com.br>" 	v_assunto = "Assunto - " & date() 	strMsg = "Conteudo do email"	Set objCDOSYSMail = Server.CreateObject("CDO.Message") 	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30	objCDOSYSCon.Fields.update 		Set objCDOSYSMail.Configuration = objCDOSYSCon 	objCDOSYSMail.From = v_de 	objCDOSYSMail.To = v_para 	objCDOSYSMail.Subject = v_assunto	objCDOSYSMail.TextBody = strMsg 	objCDOSYSMail.Send 	Set objCDOSYSMail = Nothing 	Set objCDOSYSCon = Nothing

Bom, é isso, se alguem souber alguma solução poste aí. Valeu.

[jothaz 1]

Camarada,Difícil de opinar ainda mais remotamente!Agora vai uma dica. Pq você não imprime (response.write) o coteúdo das variáveis v_de,v_para,v_assunto ,strMsg antes do SEND e verifique o sem têm algo faltando.Bom pode ser que exista algum caracter em seus QueryString com algum caracter que tá ferrando tudo.São só palpites.t+

Tenho uma página de envio de e-mail, que utiliza o método CDOSYS e que pega atraves de uma variavel chamada "v_para" o destinatário. Quando atribuo um valor fixo a variavel, por exemplo:v_para = "Joao<joao@teste.com.br>"O script funciona. Agora quando coloco:nome = request.querystring("nome")email = request.querystring("email")v_para = nome & "<" & email & ">"O script retorna o seguinte erro:error '8004020f' /web/nm/admin/list_assinantes.asp, line 121 Já fiz response.write na variável e ela exibe normalmente, o erro só acontece na hora do envio, e é apontado exatamente para linha que tem o comando:objCDOSYSMail.SendSegue abaixo código completo da aplicação: dim strMsg, email, nome email = request.QueryString("emailpara") nome = request.QueryString("nomepara") response.write request.QueryString("emailpara") v_para = nome & "<" & email & ">" v_de = "EU<eu@dominio.com.br>" v_respondepara = "EU<eu@dominio.com.br>" v_assunto = "Assunto - " & date() strMsg = "Conteudo do email" Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = v_de objCDOSYSMail.To = v_para objCDOSYSMail.Subject = v_assunto objCDOSYSMail.TextBody = strMsg objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = NothingBom, é isso, se alguem souber alguma solução poste aí. Valeu.

[Ellen 0]

Olá Allan...

 

Dê uma olhada neste código, se te ajuda...

 

http://site.locaweb.com.br/suporte/faq/faq.asp?faq=1646

http://site.locaweb.com.br/suporte/Faq/faq...oCategoria=4733

Abraços...

[Allan Hermoso 0]

Já descolei o problema... Não era nada disso que descrevi acima :SO servidor de envio não permitia o enviar mensagens através de um remetente com outro endereço de e-mail que não fosse daquele mesmo servidor. Por exemplo meu domínio é teste.com.br, e quero enviar um e-mail através do e-mail teste@testando.com.br, porém o servidor não permite e retorna um erro. Pra quem hospeda com a Locaweb aproveite esta dica.Abracos