Récupération paramètres outlook pour session smtp

Posté par gino le 28/1/2011 7:44:31
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

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6526&post_id=25698