Envoi mail avec Pièces jointes

sambabouyon
Messages postés
1
Date d'inscription
vendredi 28 mai 2010
Statut
Membre
Dernière intervention
29 mai 2010
- 29 mai 2010 à 11:05
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
- 30 mai 2010 à 10:55
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

cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
30 mai 2010 à 10:55
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)
0