EMAIL avec pièce jointe thunderdird

Sub envoi_des_mails()

Dim Destinataire$, Sujet$, Body$, strCommand$, FeuilEnvoi$, NomDuFichierEnvoiTemp$

Destinataire = "xxxxx@neuf.fr"                   '< destinataire
Sujet = "mois de septembre 2008 "                '< sujet
Body = "Merci d'expliquer votre problème ici"    '< message
FeuilEnvoi$ = ActiveSheet.Name                   '< nom de ta feuille ou Feuil.Active
NomDuFichierEnvoiTemp$ = "ClassEnvoiDonneesTEMP" '< nom du fichier sans extention !!!

'exporte feuille dans nouveau classeur dans le même répertoire que le classeur en cours.
FilFormatSVG = ThisWorkbook.FileFormat 'format idem ce classeur en cours
ExtSVG$ = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") + 1) 'extention idem le classeur en cours
F$ = ThisWorkbook.Path & "\" & NomDuFichierEnvoiTemp$ & "." & ExtSVG$  'chemin fichier complet
Sheets(FeuilEnvoi$).Copy 'copi la feuille ce qui cré un nouveau classeur avec cette feuille
ActiveWorkbook.SaveAs Filename:=F$, FileFormat:=FilFormatSVG
PathFichierTemp$ = ActiveWorkbook.FullName ' ICI on récupère le chemin et fichier complet PathFichierTemp$
ActiveWorkbook.Close
'la variable à utiliser pour envoi en pièce jointe> PathFichierTemp$ 

 strCommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"

 strCommand = strCommand & " -compose " & "mailto:" & destinataire & "?"
 strCommand = strCommand & "subject=" & sujet & Chr$(34) & "&"
 strCommand = strCommand & "body=" & body
 strCommand = strCommand & "AddAttachment=" & PathFichierTemp$ ' <<<<<<<<<<<<<<<< à voir !?

 Call Shell(strCommand, vbNormalFocus)


'si tu envoies plus tard tu ne peux pas le supprimer !
'si tu envoies direct tu peux le supprimer après envoi avec la commande ci-dessous
'If PathFichierTemp$ > "" Then Kill PathFichierTemp$


 End Sub