pessoal, o meu script abaixo está funcionando, mas não está como quero.
primeiro, não sabia sobre o componente aspemail, estudei e tentei rodar o script abaixo e está funcionando tanto formulario.asp e enviar.asp, conforme scripts abaixo. veja só o email que usei o yahoo o considera como spam, também tentei com o bol e joga o e-mail na quarentena, como faço para ficar na caixa de entrada e outra coisa quando coloco no formulario o nome da pessoa e digito o e-mail dela que é diferente do meu que está Mail.username="enchrys@yahoo.com.br" dá o seguinte erro:
Ocorreu um erro: 553 From address not verified - see http://help.yahoo.co...endfrom-07.htm.
Concluindo quero digitar no formulário o nome da pessoa, o email dela, e assunto e tudo isso ir para o meu e-mail chamado enchrys@yahoo.com.br.
formulario.asp
<form method="POST" action="enviar.asp" name="form" target="_self"> <div align="center"> <table border="0" width="43%"> <tr> <td width="23%"><font face="Arial">Nome:</font></td> <td width="74%"><font face="Arial"><input type="text" name="fromnome" size="20"></font></td> </tr> <tr> <td width="23%"><font face="Arial">E-Mail:</font></td> <td width="74%"><font face="Arial"><input type="text" name="fromemail" size="20"></font></td> </tr> <tr> <td width="23%"><font face="Arial">Assunto:</font></td> <td width="74%"><font face="Arial"><input type="text" name="assunto" size="20"></font></td> </tr> <tr> <td width="23%" valign="top"><font face="Arial">Mensagem:</font></td> <td width="74%"><font face="Arial"><textarea rows="5" name="mensagem" cols="30"></textarea></font></td> </tr> <tr> <td width="23%"></td> <td width="74%"><font face="Arial"><input type="submit" value="enviar" name="botao"></font></td> </tr> </table> <p><font face="Arial" size="1"><a target="_self" href="meu site"> <span style="text-decoration: none"><font color="#000000">meu site</font></span></a></font>
enviar.asp
<% DIM Mail response.Charset="ISO-8859-1" Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Host = "smtp.mail.yahoo.com.br" Mail.Username = "enchrys@yahoo.com.br" Mail.Password = "minhasenha" Mail.From = Request.Form("fromemail") Mail.FromName = Request.Form("fromnome") Mail.AddAddress "enchrys@yahoo.com.br" Mail.Subject = Request.Form("assunto") Mail.Body = Request.Form("mensagem") On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>" End If If Err = 0 Then Response.Write("<H2>Obrigado Sr(a) " & Request.Form("fromnome") & ", seu e-mail foi enviado com sucesso!</H2>") End If Set Mail = Nothing %>
Edição feita por: Renan L. Queiroz, 08/03/2010, 11:34.
Inclusão da tag [ code ] para postagem de scripts