Macro envoi mail via Mozilla Thunderbird

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

bonjour steven542304

je ne sais si le classeur que j'ai conservé et dont je ne sais plus d’où il vient peut te convenir mais je ne pourrais t'aider plus

Merci beaucoup pour ta réponse Grisan29.

Malheureusement je suis assez novice dans ce domaine, je vais essayer de regarder tout ça et éventuellement d'intégrer la macro de votre fichier dans la mienne.

Merci encore à vous,

Si quelqu'un à d'autres solutions à m'apporter, je suis preneur.

Steven

Bonsoir Pascal,

Je te remercie pour le lien mais celui-ci indique uniquement comment envoyer un mail, depuis Thunderbird.

Rien de plus basique donc, réservé aux gens faisant leur premier pas sur le net

Merci quand même,

Belle soiree

Steven

Bonjour

Il manque la ligne

strcommand = strcommand & "," & "attachment=file:///" & fichierjoint

aaaah merci beaucoup albatros63.

Par contre ça marche super bien sur mon pc personnel, mais au boulot pas moyen. J'ai toujours un message d'erreur.

Bonne soirée et merci encore

steven

Rechercher des sujets similaires à "macro envoi mail via mozilla thunderbird"