Como enviar email com o Cdosys

Artigo publicado na categoria Suporte Técnico

CDOSYS – Microsoft

O CDOSYS é um componente usado para envio de e-mails no Windows Server 2003. Foi criado para substituir o antigo componente CDONTS, para envio de e-mails através do SMTP.

Envio de e-mail simples

<%
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"
' Porta do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta do CDO
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set CDOSYS.Configuration = CDOSYSconn
' E-mail do Remetente
CDOSYS.From = "remetente@dominio.com.br"
' E-mail do Destinatário
CDOSYS.To = "destinatario@dominio.com.br"
' Assunto do E-mail
CDOSYS.Subject = "Assunto"
' Conteúdo do E-mail
CDOSYS.HtmlBody = "Envio de e-mail simples através do CDOSYS."
' Envia o Email
CDOSYS.Send
' Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing

' Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
%>

Envio de e-mail com anexos

<%
' Cria a instância para configuração do SMTP
Set CDOSYSconn = Server.CreateObject("CDO.Configuration")
' Endereço do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.dominio.com.br"
' Porta do Servidor de SMTP
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta do CDO
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Configuração de Timeout
CDOSYSconn.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
' Atualiza as configurações
CDOSYSconn.Fields.update

' Cria uma instância do controle de Email
Set CDOSYS = Server.CreateObject("CDO.Message")
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set CDOSYS.Configuration = CDOSYSconn
' E-mail do Remetente
CDOSYS.From = "remetente@dominio.com.br"
' E-mail do Destinatário
CDOSYS.To = "destinatario@dominio.com.br"
' Arquivo a ser anexado
CDOSYS.AddAttachment("e:\home\dominio.com.br\documento.doc")
' Assunto do E-mail
CDOSYS.Subject = "Assunto"
' Conteúdo do E-mail
CDOSYS.HtmlBody = "Envio de e-mail com anexo através do CDOSYS."
' Envia o Email
CDOSYS.Send
' Tira o objeto de envio do e-mail da memória
Set CDOSYS = Nothing

' Tira o objeto de configuração da memória
Set CDOSYSconn = Nothing
%>