Excel et Lotus

[ChuBaKa]

Bonjour,

Ci-joint codes trouvés sur le forum pour envoi de données par outlook express depuis Excel:

Sub MailOXpress()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = "adresse@mail"
sujet = " titre de ton mail"
texte = "ta plage de cellule a envoyer"
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte
SendKeys "%s"

End Sub

Quelqu'un saurait-il modifier ces codes pour un envoi de fichier excel ou d'une feuille excel via la méssagerie Lotus ?

Par avance, merci.