ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Recuperer le nom du client de messagerie par defaut dans la machine Windows   



L'auteur

Olivier Hamou
France France
Membre Simple
# 0000000017
enregistré le 13/10/2004
http://www.planitron.com
Hamou Olivier
94100 Saint Maur des fossés
de la société PLANITRON
Fiche personnelle


Note des membres
pas de note

Contributions > 10 - REG base de registre

Recuperer le nom du client de messagerie par defaut dans la machine Windows
# 0000000491
ajouté le 07/11/2007 14:02:22 et modifié le 07/11/2007
consulté 9081 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0


Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
Description
Vous faites appel à la function GetClientMail
afin de recuperer le nom du client de messagerie par defaut.

Olivier
Code source :
*============================================================
* Cette methode permet de recuperer le client email par defaut
* Soit : Outlook Express , Outlook ou Mozilla Thunderbird
*============================================================
Function GetClientMail
Local cPATHKEY as String, cVALUE as String, oREG as WScript.Shell

m.cVALUE   = ""
&& important de mettre le \ à la fin
*m.cPATHKEY   ="HKEY_CURRENT_USER\Software\Clients\Mail\" && Ancien ne marche pas
m.cPATHKEY   ="HKEY_LOCAL_MACHINE\Software\Clients\Mail\"
m.oREG      = NewObject('WScript.Shell')
m.cVALUE   = oREG.RegRead(m.cPATHKEY)
*Messagebox(m.cVALUE)

m.cVALUE = Alltr(Upper(m.cVALUE))

Return m.cVALUE
EndFunc
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3