[Resolvido] Componentes de email

[Junior_Cassapava 0]

Olá pessoal!

 

Tenho feito várias pesquisas na internet a fim de encontrar tutoriais para criação de formulário "fale conosco", pois quero implementar em um site.

Infelismente não obti sucesso nas minhas tentativas, foi então que descobri q devo instalar um componente de email no site (como aspmail, cdonts ou formmail).

 

Vocês podem me ajudar com um passo a passo para instalação do componente e criação do script para envio do formulário para o email?

 

Desde já, grato pela atenção.

 

Att

Junior

[Ted k' 126]

a depender do componente, o servidor já tem instalado, fale com seu suporte e peça a lista com os componentes instalados, depois é só fazer uma busca no Fórum que você acha vários formularios de varios componentes diferentes!

[Web Design Valdeci 0]

Olá pessoal!

 

Tenho feito várias pesquisas na internet a fim de encontrar tutoriais para criação de formulário "fale conosco", pois quero implementar em um site.

Infelismente não obti sucesso nas minhas tentativas, foi então que descobri q devo instalar um componente de email no site (como aspmail, cdonts ou formmail).

 

Vocês podem me ajudar com um passo a passo para instalação do componente e criação do script para envio do formulário para o email?

 

Desde já, grato pela atenção.

 

Att

Junior

 

Fala júnior,

 

Eu utilizo Persits.MailSender, você tem que ver no seu servidor se ele tem este componente instalado:

 

Abaixo o código do formulário:

 

contato.asp

 

CODE

<form name="form1" method="post" action="send_email.asp">

<table width="440" border="0" align="center" cellpadding="0" cellspacing="3">

<tr>

<td width="453" height="19"> </td>

</tr>

<tr>

<td valign="top" class="texto_cinza_11"><div align="left" class="txt_cinza_11">Entre

em contato conosco, retornaremos o mais breve

possível. </div></td>

</tr>

<tr>

<td valign="top"><div align="left"></div></td>

</tr>

<tr>

<td valign="top" class="texto_cinza_11"><div align="left" class="txt_cinza_11">Nome</div></td>

</tr>

<tr>

<td valign="top"><div align="left">

<input name="nome" type="text" class="txt" id="nome" size="50">

</div></td>

</tr>

<tr>

<td valign="top" class="texto_cinza_11"><div align="left" class="txt_cinza_11">E-mail</div></td>

</tr>

<tr>

<td valign="top"><div align="left">

<input name="email" type="text" class="txt" id="email" size="40">

</div></td>

</tr>

<tr>

<td valign="top" class="texto_cinza_11"><div align="left" class="txt_cinza_11">Telefone</div></td>

</tr>

<tr>

<td valign="top"><div align="left">

<input name="telefone" type="text" class="txt" id="telefone" size="20">

</div></td>

</tr>

<tr>

<td valign="top" class="texto_cinza_11"><div align="left" class="txt_cinza_11">Mensagem</div></td>

</tr>

<tr>

<td valign="top"><div align="left">

<textarea name="mensagem" cols="50" rows="4" class="txt" id="mensagem"></textarea>

</div></td>

</tr>

<tr>

<td valign="top"> </td>

</tr>

<tr>

<td valign="top"><input name="Submit" type="submit" class="botao" value="Enviar">

 

<input name="Submit2" type="reset" class="botao" value="Limpar"></td>

</tr>

</table>

</form>

 

Agora o arquivo que vai enviar o formulario:

 

send_email.asp

 

CODE

<%

Set Mail = Server.CreateObject("Persits.MailSender")

nome = request.form("nome")

email = request.form("email")

telefone = request.form("telefone")

mensagem = request.form("mensagem")

Mail.IsHTML = True

'Servidor de SMTP

Mail.Host = "mail.seudominio.com.br"

vemail = "email@seudominio.com"

vnome = "Administrador"

'E-mail do remetente

Mail.From = email

'Remetente

Mail.FromName = nome

Mail.AddAddress vemail, vnome

'Assunto da mensagem

Mail.Subject = "Contato pelo Site tal tal tal"

'Corpo da mensagem

strtexto = nome & "<br>"

strtexto = strtexto & email & "<br>"

strtexto = strtexto & telefone & "<br>"

strtexto = strtexto & mensagem & "<br>"

Mail.Body = strtexto

 

On Error Resume Next

Mail.Send

If Err <> 0 Then

Response.Write "Error encountered: " & Err.Description

End If

%>

é isso ai..

 

até mais

[Junior_Cassapava 0]

Olá pessoal, meu servidor tem suporte a aspmail e cdonts, mas não sei porque motivo não consigo enviar os emails. Já testei vários scripts mas nenhum deles consigo obter sucesso. Repito que na lista de componentes habilitados do meu servidor estão cdonts e aspmail, será que preciso fazer algo para que o meu servidor entenda que estou usando um script para envio de email?

 

Desde já grato pela atenção!

[jrcardozo 4]

já tentou utilizar a classe que criei?

http://forum.imasters.com.br/index.php?showtopic=265564

 

caso tenha duvidas poste aqui mesmo

[Junior_Cassapava 0]

jonathandj

 

Esse que você fez parece ser muito bom, mas não tenho conhecimento muito aprofundado então estou a procura de algo bem mastigadinho :)

 

