envoi d'un etat en texte riche avec notes

Bonjour,

J'ai trouv" le code ci-dessous ici mais je n'arrive pas a faire
passer
le resultat d'un etat en texte riche dans le message du mail, une
idee
car je suis nul en vba.


Grand merci pour vos reponses.


CODE :


Private Sub Commande0_Click()
Dim session As Object
Dim doc As Object
Dim db As Object
Dim Fichier As Object
Dim UserName As String
Dim recip(25) As Variant
recip(0) =3D "nom.pre...@fai.fr"
recip(1) =3D "nom.pren...@yahoo.fr" 'e.t.c


Set session =3D CreateObject("Notes.NotesSession")
Set db =3D session.CURRENTDATABASE
Set doc =3D db.CREATEDOCUMENT()


doc.Form =3D "Memo"
doc.Subject =3D "mon texte" & Now 'sujet du mail
doc.Body =3D "mon texte." 'Contenu du mail
doc.sendto =3D recip
'doc.sendto =3D "nom.prenano@fai.fr"
'destinataire du mail
doc.expediteur =3D "mon texte" ' Change le envoy=E9 par...
doc.signature =3D "mon texte"
'doc.PostedDate =3D ()


Call doc.Save(True, False) 'sauvegarde le mail
Call doc.SEND(False) 'envoie le mail
End Sub