CDONTS

Fabricante: Microsoft (www.microsoft.com)
Documentação: http://msdn2.microsoft.com/en-us/library/ms526367.aspx

Exemplo de implementação:

Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = "remetente@dominio.com.br"
objMail.To = "destinatario@dominio.com.br"

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

objMail.Send

Set objMail = Nothing

Response.Write "E-mail enviado."