Envoi d'un mail via Excel (VBA) avec un connexion auto

Bonjour à tous,

Le titre est pas très clair je vous l'accorde... J'ai un fichier excel que j'ai créer qui fonctionne parfaitement, avec une commande VBA me permettant d'envoyé un mail contenant une plage de donnée. Le programme marche très bien chez moi, mais pas au travail, je pense que c'est à cause du "proxy". Il n'y a pas de proxy à proprement parler mais une adresse de script de configuration automatique ...

J'ai l'adresse de ce script mais je ne sais pas quoi mettre exactement pour que VBA le prenne en compte...

Je vous joins si dessous mon code :

Sub Envoi_Image()
    Call Export_Image_de_Plage
    Call Envoi_Mail

End Sub

Sub Export_Image_de_Plage()
Dim ndf As String
Dim Source As Range, Gr As Object
    ndf = ActiveWorkbook.Path & "\Horaire.jpg"
    Set Source = Range("A1:G20")
    Source.CopyPicture xlScreen, xlPicture
    Set Gr = Sheets(1).ChartObjects.Add(0, 0, Source.Width, Source.Height)
    Gr.Chart.Paste
    Gr.Chart.Export ndf, "JPG"
    Gr.Delete
    Set Gr = Nothing
    Set Source = Nothing

End Sub

Sub Envoi_Mail()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "d********@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "**********"
.Update
End With
' build email parts
With cdomsg
.To = Range("J4").Value
.From = "d*********r@gmail.com"
.Subject = "Horaire"
.TextBody = "Bonjour, voici tes horaires pour les semaines suivantes"
        .AddAttachment ActiveWorkbook.Path & "\Horaire.jpg"

        .Send
    End With
End Sub

et le proxy utilisé :

http://pac.fr.*******.com/proxysaas.pac

Si quelqu'un saurait l'intégré dans mon code, je lui serais plus que reconnaissant...

En vous remerciant de votre intérêt, cordialement.

Personne ?