Bonjour,

Je développe une application qui doit envoyer des mails.
Pour cela, j'utilise un "CDO.Message" classique.

Bizarrement, quand j'utilise l'IP du serveur SMTP au lieu de son nom, cela ne fonctionne plus. Si j'utilise un autre alias, cela ne fonctionne pas non plus.

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
 
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "toto@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
 
' Ca marche
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
 
' Ca marche pas
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "209.85.229.109"
 
' Ca marche pas
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "gmail-smtp-msa.l.google.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/smtpusessl") = True
.Update
End With

Exemple :
Je tente de me connecter à "smtp.gmail.com" --> ça fonctionne.
Je tente de me connecter à "209.85.229.109" --> ça ne fonctionne pas.
Je tente de me connecter à "gmail-smtp-msa.l.google.com" (qui est le vrai serveur de mail derrière l'alias "smtp.gmail.com") --> ça ne fonctionne pas.


Vous allez me dire "tu n'as qu'à utiliser smtp.gmail.com". Le problème c'est que je dois utiliser un serveur perso, pour lequel je n'ai qu'une IP comme SMTP. Et mon application n'arrive pas à se connecter par cette IP (alors qu'elle est bien valide).


Avez-vous des idées à me suggérer ?


Merci d'avance