Ir para conteúdo
Fórum Script Brasil
  • 0

Aspmail


lggomes

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0
Gente, sou novato na area de ASP!

Estou com problemas para colocar o conteudo da mensagem chegando no meu e-mail.

Consigo o nome e o e-mail mas, no momento da mensagem, vem um numero.

alguém pode me dar uma luz?

Obrigado desde já.

Posta seu codigo ai, que assim poderemos re ajudar

Link para o comentário
Compartilhar em outros sites

  • 0

Ele faz toda a operacao e quando chega no e-mail ele retorna um numero no que seria a mensagem.

Este processo já sofreu alteracao...

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

' 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("Persits.MailSender")

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

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

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

Mail.Host = "mail.techinfo.eti.br"

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

' Propriedades do ASPEmail

' From: Remetente |||| FromName: Nome do remetente |||| AddAddress: seu email

' AddReplyTo: endereço para resposta |||| Subject: Assunto do email

' IsHTML: Propriedade HTML |||| Body: Corpo da Mensagem(código em html, fica a tua escolha).

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

Mail.From = email

Mail.FromName = nome

Mail.AddAddress "suporte@techinfo.eti.br"

Mail.Subject = "SUPORTE"

Mail.IsHTML = True

strMsgHeader = nome & "(" & email & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = texto

Mail.Body = strMsgHeader & strMsgFooter

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

' Enviando email

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

Mail.Send

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

' 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

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

Editado por Dark0: Sempre que postar um código, utilize as tags CODE ou QUOTE, para ficar mais facil de visualizar!

Editado por dark0
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...