Consegui fazer com esse aqui oh...

 

 

fale_conosco.asp

<html>
<head>
<title>Fale Conosco</title>
</head>
<body>

<form method=post action="enviaemail.asp">
<table border="0" width="18%" cellspacing="0" cellpadding="0" align="left">
<tr>
<td width="96%" height="21" valign="bottom">
<p align="left"><font size="1" face="Verdana"><b>Seu nome:</b></font>
</td>
</tr>
<tr>
<td width="96%" height="23">
<p align="left"><font size="1" face="Verdana">
<input type="text" name="nome" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50">
</font>
</td>
</tr>
<tr>
<td width="96%" height="21" valign="bottom">
<p align="left"><font size="1" face="Verdana"><b>E-mail:</b></font>
</td>
</tr>
<tr>
<td width="96%" height="23">
<p align="left"><font size="1" face="Verdana">
<input type="text" name="email" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50">
</font>
</td>
</tr>
<tr>
<td width="96%" height="21" valign="bottom"><font size="1" face="Verdana"><b>Assunto:</b></font></td>
</tr>
<tr>
<td width="96%" height="23"><font size="1" face="Verdana">
<input type="text" name="assunto" size="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1" maxlength="50">
</font></td>
</tr>
<tr>
<td width="96%" height="21" valign="bottom">
<p align="left"><font size="1" face="Verdana"><b>Mensagem:</b></font>
</td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="1" face="Verdana">
<textarea rows="5" name="mensagem" cols="21" style="font-family: Verdana; font-size: 9 pt; border-style: solid; border-width: 1"></textarea>
<input type="hidden" name="hiddenField" value="<%= Request.ServerVariables("REMOTE_ADDR")%>">
</font>
</td>
</tr>
<tr>
<td width="96%" height="40">
<p align="left"><font face="Verdana">
<input type="submit" src="file:///C|/WINDOWS/Desktop/C%F3gidos%20e%20Utilit%E1rios/C%F3gidos%20e%20Utilit%E1rios/C%F3gidos%20e%20Utilit%E1rios/imagens/enviar.gif" value="Enviar" name="enviar">
</font>
</td>
</tr>
</table>
</form>

</body>
</html>

enviaemail.asp

 

<%
str_nome = trim(request.form("nome"))
str_email = trim(request.form("email"))
str_assunto = trim(request.form("assunto"))
str_mensagem = trim(request.form("mensagem"))
str_ip = trim(request.form("hiddenField"))

str_mensagememail = "" & str_mensagem & "<br><br>IP: " & str_ip & ""

set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = str_email
mensagem.to = "SEU EMAIL"
mensagem.Subject = str_assunto
mensagem.bodyformat = 0
mensagem.mailformat = 0
mensagem.Body = str_mensagememail
mensagem.Send
Set objMail = nothing
response.write "Sua mensagem foi enviada com sucesso!"
%>

Com esse eu consegui fazer funcionar bem direitinho, agora vou pesquisar para fazer do campo assunto um combo box com algumas categorias predefinidas e um javascript para verificar se todos os campos foram preenchidos.

 

Grato a todos :)

 

Att

Junior