Enviando e-mails com o CDOSYS

De Tavola Conectividade
Revisão de 12h52min de 28 de junho de 2021 por Tavola (discussão | contribs) (Criou página com 'Category:Linguagens de ProgramaçãoCategory:ASPCategory:Componentes ASP {|style="background: #A0BCDE; vertical-align:top; border-top: 1px solid #000000; border-ri...')
(dif) ← Edição anterior | Revisão atual (dif) | Versão posterior → (dif)
Ir para navegação Ir para pesquisar
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"
    
%>