Enviando e-mails com o CDOSYS

De Durand Wiki
Ir para: navegação, pesquisa

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"
    
%>