Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

adagir

formulario em asp

Recommended Posts

bom dia pessoal, eu gostaria da ajuda de vcs se for possivel é claro.

 

eu fiz um formulario de email em flash com um arquivo envia.asp mas nunca chega ao destino gostaria q analisassem pra mim por gentileza,como sou iniciante eu sempre tento resolver primeiro na net e faz um tempão q estou tentando e nada.

o arquivo é este:

 

<%
'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") = "mail-fwd"
'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 = request.Form("email")
'e-mail do destinatário
objCDOSYSMail.To = "adagir@terra.com.br"
'assunto da mensagem
objCDOSYSMail.Subject = "Contato pelo Site"
'conteúdo da mensagem
strBody = "Dados" & vbCrLf & vbCrLf & _ 
"Nome: "& Request("Nome") & vbCrLf & _ 
"E-Mail: "& Request("E-Mail") & vbCrLf & _ 
"Endereco: "& Request("Endereco") & vbCrLf & _ 
"Numero: "& Request("Numero") & vbCrLf & _ 
"Bairro: "& Request("Bairro") & vbCrLf & _ 
"Cidade: "& Request("Cidade") & vbCrLf & _ 
"Estado: "& Request("Estado") & vbCrLf & _ 
"Cep: "& Request("Cep") & vbCrLf & _ 
"Codigo: "& Request("Codigo") & vbCrLf & _ 
"Telefone: "& Request("Telefone") & vbCrLf & _ 
"Mensagem: "& Request("Mensagem")
strBody = strBody & "."

objCDOSYSMail.TextBody = strBody
'para envio da mensagem no formato html altere o TextBody para HtmlBody
'objCDOSYSMail.HtmlBody = strBody
'envia o e-mail
objCDOSYSMail.Send
'destrói os objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write ("<font color='#FF0000'><h3>'E-mail enviado com sucesso!'</h3></font>" )
%>
oque está errado?

 

de qualquer maneira ja agradeço a ajuda.

paulo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Da algum erro ???

 

você está enviando isso da sua maquina ou de algum HOST ?

 

Se for da sua maquina, você tem um server SMTP instalado nela ???

 

Outra coisa, indique corretamente o servidor SMTP nesta linha:

 

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

 

Abraços...

Compartilhar este post


Link para o post
Compartilhar em outros sites

obrigado pela atenção darkdemo.

estou mandando do provedor terra. o endereço onde está é este:http://www.piscinaesaude.com.br/contato.html

e em que lugar da linha eu indico o smtp.

o smtp é: smtp.terra.com.br

 

 

eu mandei um email pra mim mesmo e no meu email apareceu esta mensagem:

 

Hi. This is the qmail-send program at mail13-tbr01.hospedagem.terra.com.br.

I'm afraid I wasn't able to deliver your message to the following addresses.

This is a permanent error; I've given up. Sorry it didn't work out.

 

<adagir@terra.com.br>:

200.154.55.2 does not like recipient.

Remote host said: 550 <adagir@terra.com.br>: Sender address rejected: SPF fail - mail13-tbr01.hospedagem.terra.com.br[128.121.191.226] is not allowed to send mail with the domain terra.com.br

Giving up on 200.154.55.2.

 

--- Below this line is a copy of the message.

 

Return-Path: <adagir@terra.com.br>

Received: from w3w13027.oemgrp.com (128.121.191.239)

by mail13-tbr01.hospedagem.terra.com.br (RS ver 1.0.95vs) with SMTP id 1-064458346

for <adagir@terra.com.br>; Thu, 6 Mar 2008 19:05:46 -0500 (EST)

thread-index: Ach/5v5L8soAcdN3RC691CT3lbTGCg==

Thread-Topic: Contato pelo Site

From: <adagir@terra.com.br>

To: <adagir@terra.com.br>

Subject: Contato pelo Site

Date: Thu, 6 Mar 2008 22:05:46 -0200

Message-ID: <E9D610352F21457BB527C7ED31564A1D@g13.win.smewh.net>

MIME-Version: 1.0

Content-Type: text/plain

Content-Transfer-Encoding: 7bit

X-Mailer: Microsoft CDO for Windows 2000

Content-Class: urn:content-classes:message

Importance: normal

Priority: normal

X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.4133

X-SF-Loop: 1

 

Dados

 

Nome: adagir

E-Mail:

Endereco:

Numero:

Bairro:

Cidade:

Estado:

Cep:

Codigo:

Telefone:

Mensagem: <TEXTFORMAT LEADING="2"><P ALIGN="LEFT"><FONT FACE="Verdana" SIZE="10" COLOR="#FFFFFF" LETTERSPACING="0" KERNING="0">adagir......</FONT></P></TEXTFORMAT>.

 

 

te agradeço de novo cara.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bem .. uma vez eu tive problemas com esses http://schemas.microsoft.com/cdo... tirei e funcinou... faz o testes aí... acho que a microsoft deixou de dar suporte.

 

Se nao der... veja se o pessoal onde você tem hospedado pode te dar um exemplo homologado nos servidores deles.

 

Att;

Compartilhar este post


Link para o post
Compartilhar em outros sites

valeu pela dica mas já tirei e coloquei tantas vezes deve se o script.

aproveitando vou te fazer uma pergunta

eu tenho o sevidor virtual em minha maquina certo, como sei o smtp dele e se posso testar meus scripts nele?

Compartilhar este post


Link para o post
Compartilhar em outros sites

o SMTP você ativa nas ferramentas administrativas do IIS, nem sei se precisa do CD do windows, nem lembro mais, mas é bom ter a mão, você instala e começa a usar...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.