PROBLEMAS COM ENVIO DE EMAIL CDO

Dim objCDOSYSMail
Dim objCDOSYSCon
[ô]CRIA A INSTÂNCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = CreateObject([Ô]CDO.Message[Ô])

[ô]CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP
Set objCDOSYSCon = CreateObject([Ô]CDO.Configuration[Ô])

[ô]SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = [Ô]servidor[Ô]

[ô]PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 25

[ô]PORTA DO CDO
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/sendusing[Ô]) = 2

[ô]ATIVAR RECURSO DE SMTP AUTENTICADO
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpauthenticate[Ô]) = 1

[ô]USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/sendusername[Ô]) = [Ô]email[Ô]

[ô]SENHA DO USUÁRIO PARA SMTP AUTENTICADO
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/sendpassword[Ô]) = [Ô]senha[Ô]

[ô]TEMPO DE TIMEOUT (EM SEGUNDOS)
objCDOSYSCon.Fields([Ô]http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout[Ô]) = 30

[ô]ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon

[ô]NOME DO REMETENTE, E-MAIL DO REMETENTE
objCDOSYSMail.From = [Ô]Hostsys <email

[ô]NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO
objCDOSYSMail.To = [Ô]Hostsys <email>[Ô]

[ô]ASSUNTO DA MENSAGEM
objCDOSYSMail.Subject = [Ô]Teste do CDOSYS[Ô]

[ô]CONTEÚDO DA MENSAGEM
objCDOSYSMail.TextBody = [Ô]Teste do componente CDOSYS[Ô]
[ô]PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
[ô]objCDOSYSMail.HtmlBody = [Ô]<h1>Teste do componente CDOSYS</h1>[Ô]

[ô]ENVIA A MENSAGEM
objCDOSYSMail.Send

[ô]DESTRÓI OS OBJETOS
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing