Discussion :

[lio62]

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+

[illight]

dest = "toto.orange.fr"

c'est pas la que tu t'es trompé ? ou tu as mal recopié ? parce que dans un mail, il faut un @ normalement

[lio62]

Bonsoir Illight

ce n'était pas c juste en recopiant pour le forum mais merci quand meme

j'en ai trouvé un autre je voulai le mettre sur le forum car je n'arrivai pas a mettre les pieces jointes mais la il tourne merci a+