[fr-users] Envoi d'un mail thunderbird

Bonjour,
Je souhaiterais envoyer un fichier en pièce jointe d'un mail à plusieurs
destinataires.
Or j'ai beau séparer les destinataires par un point virgule ou une virgule cela
ne fonctionne pas.
La séparation avec la virgule ne prend en compte que mon premier destinataire.
La séparation par le point virgule ajoute une double quote entre le prénom et le
nom du premier destinataire et fait suivre le tout par le second destinataire
tel que :
toto.machin"@truc.fr;titi.bidule@truc.fr

Je vous remercie pour votre aide.

Voici mon code avec le point virgule

sub mail2
Dim Sujet as String, Corps as String 'Utilisé pour l'enoovi par mail
dim PropFich()  'Utilisée pour enregistrer un fichier
dim oFichier as string 'Utilisée pour un fichier

'Alimentation avec le nom du fichier à enregistrer
oFichier="file:///C:/essai.ods"
   Sujet = "Coucou"
   Corps = "Bonjour" & "%2C" & "%0A" & "%0A" & "Vous trouverez ci-joint un
fichier." & "%0A" & "%0A" & "Cordialement"
   Des1 = "toto.machin@truc.fr;titi.bidule@truc.fr"
   shell(ConvertToURL("D:\Thunderbird\thunderbird.exe"),3, "-compose body=" &
Corps & ",subject=" & Sujet & ",to=" & Des1 & ",attachment=" & oFichier)

end sub

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés