Déjà, étant donné que tu as fais un New dans la déclaration à la première ligne, la seconde ligne est inutile.
Je te conseille de faire pour la première :
Dim UnMail As CDONTS.NewMail
Pour le reste, la fonction est OK.
Sinon, je sais qu'il y a quelques petits trucs à paramètrer dans le serveur SMTP pour se connecter à Exchange, mais je ne me souviens plus exactement quoi. Je me renseigne.