Envoi d'un mail via Excel (VBA) avec un connexion auto
d
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.