Assim como o AspMail, o AspEmail é um componente que permite o envio de e-mails através de páginas web. E está disponível somente para contas Windows/SQL.
Abaixo, segue um exemplo de como pode ser usado o componente em linguagem ASP, a partir de um formulário em HTML. Há outros exemplos no site do desenvolvedor, a Persits:
www.aspemail.com
Código ASP:
<%
' Coloque o servidor de SMTP
strHost = "smtp.seudominio.com.br"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("From") ' Endereço do remetente
Mail.FromName = Request("FromName") ' opcional
Mail.AddAddress Request("To")
' assunto da mensagem
Mail.Subject = Request("Subject")
' Corpo da mensagem
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send ' Envio da mensagem
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Formulário em HTML:
<HTML>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Erro! <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Mensagem enviada com sucesso para <% = Request("To") %>.
<% End If %>
<FORM METHOD="POST" ACTION="aspemail.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD>Host :</TD>
<TD><B><% = strHost %></B></TD>
</TR>
<TR>
<TD>From (entre com o endereço de e-mail):</TD>
<TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
<TD>FromName (entre com o nome do remetente):</TD>
<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
<TD>To: (entre com o endereço de e-mail do destinatário):</TD>
<TD><INPUT TYPE="TEXT" NAME="To"></TD>
</TR>
<TR>
<TD>Assunto:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
<TD>Mensagem:</TD>
<TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Enviar Mensagem">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
