Discussion :

[BroDaa]

Bonjour,

J'ai un petit souci avec un de mes modules VBA et je ne dispose assez de connaissances pour le résoudre moi-même.
Voilà j'ai trouvé sur internet un module pour envoyer un classeur via gmail. Cependant quand je test la macro, celle ci me renvoie une erreur avec le message suivant :Erreur d'exécution '-2147220973 (80040213)': Le transport a échoué dans sa connexion au serveur.
J'ai cherché sur différents forums, je n'ai pas trouvé de solution à mon problème. Est-ce que quelqu'un peut m'aider à résoudre ce problème?
Merci
Je mets ci dessous mon code VBA:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub SendEmailUsingGmail()
 
Dim NewMail As CDO.Message
 
Set NewMail = New CDO.Message
 
'Enable SSL Authentication
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
'Make SMTP authentication Enabled=true (1)
 
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
 
'Set the SMTP server and port Details
'To get these details you can get on Settings Page of your Gmail Account
 
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'Set your credentials of your Gmail Account
 
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxxx@gmail.com"
 
NewMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********"
 
'Update the configuration fields
NewMail.Configuration.Fields.Update
 
'Set All Email Properties
 
With NewMail
  .Subject = "Test Mail from LearnExcelMacro.com"
  .From = "xxxxxxxxxxx@gmail.com"
  .To = "xxxxxx@xxxx.fr"
  '.CC = "xxxxxx@gmail.com"
  '.BCC = ""
  .TextBody = "Bonjour,..."
End With
 
 
NewMail.Send
MsgBox ("Mail has been Sent")
 
'Set the NewMail Variable to Nothing
Set NewMail = Nothing
 
End Sub

[kiki29]

Salut, voir ici

[BroDaa]

Merci pour le lien,

Cependant en changeant le port comme indiqué

Note: If you get this error : The transport failed to connect to the server
then try to change the SMTP port from 25 to 465

L'erreur est toujours présente.
J'ai même essayé avec le code proposé dans le lien et pour les deux valeurs, la macro me renvoie le message:
"Erreur d'exécution '-2147220973 (80040213)': Le transport a échoué dans sa connexion au serveur."

Avez-vous une autre piste pour mon problème?

Merci

[Invité]

Bonjour,
http://www.developpez.net/forums/d14...t/#post7968025

il faut configurer CDO comme ton client Mail!