Boa noite computêros, já postei aqui no blog a utilização do CDONTS para envio de emails, agora chegou a vez de falarmos um pouco do seu substituto, o CDOSys.

O CDOSys é um componente CDO (Collaboration Data Objects) usado para envio de e-mails. Este componente foi criado para substituir o antigo componente Cdonts.

Para utilização deste componente é necessário a configuração de um servidor de SMTP para evitar possíveis problemas de envio de e-mail facilitando ao componente localizar o servidor de STMP que deseja usar para o envio do e-mail.

Sua utilização é um pouco mais complicada do que o CDONTS, já que precisamos confugurar o SMTP, segue o código:

'Cria o objeto para o envio de e-mail
Dim objMail : Set objMail = Server.CreateObject("CDO.Message")
'Cria o objeto para configuração do SMTP
Dim objCDOSYSCon : Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.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") = 60
'se precisar autenticar no servidor de envio (smtp auth), descomente e altere as três linhas a seguir
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario@dominio.com.br"
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha"
objCDOSYSCon.Fields.update
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set objMail.Configuration = objCDOSYSCon
'Configurações do envio do email
objMail.From = "seuemail@seudominio.com.br"
objMail.To = "emaildestinatario@dominio.com.br"
objMail.Subject= "assunto"
'Envio modo texto
objMail.TextBody = "texto da mensagem"
'Envio modo HTML
'objMail.HtmlBody = "texto da mensagem"
'Envio de e-mail
objMail.Send
'Limpa o objeto de email
Set objMail = Nothing

Para enviar e-mail para pessoas que estejam em um domínio diferente do seu será necessário descomentar as seguintes linhas:

'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario@dominio.com.br"
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha"