Comment récupérer le serveur SMTP paramétré sur un poste windows

PROCEDURE GetServeurSMPT()

LOCAL
sMailCompte est une chaîne

sMailCompte = RegistreLit(« HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager », »Default Mail Account »)

RENVOYER RegistreLit(« HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\ »+sMailCompte, »SMTP Server »)