Bonjour,
J'ai un petit scrit vbs qui permet d’envoyer des emails (voir code ci-dessous). Tout fonctionne sur mon poste perso "à la maison". Mais si je veux faire tourner le même script sur mon poste au boulot ben ça bloque avec ce message d'erreur Le transport a échoué dans sa connexion au serveur
Mais je sais pas si c'est le proxy ou autre qui bloque, si vous avez un avis sur sujet? Parce que je garde exactement la même connexion au compte.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Set objMsg = CreateObject("CDO.Message") Set msgConf = CreateObject("CDO.Configuration") 'Server Configuration msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") ="465" msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@gmail.com" 'type your mail id msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******" 'Type your acccount Password msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true" msgConf.Fields.Update 'End With objMsg.To = "******@gmail.com " ' type to mail id objMsg.From = "*******@gmail.com " 'type from mail id objMsg.Subject = "Test mail" objMsg.HTMLBody = "Test Mail for users" 'objMsg.AddAttachment "C:\Users\Username\Pictures\Image.jpg" objMsg.AddAttachment filepath ' Attachement object objMsg.Sender = "Mr. Name" Set objMsg.Configuration = msgConf ' Send objMsg.Send Msgbox("Email Sent Successfully") ' Clear Set objMsg = nothing Set msgConf = nothing
Partager