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."