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.

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

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.