Implementando o Dundas Mailer

Dim objMail
Set objMail = Server.CreateObject("Dundas.Mailer")
objMail.FromAddress = "remetente@dominio.com.br"
objMail.TOs.Add "destinatario@dominio.com.br"
objMail.Subject = "Assunto da Mensagem"
objMail.Body = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."
objMail.SMTPRelayServers.Add "envio.redehost.com.br"

objMail.SendMail

Set objMail = Nothing

Documentação do fabricante: http://aspalliance.com/dundas/