Abaixo segue um exemplo, de como utilizar o componente JMail da Dimac com SMTP Autenteticado:

<%
Dim Mail
'CRIA A INSTÂNCIA COM O OBJETO JMAIL
set Mail = Server.CreateOBject("JMail.Message")

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

'NOME DO REMETENTE
Mail.FromName = "Hostsys"

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

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

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

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

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

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

'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br
Mail.Send("smtp.hostsys.com.br:587")

'DESTRÓI O OBJETO
Set Mail = Nothing

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