Bonjour à tous,
Je cherche désespérément à insérer une pièce jointe à un mail qui sera envoyé par le biais d'une macro.
Voici mon code :
Sub MailAcceuilEtab()
Dim destinataire, sujet, cc As String
destinataire = Range("J4")
sujet = "émargement " & "dispositif " & Range("B4")
cc = Range("J4")
fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
text1 = "Bonjour," & "<br><br>"
text2 = "Je vous remercie d'accueillir dans votre établissement les candidats inscrits au stage suivant :" & "<br><br>"
text3 = "Identifiant du dispositif : " & Range("B3") & " : " & Range("C3") & "<br>"
text4 = "Date(s) : " & Range("H3") & "<br><br>"
text5 = "Vous trouverez ci-joint la liste des stagiaires convoqués par mes soins." & "<br><br>"
text6 = "Bien Cordialement," & "<br><br>"
body = text1 & text2 & text3 & text4 & text5 & text6
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & sujet1 & ","
strcommand = strcommand & "body='" & body & "'"
Call Shell(strcommand, vbNormalFocus)
End Sub
Lorsque je clique sur le bouton, une fenêtre s'ouvre me permettant de choisir la pièce jointe.
En revanche lorsque l'aperçu du mail s'affiche sur Thunderbird, aucune pièce jointe n'apparaît.
Il me manque surement quelque chose dans mon code.
Merci par avance à ceux qui pourront me renseigner
Steven