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

Enviar Emails


bolomaster

Pergunta

OLA PESSOAL, ESTOU TENTANDO CRIAR UMA PAGINA DE FALE CONOSCO, E NESSA PAGINA O PESSOAL PREENCHE E ME ENVIA O QUE ELES QUEREM NO EMAIL

SO QUE não SEI EXATAMENTE COMO DEVO FAZER QUAL COMPONENTE E COMO USAR

CDONTS, JMAIL, OU ASPMAIL QUAL E COMO DEVO TRABALHAR ELES

ABRAÇOS DO AMIGO

FELIZ 2004

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

OLA PESSOAL, ESTOU TENTANDO CRIAR UMA PAGINA DE FALE CONOSCO, E NESSA PAGINA O PESSOAL PREENCHE E ME ENVIA O QUE ELES QUEREM NO EMAIL

SO QUE não SEI EXATAMENTE COMO DEVO FAZER QUAL COMPONENTE E COMO USAR

CDONTS, JMAIL, OU ASPMAIL QUAL E COMO DEVO TRABALHAR ELES

ABRAÇOS DO AMIGO

FELIZ 2004

Brother!!

Qual componente você tem instalado no seu servidor ? Não qual componente devo usar... entende ?

Na página da scriptbrasil, já um sisteminha de fale conosco, se for interessante, puxe o código.

Abraços!!

[urso]

Link para o comentário
Compartilhar em outros sites

  • 0

Ae cara, você pode procurar uns códigos ae que usam outros componentes, ou você mesmo adaptar este código aqui ao componente instalado no seu servidor e td mais.

Aqui vai somente a parte de asp da contato_envia.asp q uso num site meu aki.

O componente é o CDONTS.

<%
horatempoquandoenviado = now
ip = Request.ServerVariables("REMOTE_ADDR")

apelido = Request.Form("apelido")
icq = Request.Form("icq")
email = Request.Form("email")
sexo = Request.Form("sexo")
assunto = Request.Form("assunto")
mensagem = Request.Form("mensagem")

dim objMail,htmlemail
' Criando o objeto para enviar email
Set objMail = Server.CreateObject("CDONTS.Newmail") 
' Definindo o destino do email (para qual email (para quem) vai ser enviado)
    objMail.To = "seuemail@provedor.com.br" 'aki vai o seu e-mail caso use para um "fale conosco"
' Remetente do Email
    objMail.From = email
' Assunto do Email
    objMail.Subject = assunto
' A partir de agora vamos formatar a mensagem
' que será postada no corpo do email, esta
' mensagem irá conter as tags HTML comum

htmlemail = htmlemail & "<font face=Verdana size=1 color=#000000>Email enviado dia: "&horatempoquandoenviado&" pelo IP: "&ip&"</font><br><hr><br>"
htmlemail = htmlemail & "<font face=Verdana size=2><p>Assunto:<font color=#FF0000>"&assunto&"</font><br><br>"
htmlemail = htmlemail & "Apelido: "&apelido&"<br>"
htmlemail = htmlemail & "ICQ#: "&icq&"<br>"
htmlemail = htmlemail & "Email: "&email&"<br>"
htmlemail = htmlemail & "Sexo: "&sexo&"<br>"
htmlemail = htmlemail & "Mensagem: "&mensagem&"</font>"

' Você pode ver que a mensagem é uma´página HTML Comum

' Agora vamos definir a propriedade Bodyformat como 0 (zero)
' O 0 significa que o corpo da mensagem contém tags em HTML
' Para texto simples utiliza-se 1

    objMail.Bodyformat = 0
' Após definir o corpo da mensagem você define o
' formato da mensagem 

    objMail.MailFormat = 0
    objMail.Body = htmlemail

' E enviamos o email
    objMail.Send
' Fechando o objeto para envio de email
Set objMail = Nothing 
%><html>
<head>
<title>Titulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body topmargin="0">

<br>

<p align="center"><font face="Verdana" size="4"><b> 
Obrigado! Seu e-mail foi enviado com sucesso</p>

<p align="center"><a href="main.asp">Clique aqui para continuar</a></p>

</body>
</html>

Se funcionar diz ae... ou se der algum erro, retorna aí q a gente te ajuda, valeu? wink.gif

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
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...