Erro na linha com comando Send

[jrjoliv2003 0]

Estou a 2 semanas tentando resolver o problema com pesquisas no fórum mas não consegui.

 

Sou iniciante em ASP e estou estudando envio de formulário para e-mail.

 

Rodei um script no servidor de hospedagem e me retornou o Cdonts como componente instalado.

 

O código abaixo para na linha do MeuEmail.Send()

 

<%
Dim Mensagem
Dim MeuEmail

Mensagem="nome="& Request.form("nome") & vbNewLine
Mensagem=Mensagem & "e-mail="& Request.form ("email") & vbNewLine
Mensagem=Mensagem & "mensagem="& Request.form ("mensagem") & vbNewLine

response.write Mensagem

Set MeuEmail = CreateObject("CDonts.NewMail")

MeuEmail.Subject = "Teste de Envio"
MeuEmail.From=Request.Form("email")
MeuEmail.To="cadastro@ig.com.br"
MeuEmail.Body = Mensagem
MeuEmail.Send()
Set MeuEmail = Nothing
%>

O erro que aprece é esse:

 

Microsoft VBScript runtime error '800a0046'

 

Permission denied

 

Não sei o que fazer.

 

Quem puder ajudar...

 

Obrigado pela força!!!

 

JR.

[hargon 64]

Provavelmente é algum erro de acesso ao componente.

 

Sugiro substituir o CDONTS por CDOSYS. Após substituir, poste o resultado.

[jrcardozo 4]

nessa linha:

MeuEmail.From = Request.Form("email")

 

o email do remetente deve pertencer domínio onde está hospedada a página de envio

MeuEmail.From = "seuemailcadastrado@seudominiohospedagem"

[jrjoliv2003 0]

hargon => O componente instalado no servidor é CDonts.

 

jonathandj => Mas o rementente pode ser qualquer pessoa, qualquer e-mail.

 

 

Obrigado por terem respondido.

 

 

JR.

[Ted k' 126]

Teste com outros componentes, CDO por exemplo!

[jrcardozo 4]

dependendo da configuração do servidor, é pré requisito que o e-mail de remetente seja do mesmo domínio. Normalmente para ser diferente o servidor requer autenticação de uma conta do mesmo dominio.

 

Mas se o componente está com problemas, você tem que entrar em contato com o suporte da hospedagem para que resolvam ou você utiliza outro componente

 

 

Isto pode ajudar:

http://support.microsoft.com/kb/286301