Bonjour tout le monde,

je tiens tout d'abord à signaler qu'avant de poster j'ai parcouru le net de long en large et je n'ai pas trouver de solution à mon problème.

Pourtant de prime abord, ça a l'air simple.
J'ai récupérer ce code qui devrait suffire à envoyer un mail via le serveur smtp de mon choix :
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
On Error GoTo ErrorHandler
 
Dim oMsg As Object
Dim oConf As Object
Dim vFields As Variant
Set oMsg = CreateObject("CDO.Message")
Set oConf = CreateObject("CDO.Configuration")
'oConf.Load -1 ' CDO Source defaults
Set vFields = oConf.Fields
 
With vFields
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = txtUserLogin.Text
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = txtUserPassword.Text
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 5
 
    .Update
End With
 
With oMsg
    Set .Configuration = oConf
    .To = txtDestEmail.Text
    .CC = ""
    .BCC = ""
'    .From = txtSenderAddress.Text
    .From = txtUserLogin.Text
    .Subject = txtSubject.Text
    .TextBody = txtBody.Text
    .Send
End With
 
Exit Sub
 
ErrorHandler:
    MsgBox Str(Err) + vbCrLf + Error$, vbOKOnly + vbCritical, "Sendmail Error"
Le login et le password sont corrects.

Quand j'execute le code, j'ai une erreur : -22457220973 The transport failed to connect to the server

J'ai essayé plein de combnaisons différrentes en jouant avec les ports (25, 587, 465) et l'encryption SSL mais pas moyen d'envoyer le mail.
Beaucoup de gens sur le net se retrouve avec la même erreur, mais aucune solution n'a été proposée à part ici.
Le même code sur une autre machine aurait fonctionné.
Moi sur 3 machines (2 XP et 1 Seven), rien à faire...
Je suis à bout.
J'aimerai éviter d'avoir a recoder l'envoi du mail avec Winsock avec la prise en charge de TLS/SSL siouplait.

Merci d'avance