Bonjour à tous,

Voilà, j’essaie d'envoyer un mail avec Thunderbird depuis Excel, Voici mon code :
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
Private Sub CmdMail_Click()
Dim Body, StrCommand As String
  ColReg = 1: LignReg = 4
  Do While Worksheets("CfgRegion").Cells(1, ColReg).Value <> ActiveSheet.ComboLstRegion.Value
    ColReg = ColReg + 1
  Loop
destinataire = Worksheets("CfgRegion").Cells(3, ColReg).Value
sujet = "Livraison " & Range("SaisieCommune").Value & " - " & Range("SaisieZNC").Value
Body = "Bonjour" & vbCrLf
Body = Body & "Veuillez trouver ci-joint la livraison concernant le dossier : " & vbCrLf
Body = Body & "Commune : " & Range("SaisieCommune").Value & vbCrLf
Body = Body & "ZNC : " & Range("SaisieZNC").Value & vbCrLf 
Body = Body & "Cordialement,"
 
StrCommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
StrCommand = StrCommand & " -compose " & "to='" & destinataire & "'"
'StrCommand = StrCommand & "," & "cc='" & cc & "'"
StrCommand = StrCommand & "," & "subject=" & sujet & "',"
StrCommand = StrCommand & "body='" & Body & "'"
 
Debug.Print StrCommand
 
Call Shell(StrCommand, vbNormalFocus)
End Sub
Mais voilà... Ça ouvre bien un nouveau Courriel dans Thunderbird, le bon destinataire, mais le sujet est tronqué et je n'ai pas de message...

Voici le contenu de StrCommand :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
C:\Program Files (x86)\Mozilla Thunderbird\thunderbird -compose to='erdf-grdf-drcar-commandecarto@erdf-grdf.fr',subject=Livraison MOREMBERT - ZNC 01-52141',body='Bonjour
Veuillez trouver ci-joint la livraison concernant le dossier : 
Commune : MOREMBERT
ZNC : ZNC 01-52141
Cordialement,'
Il doit il y avoir une faute de quote ou un truc comme çà, mais je ne le trouve pas

Merci pour l'aide,

Denis...