<% 
 '## Configuração do cabeçalho da mensagem
 sDestinatario = "email@dominio"
 sRemetente = "webmaster@seudominio"
              'O endereço de e-mail deve ser uma conta válida do seu próprio domínio.
 sResponder = "webmaster@seudominio"
 sAssunto = "Teste Locaweb CDOSYS"
 sMensagem = "Esta é uma mensagem de teste enviada através do componente CDOSYS."
 
 ' Cria o objeto CDOSYS
 Set objCDOSYSMail = Server.CreateObject("CDO.Message")
 
 'Cria o objeto para configuração do SMTP
 Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
 
 'SMTP 
 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
 
 'Porta do SMTP
 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25
 
 'Porta do CDO
 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
 'Timeout
 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
 objCDOSYSCon.Fields.update
 
 'Atualiza a configuração do CDOSYS para envio do e-mail
 Set objCDOSYSMail.Configuration = objCDOSYSCon
 
 ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
 'Configura o remetente(FROM)
 objCDOSYSMail.From = sRemetente
 
 'Configura o destinatário(TO)
 objCDOSYSMail.To = sDestinatario
 
 'Configura o Reply-To(Responder Para) 
 objCDOSYSMail.ReplyTo = sResponder
 
 'Configura o assunto(SUBJECT)
 objCDOSYSMail.Subject = sAssunto
 
 'Configura o conteúdo da mensagem 
 'Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody
 objCDOSYSMail.TextBody = sMensagem 
 
 ' ### ENVIA O E-MAIL ###
 objCDOSYSMail.Send
 
 ' ### DESTRÓI OS OBJETOS ###
 Set objCDOSYSMail = Nothing
 Set objCDOSYSCon = Nothing
 
 response.write "Mensagem enviada com sucesso para:  "&sDestinatario&" ..." 
 %>