Bonjour,
Je vous explique, je fais un programme qui va devoir à la fin envoyer un mail avec un fichier joint.
J'ai trouvé un code qui me permet d'envoyer un mail, mais lorsque je teste, j'ai juste outlook express qui s'ouvre, y a le destinataire qui est écrit, y a le sujet qui est écrit et aussi le message, mais par contre ça n'insère pas mon fichier joint et ça ne l'envoie pas.
Quand je teste à la main les caractères que j'ai mis après le SendKeys, tout fonctionne sauf le ~ pour la validation. Donc je pense que c'est à cause de ça. Sinon à la base je voudrais l'envoyer avec Outlook et non avec Outlook express, donc si quelqu'un aurait une idée ou pourrait m'aider, merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 theFile = "c:\dossier\fichier.xls" Dest = "essai@essai.com" Sujet = "Test d'envoi avec excel" Msg = "Bonjour, Excel vous envoie un message" Shell "C:\Program Files\Outlook Express\msimn.exe " _ & "/mailurl:mailto:" & Dest & "?subject=" & Sujet & "&Body=" & Msg & "" SendKeys "%I" & "p" & theFile & "~" & "%S" 'Signification des caractères après "SendKeys": '* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt) '* ~ = Validation. (~=Entrée) '* %S = Envoyer.
sinon j'ai essayé aussi, le code qu'il y a sur le FAQ VB pour envoyer un mail, mais ça ne fonctionne pas non plus.
Partager