ASPEmail

Fabricante: Persits Software, Inc. (www.aspemail.com)

Documentação: http://www.aspemail.com/manual.html

Exemplo de implementação:

<%
'Declaração de Variáveis
Dim objMail
Dim sUsuario, sSenha, sRemetente, sNomeRemetente, sDestinatario
Dim sNomeDestinatario, sAssunto, sMensagem, sSMTP

'Configurações de Envio
sUsuario = "usuario@dominio.com.br"
sSenha = "sua senha"
sRemetente = "remetente@dominio.com.br"
sNomeRemetente = "Nome do Remetente"
sDestinatario = "destinatario@dominio.com.br"
sNomeDestinatario = "Nome do Destinatário"
sAssunto = "Assunto da mensagem"
sMensagem = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."
sSMTP = "smtp.dominio.com.br"

'Criação da Mensagem
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = sSMTP
objMail.Port = 587
objMail.From = sRemetente
objMail.FromName = sRemetenteNome
objMail.AddAddress sDestinatario
objMail.Subject = sAssunto
objMail.Body = sMensagem

objMail.Username = sUsuario
objMail.Password = sSenha

On Error Resume Next 
objMail.Send
If Err <> 0 Then 
  Response.Write "Erro ao enviar mensagem: " & Err.Description
Else
  Response.Write "Mensagem Enviada com sucesso!"
End If
On Error GoTo 0
%>