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
%>
