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")