Pièce jointe par OutlookExpress

[nono91]

Bonsoir à tous

Je reviens un peu vers vous, car je rencontre un problème plus que HARD.
Au travers d'un USF, j'envoi un mail avec destinataire, message et objet. Mon problème, est que je voudrai aussi envoyer une pièce jointe, ou plutôt la feuille active voire toute autre feuille du classeur ouvert. En plus, (et oui je suis gourmand), si l'envoi était automatique, ce serait plus que cool.

La formule employée actuellement :

Sub envoiMailOE()
Dim Adresse As String
Dim Sujet As String, Texte As String
Adresse = "xxxxxxxxxxx@free.fr"
Sujet = "Données PARK XXXXXX"
Texte = "Bonjour ," & vbCrLf & vbCrLf _
& "Veuillez trouver les données PARK XXXXXX du mois" & vbCrLf & vbCrLf _
& "Signature " & Application.UserName
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" _
& Adresse & "?subject=" & Sujet & "&Body=" & Texte
End Sub

J'ai bien trouvé des posts sympas, mais ils sont pour la plupart pour Outlook et non OutlookExpress.

Si vous avez ma solution, je suis preneur.

Bien à vous

Bruno