Como posso enviar e-mails com ASP e o componente ASP Mail?
O seguinte exemplo gera um formulário e realiza as operações necessárias para o envio de e-mails através do ASP e o componente ASP Mail, em plataformas Microsoft Windows 2003:
<%@LANGUAGE="VBSCRIPT" %> <!-- Formulário para preencher com os dados --> <form action="test_aspmail.asp" method="POST"> Usuário smtp: <input type="text" value="" name="usuario"></input> <br /> (O usuário pode achá-lo no painel de controle, E-mail, Gerenciar contas)<br/> Senha smtp: <input type="password" value="" name="passwd"></input><br/> (A senha do seu correio eletrônico)<br/> E-mail destinatário: <input type="text" name="destinatário" width="50"></input><br/> <input type="submit" value="Enviar e-mail" /> <input type="hidden" name="enviar" value="1"/> </form> <!-- Fim Formulário para preencher com os dados --> <% ' Os dados foram enviados a partir do formulário para a validação com o SMTP If Request("enviar") = 1 Then If Not Request("usuario") = "" And Not Request("passwd") = "" And Not Request("destinatario") = "" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.Username = Request("usuario") Mail.Password = Request("passwd") Mail.AddAddress Request("destinatario") Mail.From = "noreply@ferozowindows.com.ar" Mail.FromName = "Ferozo Windows Edition" Mail.Subject = "E-mail de prova" Mail.Body = "Este é um e-mail enviado a partir da página de exemplo do Ferozo Windows Edition" Mail.Send If Err <> 0 Then Response.Write "Houve um erro: " & Err.Description End If Set Mail = Nothing Else ' Resposta caso os dados não sejam completados Response.Write("Preencha todos os campos para executar o exemplo") End If End If %>