Envoi mail avec Pièces jointes

Question

Bonjour,

Je viens vers le forum afin de trouver une solution à mon problème. En fait, mon code suivant me permet d'envoyer un mail, seulement j'arrive pas à y associer un fichier joint (ce fichier étant dont le chemin figure en body)

Si quelqu'un peut m'éclaire. Merci à toutes et à tous.

A bientôt.

Voici le code

Sub EnvoiMail
Dim destinataire,Sujet, body
Dim strCommand As String

destinataire ="toto@....fr"
Sujet = " Dossier de---->" & ActiveSheet.Range("C14").Value & "_" & ActiveSheet.Range("C3").Value
body = "C:\Users\Doc\Desktop\Tout " & Range("C14") & "_" & Format(Date, "ddmmyyyy") & "_" & ActiveWorkbook.Name

    strCommand = "C:\Program Files\Mozilla Thunderbird	hunderbird"
    strCommand = strCommand & " -compose " & "mailto:" & destinataire & "?"
    strCommand = strCommand & "subject=" & Sujet & Chr$(34) & "&"
    strCommand = strCommand & "body=" & body
    Call Shell(strCommand, vbNormalFocus)

cs_Jack · Answer

Salut
Puisque tu t'adresses à Thunderbird, il serait sage de chercher de l'aide sur ce logiciel et d'approfondir les méthodes "mailto" qu'il propose et de savoir si elle est capable de joindre un fichier.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Envoi mail avec Pièces jointes

1 réponse

Votre réponse