email + pièce jointe PDF envoyer avec thunderbird depuis excel

fredoud

XLDnaute Junior
Bonsoir le forum,

Tout est dit dans le titre mais quand j'ecris ce code
Code:
Private Sub CmdEmail_Click()
Dim destinataire, sujet, fichierjoint As String
With Worksheets("Document")
        .Range("A1").Value = 4 'code pour document commande
destinataire = Sheets("Document").Range("G12").Value
sujet = "Votre facture n° " & Sheets("Document").Range("I2").Value & " du  " & Date
 
body = "Bonjour, "Bonjour," & vbNewLine & "Je vous prie de trouver ci-joint le 
fichier : "DoCo.pdf & _
 vbNewLine & "Cordialement."
 
fichierjoint = "D:\Temp\DoCo.pdf"
 
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
 
Call Shell(strcommand, vbNormalFocus)
End With
End Sub
je rencontre un problème sur la ligne "body = ..."
Erreur de syntaxe !

Le bouton "CmdEmail" est situé dans un userform et le classeur démarre sur la feuille1 "Dashboard".

- ou est l'erreur ?
- Est-ce que les reste du code est bon ?

Merci pour votre aide,

Frederique
 

Discussions similaires

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth