cdonts nao envia pra email externo

[ls666 0]

Uso o cdonts no servidor a bastante tempo, nosso servior SMTP é em outra maquina os emails de dentro do nosso dominio vao certinho e rapidamente, mais pra dominios externos como yahoo, hotmail, msn, pop, gmail ele nao vai e volta uma msg assim:

 

This is an automatically generated Delivery Status Notification.THIS IS A WARNING MESSAGE ONLY.YOU DO NOT NEED TO RESEND YOUR MESSAGE.Delivery to the following recipients has been delayed.     zemane@hotmail.com

sabem o que pode ser ??? :wacko:

[ska_ska 0]

da uma procurada na net q você vai achar a resposta....

 

http://forum.abril.com.br/info/forum.php?topico=80297

 

http://www.google.com.br/search?sourceid=n...YOUR+MESSAGE%22

[ls666 0]

ja estou procurando a um bom tempo mais nao encontro se sabe o que pode ser ?

[salmeida 0]

ja estou procurando a um bom tempo mais nao encontro se sabe o que pode ser ?

<%@ Language=VBScript %><%'Script para envio de e-mail em formulárioDim vErro,vSucesso,vErrvErro = ""vSucesso = "resposta.html"vErr = "http://www.seunome.com.br/erro.html"if Request.Form.Count + Request.QueryString.Count > 0 thenCall RespformCall Resp'-----------------------------------------------------------Sub Respform()On Error Resume NextDim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDomvNomeForm = "Formulario de envio"vPara = "faleconosco@seunome.com.br"vFrom = ""vCc = "faleconosco@seunome.com.br"vAssunto = "Formulario de envio"vData = Date()vData = day(vData) & "/" & month(vData) & "/" & year(vData)vHora = Time()vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s"msg = "Formulário " & vNomeFormmsg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLfif Request.ServerVariables("REQUEST_METHOD") = "POST" thenfor each campo in Request.Formif campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & Rep(60,"-")msg = msg & campo & " : " & Request.Form(campo) & VbCrLfend ifnextelsefor each campo in Request.QueryStringif campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then msg = msg & Rep(60,"-")msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLfend ifnextend ifmsg = msg & Rep(60,"*")enviamail msg,vFrom,vPara,vCc,vAssuntoIf Err then	vErro = Err.number & " : "	vErro = Err.description	Err.ClearEnd ifEnd Sub'-----------------------------------------------------------Function Rep(pRep,pCaracter)Dim linhalinha = ""for i = 0 to pRep	linha = linha & pCaracternextRep = linha & VbCrLfEnd Function'-----------------------------------------------------------Sub enviamail(msg,fr,para,cc,subj)On Error Resume NextSet objMail = Server.CreateObject("CDONTS.NewMail")objMail.From = frobjMail.To = paraobjMail.Cc = ccobjMail.Subject = subjobjMail.Body= msgobjMail.importance=2objMail.SendIf Err then	vErro = Err.number & " : "	vErro = Err.description 	Err.ClearEnd ifSet objMail = nothingEnd Sub'-----------------------------------------------------------Sub Resp()	if vErro = "" then  Response.Redirect(vSucesso)	else  Response.Redirect(vErr)	end ifEnd Subend if%>

ABRAÇOS

[rOcKLoCo 0]

verifica se o SMTP está com permissão para envio EXTERNOfalows