Erro ao enviar email CDOSYS - porta 587

Galera preciso da ajuda de vocês..

Tenho esse código que envia email usando o componente CDOSYS.

<%

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "myID@gmail.com"
objEmail.To = "meuemail@yyy.com.br"
objEmail.Subject = "New user notification for "
objEmail.Textbody = hkm

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.empresa.com.br"

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587

'Your UserID on the SMTP server
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@empresa.com.br"

'Your password on the SMTP server
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

objEmail.Configuration.Fields.Update
objEmail.Send

%>

Ele funciona certo quando uso a porta 25. Ele autentica e envia o email.

Mas quando mudo a porta para 587, ele não envia e dá um erro:

CDO.Message.1 erro '80040213' 

Falha na conexão do transporte com o servidor.

/email.asp, linha 29

Essa linha 29 é:

objEmail.Send

Alguem tem ideia de que pode ser??

Desde já agradeço