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