JMail

Fabricante: Dimac Development (www.dimac.net)
Documentação: http://www.dimac.net/Products/w3JMail/start.htm

Exemplo de implementação:

Dim objMail
set objMail = Server.CreateObject("JMail.Message")

objMail.From = "remetente@dominio.com.br"
objMail.FromName = "Nome do Remetente"

objMail.AddRecipient "destinatario@dominio.com.br", "Nome do Destinatário"

objMail.Subject = "Assunto da mensagem"
objMail.Body = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."

If objMail.Send("smtp.dominio.com.br") Then
	Response.write "E-mail enviado..."
Else
	Response.Write "Erro no envio de e-mail: " & objMail.log
End if

Set objMail = Nothing