Envoit de fichier avec thunderbird

Bonjour;

Je souhaite joindre un fichier à un mail avec la messagerie pas défaut sur un PC.

Ma piste de départ était:
email = CreateObject('Wscript.Shell')
email.run(CHR(34) + "mailto:"+thisformset.mnfourni.txt_email.value)
(avec different style de &attach etc....)

Par la suite je me suis rabattu sur => http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000083

Malheureusement mon courriel par défaut est Thunderbird est le lien si dessus ne le veut pas le reconnaitre (ne fonctionne qu'avec Outlook).

J'ai même testé avec =>
m.cPATHKEY ="HKEY_CURRENT_USER\Software\Clients\Mail\"
reg = CreateObject('WScript.Shell')
m.VAL_RETOUR = reg.RegRead(m.cPATHKEY)
(je reçoit en message d'erreur "Mozilla Thunderbird n'existe pas")

Avez vous une solution ?

Cordialement
VFP9 WinXP

Peut-etre ceci

DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER nShowWin
lcMail = "mailto:john@mycompany.com"
ShellExecute(0,"open",lcMail,"","",1)


Mike Gagnon

Bonjour mike,

Je viens de tester mais toujours le même problème pour joindre un fichier.

J'ai aussi testé avec VFPwinsock mais le message "Chemin ou nom de fichier invalide" apparait.