BONSOIR

J'ai un email a envoyé mais malgré ce code je n'ai aucun message d'erreur mais rien ne se passe il s'exécute pourtant jusqu'a la dernière ligne sans message d'erreur

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub mailavecoeclasseur()
Dim dest, sujt, msg As String
Dim thefile
thefile = "d:\partage\fdcn\controles.xls"
dest = "toto.orange.fr"
sujt = "essai"
msg = "essai2"
Shell "c:\Program Files\Outlook Express\msimn.exe" & _
"/mailurl:mailto:" & dest & "?subject=" & sujt & "&body=" & msg & ""
SendKeys "%I" & "p" & thefile & "~" & "%s"
End Sub
merci a+