Bonjour, Je pense qu'il faut "encadrer" la virgule/le point-virgule par des quotes.
Ex: Des1 = "[email protected]";"[email protected]" Cordialement Mr Sandy-Pascal Andriant Le 10/03/2014 12:22, [email protected] a écrit :
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;[email protected] 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 = "[email protected];[email protected]" shell(ConvertToURL("D:\Thunderbird\thunderbird.exe"),3, "-compose body=" & Corps & ",subject=" & Sujet & ",to=" & Des1 & ",attachment=" & oFichier) end sub
-- Envoyez un mail à [email protected] 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
