Erro ao enviar dados...

[phpricardo 0]

Microsoft VBScript runtime error '800a0046'

 

Permission denied

 

/v1/inc/enviaemail.asp, line 17

 

<%

 

nome = Request.Form("nome")

email = Request.Form("email")

assunto = Request.Form("assunto")

mensagem = Request.Form("msg")

 

conteudo = "NOME: "& nome&"<br />E-MAIL: "& email &"<br />ASSUNTO: "& assunto &"<br />MENSAGEM: "& mensagem

 

Set EnvioEmail = Server.CreateObject("CDONTS.NewMail")

EnvioEmail.From = nome & "(" & email & ")"

EnvioEmail.To = "imobiliaria@bluepoint.com.br"

EnvioEmail.BodyFormat = 0

EnvioEmail.MailFormat = 0

EnvioEmail.Subject = "[CONTATO]"

EnvioEmail.Body = conteudo

EnvioEmail.Send '<<<<<<<<<<<<<<< linha 17

Set EnvioEmail = Nothing

 

Response.Redirect("sucesso.asp")

 

%>

bem permissão negada.. sei la.. como resolver isso?

[hargon 64]

Você está executando isso local ou no servidor externo?

 

Pesquise sobre CDOSYS, pois é um componente que veio para substituir o CDONTS, e é mais utilizado atualmente.

 

Talvez usando CDOSYS já resolve o problema.

[phpricardo 0]

cara.. então pesquisando aqui descobrir isso mesmo.. e na locaweb deve ta usando o cdosys.

 

mas agora to tentando ver como adptar o codigo pra esse cdosys, pode dar uma força?

[Loko da Web 1]

Cara, tem varios assuntos a respeito, é só pesquisar... mas, como estou de bom humor :

 

<% 
'cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.dominio.com.br" 

'porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 
= 25 

'porta do CDO 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'timeout 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 

objCDOSYSCon.Fields.update 

'atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'e-mail do remetente 
objCDOSYSMail.From = "eu@MeuDominio.com.br" 

'e-mail do destinatário 
objCDOSYSMail.To = "destinatario@dominio.com.br" 

'assunto da mensagem 
objCDOSYSMail.Subject = "Teste do CDOSYS" 

'conteúdo da mensagem 
objCDOSYSMail.TextBody = "Teste do componente CDOSYS" 
'para envio da mensagem no formato html altere o TextBody para HtmlBody 
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS" 

'objCDOSYSMail.fields.update 
'envia o e-mail 
objCDOSYSMail.Send 

'destrói os objetos 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write "E-mail enviado para destinatario@dominio.com.br ..." 
%>

[phpricardo 0]

cara disculpa expressão.. mas é pq literalmente não gosto de asp, é pq tem um site aq ai chefe me pediu pra ver se eu resolvia o problema desse form de contato

 

(mostrar serviço..)

 

ai vasculhei tanta coisa descobrir ai to a onde to...

 

mas e os valores do form vao passar por onde ai????

 

coloquei do jeito que tu pos ai e editei o que tem que ediar e veio isso agora..

 

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/v1/inc/enviaemail.asp, line 13

 

= 25

^

<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.bluepoint.com.br"

'porta do SMTP
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 = "imobiliaria@bluepoint.com.br"

objCDOSYSMail.To = "imobiliaria@bluepoint.com.br"


objCDOSYSMail.Subject = "Teste do CDOSYS"

objCDOSYSMail.TextBody = "Teste do componente CDOSYS"
objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

objCDOSYSMail.fields.update

objCDOSYSMail.Send


Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail enviado para destinatario@dominio.com.br ..."
%>

 

deixei assim... e ta dando erro linha 35 no caso.. objCDOSYSMail.Send

[hargon 64]

mas é pq literalmente não gosto de asp

Não vou entrar nessa discussão para não fugir do proposito do tópico. ¬¬

 

Sobre o erro, poste o que você tem na linha 13, ao que tudo indica tem um "igual" sobrando aí.

[phpricardo 0]

veja o novo erro ai man.. e pq "= 25" nao tava na mesma linha.

[hargon 64]

Tenta dessa forma. Você está usando isso local ou em servidor externo? Se for local você tem que ter o componente instalado em sua máquina.

 

<%
'cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.bluepoint.com.br"
'porta do SMTP
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields.Item.("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "imobiliaria@bluepoint.com.br"
objCDOSYSMail.To = "imobiliaria@bluepoint.com.br"
objCDOSYSMail.Subject = "Teste do CDOSYS"
objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail enviado para destinatario@dominio.com.br ..."
%>

[phpricardo 0]

erro persiste...

objCDOSYSMail.Send

 

e to usando servidor externo..

locaweb

[hargon 64]

Dê uma olhada com o suporte da Locaweb. Eles utilizam uma configuração diferente de informar servidores SMTP em sites.

 

Se não me engano para usar o SMTP deles é necessário informar usuário e senha da conta e-mail.

[phpricardo 0]

ok amigo agradeço...

 

irei checar com locaweb.

[hargon 64]

Qualquer dúvida sobre ajustar as configurações, poste aqui.

[dark0 0]

Só pra constar..

 

A locaweb, tem um excelente conteúdo de tutoriais com seus componentes.. basta dar uma olhada nos FAQS deles, tem até código de exemplo prontinho..

 

Muitos problemas se resolvem aí..

 

dark0

[phpricardo 0]

<%

'## Configuração do cabeçalho da mensagem

sDestinatario = "imobiliaria@bluepoint.com.br"

sRemetente = "imobiliaria@bluepoint.com.br" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio.

sResponder = "imobiliaria@bluepoint.com.br"

sAssunto = "Teste Locaweb CDOSYS"

sMensagem = "Esta é uma mensagem de teste enviada através do componente CDOSYS."

 

' Cria o objeto CDOSYS

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

 

'Cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

 

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

 

'Porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25

 

'Porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 

'Timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

 

'Atualiza a configuração do CDOSYS para envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

 

' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####

'Configura o remetente(FROM)

objCDOSYSMail.From = sRemetente

 

'Configura o destinatário(TO)

objCDOSYSMail.To = sDestinatario

 

'Configura o Reply-To(Responder Para)

objCDOSYSMail.ReplyTo = sResponder

 

'Configura o assunto(SUBJECT)

objCDOSYSMail.Subject = sAssunto

 

'Configura o conteúdo da mensagem

'Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody

objCDOSYSMail.TextBody = sMensagem

 

' ### ENVIA O E-MAIL ###

objCDOSYSMail.Send

 

' ### DESTRÓI OS OBJETOS ###

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

response.write "Mensagem enviada com sucesso para: "&sDestinatario&" ..."

%>

TA FUNCIONANDO, porém ta indo como SPAM, logo eu queria saber tb como fazer pra pegar os dados do formulario =\

 

 

pegando dados NOME, E-MAIL, ASSUNTO, MENSAGEM e um RADIO.

 

=\

 

agredeço.

[hargon 64]

Para pegar os dados, pesquise sobre Request.