Subject = Replace(Subject," ","%20",1,,vbTextCompare)
Body = Replace(Body," ","%20",1,,vbTextCompare)
Shell("start mailto:" & email & "?Subject=" & subject & "&Body=" & body & "", vbHide)
C'est ce que je fais pour n de mes programme et ça marche, le seul truc c'est que j'emploie une API pour faire le Shell...