Bonsoir le forum,
Tout est dit dans le titre mais quand j'ecris ce code
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
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
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