envoi de classeur par mail via outlook express

[rebouillon]

bonjour a tous

j'ai un petit probleme pour envoyer un classeur excel par mail via outlook express

j'ai bien trouvé pour automatiser l'adresse, le sujet, le message mais pas pour joindre le classeur

bonne journée et merci d'avance

 

[pierrejean]

Re : envoi de classeur par mail via outlook express

bonjour rebouillon

Sub MailFichierOE()
'd'apres une macro de Laurent LONGRE transmise par MICHELXLD
Dim Dest As String, Sujt As String, Msg As String
Dim RepName As String
Dim copie As String
ActiveWorkbook.SaveCopyAs "C:\temp\test.xls"
RepName = "C:\temp\test.xls"
Dest = "[EMAIL="dest@free.fr"]dest@free.fr[/EMAIL]"
'noter le &cc= entre les differentes adresses en copie
copie = "[EMAIL="dest1@free.fr&cc=dest2@free.fr"]dest1@free.fr&cc=dest2@free.fr[/EMAIL]"
Sujt = "Test d'envoi d'un fichier avec Excel"
Msg = "Bonjour, Excel vous envoie un fichier avec Outlook Express"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?cc=" & copie & "&subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s"
End Sub