[ Resolvido ] Aspmail

[lggomes]

Galera, utilizando a ajuda de vocês, sempre bem vinda, peguei o tópico que comparava CDONTS com ASPMAIL.

Neste sentido, ajustei a configuracao para o envio direto da pagina.

Tudo certo. Nome do usuario, e-mail,... Agora, a mensagem retorna um numero (9).

O que pode ser isso? So esta me faltando isso. já não estou conseguindo visualizar o caminho...

Desde já agradeco a atencao de vocês.

[dark0]

cade o codigo pra gente dar uma olhada?

[lggomes]

e agora!!

=====================
' ----------------------------------------------------------------
' Declarando as variáveis e recebendo os dados do formulário
' ----------------------------------------------------------------

Dim nome, email, texto

nome = Request.form("fc_name")
email = Request.form("fc_email")
texto = Request.form("fc_text")

' ----------------------------------------------------------------
' Fazendo a verificação dos campos e se estão preenchidos corretamente
' ----------------------------------------------------------------

if nome = "" then
Response.Redirect "fale_conosco.asp?erro=1"
end if 

if email = "" then
Response.Redirect "fale_conosco.asp?erro=2"
end if

if texto = "" then
Response.Redirect "fale_conosco.asp?erro=3"
end if 

' ----------------------------------------------------------------
' Verifica se há o @ no email
' ----------------------------------------------------------------

Dim verifica_email
verifica_email = email
texto = Instr(1,verifica_email,"@")
if texto = false then
Response.Redirect "fale_conosco.asp?erro=2"
end if

' ----------------------------------------------------------------
' Código para envio de email por ASPEmail
' ----------------------------------------------------------------

' ----------------------------------------------------------------
' Criando objeto do ASPEmail
' ----------------------------------------------------------------

Set mail = Server.CreateObject("SMTPsvg.Mailer")

' ----------------------------------------------------------------
' Endereço do SMTP, host para envio de emails
' ----------------------------------------------------------------

Mail.RemoteHost = "mail.techinfo.eti.br"
Mail.FromAddress = email
Mail.FromName = nome
Mail.AddRecipient "SUPORTE", "suporte@techinfo.eti.br"
Mail.Subject = "SUPORTE"
Mail.ContentType = "text/htm"
Mail.CharSet = 1
Mail.Encoding = 1
Mail.BodyText = "texto"

Mail.SendMail

' ----------------------------------------------------------------
' Se os erros forem iguais a 0, o internauta será reenviado para a página de 
' auto-resposta (confirmação).
' ----------------------------------------------------------------

if err = 0 then
Response.Redirect "obrigado.asp"
else
response.write "Erro ao enviar email. <a href='mailto:suporte@techinfo.eti.br'>Clique aqui</a>"
end if

' ----------------------------------------------------------------

%>

Agradeco antecipadamente

EDIT: Use a TAG CODE para formatar codigos. Assim a leitura fica mais facil!

Editado Agosto 31, 2004 por dark0

[serraventura]

v se esse servidor de email tá funfanando mesmo!

[lggomes]

Esta porque eu recebo as mensagens. O problema e que no que seria o conteudo da mensagem, vem um numero e não o texto.

[cyberalexxx]

Algumas observações sobre seu código:

1 - Voce recupera a mensagem do form para a variavel texto:

texto = Request.form("fc_text")

2 - Quando voce vai validar o email voce da outro valor para a variavel texto:

texto = Instr(1,verifica_email,"@")

Ou seja voce perdeu os dados do form 3 - quando voce seta a mensagem de texto no Objeto de Email voce não coloca nenhuma variavel e sim apenas a palavra "texto" :

 Mail.BodyText = "texto"

De uma olhada nisso

[lggomes]

beleza! Executado!

A cabeca quente, já não adianta que não consegue completar mais nada! Ficou show!

Obrigado a todos pelo apoio... Ate uma proxima.

[dark0]

Tá certo.. To fechando o tópico

ate mais