tester la connexion à un serveur SMTP avant envoi de mail avec CDO

Bonjour,

Je recherche un code pour pouvoir tester la connexion au serveur smtp avant tout envoi de mail avec CDO

Pourquoi ?

Mon fichier excel peut être utilisé depuis deux lieux qui ont des paramètres SMTP différents dont un accessible uniquement depuis un seul lieu. Le code servirait à choisir le bon serveur de façon transparente sans avoir un demander à l'utilisateur sur quel lieu il se situe.

Ex :

si test SMTP1 ne réponds pas envoi via SMTP2


Merci d'avance pour vos réponses.

PS : merci à l'ensemble des contributeurs qui m'ont permis de concevoir une macro qui permet d'envoyer des email depuis excel et sans outlook.