Bonjour,

J'aurai besoin d'un petit coup de main. J'ai récupéré un code qui me permet à partir d'un bouton sur excel d'ouvrir outlook express et d'envoyer un mail avec une pièce jointe. J'aimerai rajouter une image dans le corps de mon message mais je sais pas comment faire pour l'insérer dans le code de cette macro.

Voici le code que j'utilise :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim dest$, sujet$, texte$
Dim rep
Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
rep = "C:\Documents and Settings\Poste1\Bureau\devis\Devis.pdf"
dest = Range("I10")
sujet = Range("A12").Value & Range("F12").Value
texte = "en attendant le bon!"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte, 3
'on temporise 5 seconde car si outlook pas ouvert il y a des problemes Attendre 5
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep,valider
'puis
'envoyer.
SendKeys "%I" & "p" & rep & "~" '& "%s"
'remarque pour garder la maîtrise de l'envoi final
En vous remerciant de votre aide.