por Fernando D'Angelo
12. janeiro 2000 00:00
Como enviar e-mails por páginas Web? O ASPMail é uma opção simples e fácil. Grande parte dos servidores possuem tal objeto, que é uma dll que pode ser encontrada na serverobjects, e tem como função o envio de e-mail. Abaixo segue um exemplo de como pode ser utilizado o ASPMAIL. Enviando E-mail
< FORM METHOD="post" ACTION="enviar_email.asp" name="">
Nome: < INPUT TYPE="text" NAME="nome" SIZE="20"> E-mail: < INPUT TYPE="text" NAME="email" SIZE="20"> Assunto: < INPUT TYPE="text" NAME="assunto" SIZE="20"> Texto: < TEXTAREA NAME="texto" cols="25" rows="10">< /textarea>
< INPUT type="submit" name="Submit" value="Enviar" font face="Verdana, Arial, Helvetica, sans-serif" size="2"> < /FORM>
Abaixo segue a programação!
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") - Conexão com a dll do servidor
Mailer.RemoteHost = " " Local onde você colocará o smtp. Ex. "smtp.ricardo.com"
Mailer.FromName=request.form("nome") - Procura no form o nome colocado
Mailer.FromAddress = request.form("email") - Procura no form o e-mail colocado
Mailer.AddRecipient "Ricardo Tardelli","tardelli@aspbrasil.com.br" - O nome de quem está enviando e o E-mail
Mailer.Subject=request.form("assunto") - Procura no form o assunto colocado
Mailer.Bodytext = request.form("texto") - Procura no form o texto colocado
x = Mailer.SendMail
if x = true then
MSG = "E-MAIL ENVIADO COM SUCESSO!"
Else
MSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"
end if
Response.write MSG
Acima uma condição onde se o E-mail for enviado com sucesso ele mostrará a MSG!