Windows Server - Error de transporte en la conexion con el servidor

Function EnvioMail()

'DEFINIMOS LAS CONSTANTES DE IDENTIFICACION DE MI CUENTA GMAIL

    Const MiMail As String = "vslcines@gmail.com"

    Const MiPass As String = "*********************" ' LA CONTRASEÑA DE LA CUENTA GMAIL

    Const MiSmtp As String = "smtp.gmail.com"

'DEFINIMOS LAS VARIABLES DE LOS COMPONENTES DEL MAIL

    Dim ASUNTO As String

    Dim MSG As String

    Dim MailA As String

    Dim MailCC As String

    Dim MailCCO As String

'DAMOS VALORES A LAS VARIABLES

    ASUNTO = "Envio Arquivo Leituras"

    MSG = "Adjunto encaminhamos arquivo de Leituras do Hospital..."

    MailA = "vslcines@gmail.com"

'CONFIGURAMOS EL BLOQUE CDO

    Dim cdoConfig

    Dim msgOne

    Set cdoConfig = CreateObject("CDO.Configuration")

    With cdoConfig.Fields

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MiSmtp

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = MiMail

        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = MiPass

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

        .Update

    End With

'CONFIGURAMOS EL MENSAJE

    Set msgOne = CreateObject("CDO.Message")

    Set msgOne.configuration = cdoConfig

    msgOne.To = MailA

    msgOne.CC = MailCC

    msgOne.BCC = MailCCO

    msgOne.From = MiMail

    msgOne.Subject = ASUNTO

    msgOne.TextBody = MSG

'CONFIGURAMOS EL ADJUNTO

    Dim ADJUNTO As String

    Dim RUTA As String

    Dim FICHERO As String

    RUTA = Application.CurrentProject.Path & "\Output\"

    FICHERO = RUTA & Dir(RUTA & "*.txt")

    ADJUNTO = "file://" & FICHERO

    If Not IsMissing(FICHERO) Then

        msgOne.AddAttachment (ADJUNTO)

    Else

        Exit Function

    End If

    msgOne.Send

'AVISAMOS QUE EL ENVIO SE HA PRODUCIDO

    MsgBox "Arquivo encaminhado corretamente", vbInformation, "CORRETO"

End Function