CDOSYS é um componente interno no ASP. Este componente é usado para enviar e-mails com o ASP.
O CDO (Collaboration Data Objects) é uma tecnologia da Microsoft projetada para simplificar a criação de aplicativos de mensagens.
A Microsoft descontinuou o uso de CDONTs no Windows 2000, Windows XP e Windows 2003. Se você usou CDONTs em seus aplicativos ASP, atualize o código e use a nova tecnologia CDO.
<%
'CRIA A INSTANCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'CRIA A INSTANCIA 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") = "h17.servidorhh.com"
'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/
smtpserverport") = 465
'Utilização de SSl
objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/
configuration/smtpusessl") = True
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/
sendusing") = 2
'ATIVAR RECURSO DE SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/
smtpauthenticate") = 1
'USU?RIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/
sendusername") = "email@dominio.com"
'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/
sendpassword") = "senha"
'TEMPO DE TIMEOUT (EM SEGUNDOS)
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/
smtpconnectiontimeout") = 60
'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 <email@dominio.com>"
'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = "NOME <destino@dominio.com>"
'objCDOSYSMail.cc = "Copia <copia@dominio.com>"
'objCDOSYSMail.bcc = "Copia Oculta <copiaoculta@dominio.com>"
'ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = " Envio autenticado - CDOSYS Apps"
'CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = "Teste do componente CDOSYS - Texto sem HTML"
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
'objCDOSYSMail.HtmlBody = "<html> <head><meta http-equiv=""Content-Type"" content=""text/html;charset=utf-8""></head><body></body></html>"
'ENVIA A MENSAGEM
objCDOSYSMail.Send
'DESTROI OS OBJETOS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
response.write "Email enviado com sucesso"
'Response.Redirect "Enviado.asp"
%>
