cdosys locaweb

[marcelocardoso 6]

Fala galera.

Não sei onde postar CDOSYS, então, postei aqui.
Vamos lá...
Quem já teve problemas para enviar email pelo CDOSYS no servidor LOCAWEB.
Utilizo sempre o mesmo script para diversos trabalhos e clientes... mas sempre quando tem algum hospedado lá, o erro é sempre no CDOSYS.
O script que fornecem, funciona em TEXTBODY, mas quando você coloca HTMLBODY, ele já não envia.
Já entrei em contato com o suporte, mas não consegui ainda.
No script, ele não dá erro, diz mensagem enviada, mas o email nunca chega...

CODE:
 

   SET objCDOSYSMail = Server.CreateObject("CDO.Message")
   SET objCDOSYSCon  = Server.CreateObject("CDO.Configuration")
	   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")             = "smtp.teste.com.br"
	   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")         = 587
	   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")              = 2
	   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")       = 1
	   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")           = "atendimento@teste.com.br"
	   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")           = "testesenha"
	   objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")  = 60
	   objCDOSYSCon.Fields.Update
   
   
	   cdoDE      = campo_nome & " <"& campo_email &">"
       cdoPARA    = campo_setor
	   cdoASSUNTO = cdoASS
       cdoOCULTO  = "teste@teste.com.br"
	   cdoHTML    = HTMLBODY 
   
   
   SET objCDOSYSMail.Configuration    = objCDOSYSCon
       'objCDOSYSMail.BodyPart.Charset = "UTF-8"
	   objCDOSYSMail.From             = "atendimento@teste.com.br"
	   objCDOSYSMail.ReplyTo          = cdoDE
	   objCDOSYSMail.To               = cdoPARA
	   objCDOSYSMail.Subject          = cdoASSUNTO
       objCDOSYSMail.BCc              = cdoOCULTO
   	   
       objCDOSYSMail.Cc               = ""
       objCDOSYSMail.AddAttachment      ""

       objCDOSYSMail.HtmlBody         = cdoHTML
	   objCDOSYSMail.Send
   
       ON ERROR RESUME NEXT
   
		   IF NOT Err = "0" THEN
			  Response.Write "Erro: " & Err
		   ELSE
			  Response.Write "Mensagem enviada com sucesso para: <strong>" & campo_email & "</strong>"
		   END IF
   
	SET objCDOSYSMail = Nothing
	SET objCDOSYSCon  = Nothing

Alguém já teve problemas assim e resolver com HTMLBODY.
Utilizo este em outros servidores autenticados, mas lá não vai... em outros sim....
Obrigado.