Excel 2007 et Windows mail

Bonjour
Alors essaie avec cette macro
Avec OUtlook Express si cela peut aider

Sub MailAvFichier()
Dim Dest As String
Dim Sujt As String
Dim Msg As String

TxtLien = "c:ajetertest.xls"

Dest = "mail@free.fr"
Sujt = "Test envoi"
Msg = "Voila le classeur"

Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
' Inserrer pièce
SendKeys "%I{ENTER}", False
'nom du fichier
SendKeys TxtLien & "{ENTER}", False
' envoyer
SendKeys "%F{DOWN}{ENTER}", False
End Sub

--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm

VBAXL
http://dj.joss.free.fr/


"PhildeParis" <phil.gasnospam@laposte.net> a écrit dans le message de news:
7284FF7F-21BE-4C17-84B8-DC0E758334B3@microsoft.com...

Bonjour,

Envoyer un fichier depuis Excel 2007 avec Windows mail semble impossible.
(C'est le même problème d'ailleurs avec Word 2007)

Existe t-il un solution ? ! ! !

Merci d'avance,
Cordialement,

Philippe