bonsoir
voici ce que j'ai trouvé si qlq peu adapter et ameliorer moi aussi je suis preneur
Attribute VB_Name = 'MailAvecOutlookExpress'
Sub MailOXpress()
Dim dest$, sujet$, texte$
dest = 'f.s@wanadoudou.disdonc'
sujet = 'Envoyer un mail depuis Xl'
texte = 'Envoyé avec Outlook Express depuis Excel'
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & dest & _
'?subject=' & sujet & _
'&Body=' & texte & ', 3'
End Sub
'modifié par Eric Humeau, mpfe
'pour envoyer aussi un classeur en pièce jointe
Sub MailOXpress2()
Dim dest$, sujet$, texte$
Dim Rep
Application.ScreenUpdating = False
'Rep est le nom de ton fichier à joindre.
Rep = 'c:\\test1.xls'
dest = 'zaza@mpfe.fr'
sujet = 'Envoyer un mail depuis Xl'
texte = 'Envoyé avec Outlook Express depuis Excel'
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & dest & _
'?subject=' & sujet & _
'&Body=' & texte & ', 3', vbMaximizedFocus
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis
'envoyer.
SendKeys '%I' & 'p' & Rep & '~' & '%s'
End Sub