Bonsoir,
j'ai un fichier a envoyer par email je suis dans excel 2000, mais je n'ai aucun message d'erreur mais rien ne se passe
merci a+
j'ai un fichier a envoyer par email je suis dans excel 2000, mais je n'ai aucun message d'erreur mais rien ne se passe
Code:
Sub mailavecoeclasseur()
Dim dest, sujt, msg As String
Dim thefile
thefile = "d:\partage\fdcn\repar.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+