CDOSYS não entregando para hotmail

Olá pessoal

Desenvolvi um sisteminha simples de Newsletter q funcionava perfeitamente até ontem.

Hoje, ao fazer o envio, todos os e-mails enviados pra remetentes @hotmail.com estão voltando.

O sistema utiliza CDOSYS, e está hospedado no terra.

Cód:

----------------------------------------------------

'cria o objeto para o envio de e-mail

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'cria o objeto para configuração do SMTP

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "mail-fwd"

'porta do SMTP

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/con...smtpserverport") = 25

'porta do CDO

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/con...tion/sendusing") = 2

'timeout

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/con...nectiontimeout") = 30

objCDOSYSCon.Fields.update

'atualiza a configuração do CDOSYS para o envio do e-mail

Set objCDOSYSMail.Configuration = objCDOSYSCon

'e-mail do remetente

objCDOSYSMail.From = email@dominio.com.br

'e-mail do destinatário

objCDOSYSMail.To = email

'assunto da mensagem

objCDOSYSMail.Subject = assunto

'conteúdo da mensagem

'objCDOSYSMail.TextBody = conteudo

'para envio da mensagem no formato html altere o TextBody para HtmlBody

objCDOSYSMail.HtmlBody = conteudo

'objCDOSYSMail.fields.update

'envia o e-mail

objCDOSYSMail.Send

'destrói os objetos

Set objCDOSYSMail = Nothing

Set objCDOSYSCon = Nothing

----------------------------------------

Alguém me ajuda??