Utilizamos a versão completa do ASPEMAIL da Persists Software.
Abaixo segue um exemplo, de como utilizar o componente com SMTP Autenteticado:

<%
Dim Mail
'CRIA A INSTÂNCIA COM O OBJETO ASPEMAIL
Set Mail = Server.CreateObject("Persits.MailSender")

'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br
Mail.Host = "smtp.hostsys.com.br"

'E-MAIL DO REMETENTE
Mail.From = "suporte@hostsys.com.br"

'NOME DO REMETENTE
Mail.FromName = "Hostsys"

'CONFIGURA O E-MAIL QUE RECEBERÁ A RESPOSTA DESTA MENSAGEM
Mail.AddReplyTo "suporte@hostsys.com.br", "Hostsys"

'E-MAIL DO DESINATÁRIO, NOME DO DESINATÁRIO
Mail.AddAddress "suporte@hostsys.com.br", "Hostsys"

'ASSUNTO DA MENSAGEM
Mail.Subject = "Teste do componente AspEmail"

'CORPO DA MENSAGEM
Mail.Body = "Teste do componente AspEmail"

'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O IsHTML PARA True
Mail.IsHTML = false

'AS LINHAS ABAIXO, UTILIZAM A PROPRIEDADE QUEUE PARA AGILIZAR O ENVIO DA MENSAGEM
Mail.Timestamp = now()
Mail.Queue = True

'NOME DE USUÁRIO PARA SMTP AUTENTICADO
Mail.Username = "suporte@hostsys.com.br"

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
Mail.Password = "Senha do E-mail"

'PORTA DO SERVIDOR SMTP
Mail.Port = 587

'ENVIA A MENSAGEM
Mail.Send

'DESTRÓI O OBJETO
Set Mail = Nothing

Response.write "Mensagem Enviada..."
%>

Para maiores informações do componente AspEmail, Clique Aqui.