sAdresseSmtp est une chaîne
SCompteCourrier est une chaîne
sNomUser est une chaîne
sMdP est une chaîne
ValTrouvée est un booléen
SCompteCourrier = RegistreLit("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager","Default Mail Account",ValTrouvée)
sAdresseSmtp = RegistreLit("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"+SCompteCourrier,"SMTP Server",ValTrouvée)
sNomUser= RegistreLit("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"+SCompteCourrier,"SMTP Email Address",ValTrouvée)
SI ValTrouvée=Vrai ALORS
EmailOuvreSessionSMTP(sNomUser,"",sAdresseSmtp,25)
Email.Destinataire="toto@free.fr"
Email.Expéditeur=sNomUser
Email.NbDestinataire=1
Email.Message = "texte du message"
Email.Sujet="Sujet du message"
EmailEnvoieMessage(sNomUser)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6526&post_id=25698