Cherche une macro d'envoi mail sur calc

Bonjour à tous,

je cherche à envoyer un fichier calc par mail à l'aide d'une macro, la macro devra faire cela :

- enregistrer
- ouvrir un nouveau message et attacher le document
- renseigner mon adresse mail
- renseigner l'objet

(je ne souhaite pas qu'il soit envoyé sans intervention, je souhaite que l'utilisateur puisse ajouter du texte dans le corps)

Cela fait 2 demi journées que je planche là dessus, a coup de forums, FAQ et autres tutoriaux sans parvenir à trouver ce que je souhaite... enfin si :

sub EnvoiMail
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SendMail", "", 0, Array())

end sub

qui me permet juste d'ouvrir un nouveau message avec le document en pièce jointe.

J'en appele aux développeurs ou apprentis développeurs !!

Merci à vous,

Pierre