Exibir código-fonte para Enviando e-mails com o CDOSYS

[[Category:Linguagens de Programação]][[Category:ASP]][[Category:Componentes ASP]]
{|style="background: #A0BCDE; vertical-align:top; border-top: 1px solid #000000; border-right: 1px solid #000000; border-left: 1px solid #000000; border-bottom: 1px solid #000000; padding: 5px;width:100%;"
!style="width:77px;text-align:left;"|[[Imagem:atencao.png]] 
|Este componente teve o suporte descontinuado, recomendamos o uso do JMAIL
[[Enviando e-mails com o JMAIL]]. 
|}


'''Segue abaixo exemplo para envio de e-mails via ASP com o CDOSYS:'''

 <%
   
   'Cria o objeto para o envio de e-mail
   Set objCDOSYSMail = Server.CreateObject("CDO.Message")
   
   'Cria o objeto para configuração do SMTP
   Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
   
   'SMTP Coloque aqui o IP do servidor aonde consta o seu domínio
   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seudominio.com.br"
   
   '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 o envio do e-mail
   Set objCDOSYSMail.Configuration = objCDOSYSCon
   
   'E-mail do remetente. 
   objCDOSYSMail.From = request.form("email")
   
   'E-mail do destinatário. Coloque aqui o seu e-mail
   objCDOSYSMail.To = "seuemail@seudominio.com.br"
   
   'Assunto da mensagem
   objCDOSYSMail.Subject = "Assunto"
     
   'Mensagem em HTML
   'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"
   
   'Envia o e-mail
   objCDOSYSMail.Send
   
   'Limpa objetos
   Set objCDOSYSMail = Nothing
   Set objCDOSYSCon = Nothing
   
   response.write "E-mail Enviado"
     
 %>