erro no envio de e-mail por cdo

tenho uma rotina que envia e-mails pelo Access 2007. Ela funciona perfeitamente aqui na sede da empresa mas dá erro na filial.

A mensagem é : "falta de conexão de transporte com o servidor "
Transcrevo abixo a rotina para ver se alguem pode me ajudar

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP.alphapart.com.br"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "teste@alphapart.com.br"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120

.Fields.Update
End With

Set Mens = New CDO.Message
With Mens
Set .Configuration = Config

fromnome = "teste@alphapart.com.br
.From = fromnome


sendernome = "jose"
.Sender = sendernome

mailremetente = "teste@alphapart.com.br"
replynome = mailremetente
.ReplyTo = replynome

.BodyPart.Charset = "utf-8"

DIAPROCESS = Combinação29.Value

.Subject = "Caixa do dia " & DIAPROCESS & "/" & MesProcess & "/" & AnoProcess & " " & Empresa


.HTMLBody = " "
nometo = nomedestinatario
.To = "usuario@gmail.com"
comcopia = ""
.CC = comcopia

caminho = CurrentProject.path & "/pdf/resumofinal.pdf"
.AddAttachment (caminho)



.Send
End With

Set Mens = Nothing
Set Config = Nothing
MsgBox "E-Mail enviado com sucesso ! "
Screen.MousePointer = 0
Exit Sub
erromail:

MsgBox "Erro " & Err.Number & vbCr & Err.Description
Screen.MousePointer = 0
Exit Sub
End If

As configurações são as mesmas nos dois locais? Teste um email diferente, do gmail, para ver se funciona.

criquio : é a mesma aplicação . No entanto, na maquina que dá problema o Windows é o XP