Error de Transporte en la conexión al servidor

[circulocatoli...@gmail.com]

hola amigos , me da este error , lo pruebo en una compu con windows 7 y funciona, la otra tiene windows 10 me da este error que puede ser .. este es el codigo que uso muchas gracias...

PARAMETERS _smtp,_puerto,_correo,_clave,_archivo,destinatario,_ncompro

el _puerto es 25  
PRIVATE adjunto
adjunto="C:\ordenestrabajos\"+ALLTRIM(_archivo)
loCfg = CREATEOBJECT("CDO.Configuration")
WITH loCfg.Fields
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _smtp
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = _puerto
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = _correo
  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _clave
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t.
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = .T.
  .Update
ENDWITH
loMsg = CREATEOBJECT ("CDO.Message")
WITH loMsg
  .Configuration = loCfg
  .From = destinatario
  .To = "rodofi...@yahoo.com.ar"
  .Subject = "Envio de Comprobante electrónico "
  .TextBody = "Adjuntamos comprobante nº"+_ncompro+TIME()
  .AddAttachment(adjunto)
  .Send()
ENDWITH