<%
strHost = "mail.dominio.org"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("CDONTS.NewMail")
mail.From = Request("FromName")+"<"+Request("email")+">"
mail.To = "www.dominio.org<mail@dominio.org>"
mail.Subject = Request("Subject")
mail.Body = Request("body")
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
End If
Set Mail = Nothing%>
no meu cpu funciona sem problemas no servidor não envia e-mail não sei porquê... Alguem tem alguma ideia que me possa ajudar. Já confirmei a componente é CDONTS. E pôs como permisões controlo total. Não sei que fazer...
Edição feita por: TINTIN, 03/08/2006, 18:56.