Lotus notes et Excel entr

[kinkalero]

Bonjour le forum,

Je pense que tout le monde est en forme puisque nous sommes vendredi et que ce soir c le week end.

Mon souci est que j'ai le code suivant pour envoyer un mail:

Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL

Set doc = db.CREATEDOCUMENT()
With doc
.form = "Memo"
.SendTo = "xxxxx.xxxxx@xxxxx.com"
.CopyTo = ""
.Subject = "Demande de Métrologie"
.body = "Vous avez une nouvelle demande de métrologie"
.From = Session.COMMONUSERNAME
.PostedDate = Now
.SAVEMESSAGEONSEND = True
End With
Call doc.SEND(True)
Set Session = Nothing
Set db = Nothing
Set doc = Nothing

Mais je souhaite envoyer dans le "body" une "image" d'une feuille de mon classeur.
Je suis encore novice dans le service et je n'arrive pas a trouver la solution adapté pour moi dans le forum. Si qlq à une formule pour copier UNE feuille du classeur au format GIF ou HTML......

Merci d'avance pour votre collaboration

Kinkalero

 

[kinkalero]

Re : Lotus notes et Excel entr

sa n'inspire personne???

 

[Kobaya]

Re : Lotus notes et Excel entr

salut kinkalero,

Je joins un fichier avec du code qui permet de faire ça (boutonCréer et envoyer, procédure CreateMailWithCopy). Le seul problème, c'est le format d'image qui est collé dans Notes : on perd la couleur
Et je n'ai pas trouvé de solution ; à part celle, un peu bancale, expliquée dans le fichier.