Envoyer un email par SSL

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:

---

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