Envoi mail avec Pièces jointes

Signaler
Messages postés
1
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 mai 2010
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
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\thunderbird"
strCommand = strCommand & " -compose " & "mailto:" & destinataire & "?"
strCommand = strCommand & "subject=" & Sujet & Chr$(34) & "&"
strCommand = strCommand & "body=" & body
Call Shell(strCommand, vbNormalFocus)

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
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)