Você deve utilizar um de nossos componentes de email, previamente instalados em nossos servidores, como CDOSYS ou ASPEMAIL.

Para maior performance e compatibilidade com outros servidores de Internet recomendamos o uso do componente CDOSYS, e segue um exemplo de utilização logo abaixo:

<% 
Dim objCDOSYSMail
Dim objCDOSYSCon
'CRIA A INSTÂNCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SERVIDOR DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seudominio.com.br"

'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'PORTA DO CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'ATIVAR RECURSO DE SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

'USUÁRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "seu email"

'SENHA DO USUÁRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sua senha"

'TEMPO DE TIMEOUT (EM SEGUNDOS) 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon

'NOME DO REMETENTE, E-MAIL DO REMETENTE 
objCDOSYSMail.From = "Remetente <alguem@seudominio.com.br>"

'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO 
objCDOSYSMail.To = "Destinatário <alguem@algumlugar.com.br>"

'ASSUNTO DA MENSAGEM 
objCDOSYSMail.Subject = "Assunto da mensagem"

'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = "Conteúdo do email"
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
'objCDOSYSMail.HtmlBody = "<h1>Conteúdo do email</h1>"

'ENVIA A MENSAGEM 
objCDOSYSMail.Send

'DESTRÓI OS OBJETOS 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing

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