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 |
Partager