macro pour envoyer mail avec outlook express avec image
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:
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.
