Bonjour
Je bute sur un problème. Jusqu'à présent je récupérais les paramètres outlook avec le code suivant
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
Ça marche très bien avec XP, le problème est que ça ne marche plus du tout avec Vista :x
Le but de la manip est de pouvoir envoyer des mails de façon transparente pour l'utilisateur (sans avoir a ouvrir outlook ou outlook express)
Avez vous une idée pour faire la meme chose toujours de manière transparente pour l'utilisateur (qui ne connait pas forcément les paramètres de son compte de messagerie)
Merci de vos réponses que j'espère nombreuses