cdosys locaweb

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.