Email que não chega!!!

[Wellington 0]

Salve Brother´s!!!

 

Porque não chega ou até mesmo, esta demorando muito pra chegar o email enviado via CDonts em uma página de contato?

 

Server Usado: Aspecto.Net

 

<%	Function montarNome()  Dim rNome, rSobreNome  rNome = Trim(Request.Form("FirstName"))  rSobreNome = Trim(Request.Form("LastName"))  montarNome = rNome & " " & rSobreNome	End Function%><%	Function montarEndereco()  Dim rEnd01, rEnd02  rEnd01 = Trim(Request.Form("Address1"))  rEnd02 = Trim(Request.Form("Address2"))  montarEndereco = rEnd01 & " " & rEnd02	End Function	%><%	Dim rCompanhia, rCidade, rPais	Dim rCEP, rPhone, rEmail, rDescricao_Outros	rCompanhia = Trim(Request.Form("Company"))	rCidade = Trim(Request.Form("City"))	rPais = Trim(Request.Form("State"))		rCEP = Trim(Request.Form("ZIP"))	rPhone = Trim(Request.Form("Phone"))	rEmail = Trim(Request.Form("Email"))	rSite = Trim(Request.Form("URL"))	rDescricao_Outros = Trim(Request.Form("Jobspecify"))%><%	Function montarInteresse()  Dim rInteresse  rInteresse = Trim(Request.Form("Job"))  If (rInteresse="Outros") Then 	 montarInteresse = (rInteresse & " - " & "Especificação:" & " " & rDescricao_Outros)  Else 	 montarInteresse = rInteresse  End If 	End Function%><%	Dim rBusiness, rOutros	rBusiness = Trim(Request.Form("Description"))	rOutros = Trim(Request.Form("Info"))%><%	Function FormataEmail()  FormataEmail = ("Nome: " & montarNome & "<br>")    FormataEmail = FormataEmail & ("Endereço: " & montarEndereco & "<br>")  FormataEmail = FormataEmail & ("Empresa: " & rCompanhia & "<br>")   FormataEmail = FormataEmail & ("Cidade: " & rCidade & "<br>")  FormataEmail = FormataEmail & ("Pais: " & rPais & "<br>")  FormataEmail = FormataEmail & ("CEP : " & rCEP & "<br>")  FormataEmail = FormataEmail & ("Phone: " & rPhone & "<br>")  FormataEmail = FormataEmail & ("Email: " & rEmail & "<br>")  FormataEmail = FormataEmail & ("WebSite: " & rSite & "<br>")  FormataEmail = FormataEmail & ("Interesse: " & montarInteresse & "<br>")  FormataEmail = FormataEmail & ("Business: " & rBusiness & "<br>")  FormataEmail = FormataEmail & ("Outras Informações: " & rOutros & "<br>") 	End Function%><%	Set Mensagem = Server.Createobject("CDONTS.NewMail")	Mensagem.From = "Teste01"	Mensagem.To = "wellington.r.s@terra.com.br"	Mensagem.SubJect = "Página de Contato"	Mensagem.BodyFormat = 0	Mensagem.MailFormat = 0	Mensagem.Body = FormataEmail	Mensagem.Send	Set Mensagem = Nothing	Response.Write("Mensagem foi enviada com sucesso!")%>

Abraços!!

Wellington

[Salgado 4]

No próprio ASPecto o administrador está indicando o uso do JMail, pois o CDonts não está aguentando o numero de usuários usando o sistema.

Lá mesmo tem a sintaxe do JMail!

[Wellington 0]

No próprio ASPecto o administrador está indicando o uso do JMail, pois o CDonts não está aguentando o numero de usuários usando o sistema.Lá mesmo tem a sintaxe do JMail!

Até entendo esta parte, mas o barato tem que funcionar!!

 

Já tem bem uns 10 minutos que mandei... e nada de funcionar, vou tentar trocar a sintaxe!!!

 

Obrigado Salgado!!

 

Abraços

wellington