Bonjour;
je suis confronte a un souci d'ajout de pieces jointes dans la messagerie thunderbird. Mon script avec une piece jointe fonctionne tres bien, mais je n'arrive pas joindre une 2eme piece jointe.

Voici mon code VBA :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Mail()
 
    Dim destinataire, sujet, fichierjoint1, fichierjoint2 As String
    destinataire = "toto@orange.fr,tata@orange.fr"
    sujet = " fichiers"
 
    body = "Veuillez trouver ci-joint fichier des données ; Cordialement"
 
    fichierjoint1 = "C:\donnees1.xls"
    fichierjoint2 = "C:\donnees2.xls"
 
    strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
 
    strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
    strcommand = strcommand & "," & "subject=" & sujet & ","
    strcommand = strcommand & "body=" & body
    strcommand = strcommand & "," & "attachment=file:///" & fichierjoint1
    strcommand = strcommand & "," & "attachment=file:///" & fichierjoint2
 
   MsgBox strcommand
 
    Call Shell(strcommand, vbNormalFocus)
 
End Sub
je pense que la syntaxe des 2 dernieres ligne strcommand n'est pas correcte

Merci pour votre aide.