Re : valider envoi mail.
Oui j'utilise Windows Mail pour le moment, aprés je doit le faire sur Outlook donc je vous dirais, en attendant voila le code car je sais que c'est bien agréable quand on cherche!
Sheets("Commande Out 9009").Select
Range("A1:J62").Select
Selection.Copy
Windows("Gestion Stock Ressorts.xls").Close
Dim WshShell As Object
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim MailProg As String
Dim Env As String, Pos As Integer
Set WshShell = CreateObject("WScript.Shell")
MailProg = "C:\Program Files\Windows Mail\WinMail.exe"
Set WshShell = Nothing
Pos = InStrRev(MailProg, "%")
If Pos > 0 Then
Env = Environ(Mid(MailProg, 2, Pos - 2))
MailProg = Mid(MailProg, Pos + 1)
End If
Dest = "sebastien_seb_5@msn.com"
Sujt = "Besoin de pièces"
Msg = "e"
Shell Env & MailProg & " /mailurl:mailto:" & Dest & "?subject=" & _
Sujt & "&Body=" & Msg
Attente (5)
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys "{TAB}"
SendKeys ("^{v}")
SendKeys "%s"
Attente (5)
End Sub