¿Cómo enviar correo de gmail por excel con un proxy configurado?

Tengo un pequeño problema, quiero que excel envíe un correo pero no lo hace, me envía un error "error de transporte en la conexión al servidor", el problema es el siguiente: cuando estoy conectado por Wifi, no tengo problema lo envía correctamente, el problema es cuando lo conecto a través de la red de la empresa, tiliza un proxy y la verdad no se como configurarlo en la macro. Estoy usando este código:

Sub SendMail_mail()
Dim Email As CDO.Message
Set Email = New CDO.Message
correo = "[email protected]"
passwd = "mipass"
destino = "[email protected]"
Mensaje = "Prueba 1"
cuerpo = "Esta es la primer prueba "
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
    .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
End With
With Email
    .To = destino
    .From = correo
    .Subject = Mensaje
    .TextBody = cuerpo
    .Configuration.Fields.Update
    On Error Resume Next
    .Send
End With
If Err.Number = 0 Then
    MsgBox "El mail se envió con éxito", vbInformation, "Informe"
Else
    MsgBox "Se produjo el siguiente error: " & Err.Description, vbCritical, "Error nro " & Err.Number
End If
End Sub

///////////////////////////////////////////////////////////////////////