Une macro Excel envoie du courrier enrichi à l'aide de LotusNotes

Question

Je travaille sur une petite macro pour envoyer du courrier à partir d'Excel 2007 en utilisant ma session Lotus Notes. La partie du courrier d'envoi fonctionne correctement. Maintenant, je dois envoyer la partie du corps, une partie d'une feuille de style (par exemple la zone de A1: B20). Cette zone a des couleurs, des caractères gras. Pour envoyer mon email est ici le code:

Set oSess = CreateObject("Notes.NotesSession") 
Set oDB = oSess.GETDATABASE("", "") 
Call oDB.OPENMAIL 
flag = True 
If Not (oDB.IsOpen) Then flag = oDB.Open("", "") 


If Not flag Then 
    MsgBox "Can't open mail file: " & oDB.SERVER & " " & oDB.FILEPATH 


End If 
On Error GoTo err_handler 

'Building Message 
Set oDoc = oDB.CREATEDOCUMENT 



Set oItem = oDoc.CREATERICHTEXTITEM("BODY") 


oDoc.Form = "Memo" 
'mail subject 
oDoc.Subject = "subject" 
'mail body 
oDoc.sendto = "toto@myserver.com" 
oDoc.body = "my text" 

oDoc.postdate = Date 
oDoc.SaveMessageOnSend = True 


oDoc.visable = True 
'Sending Message 
oDoc.SEND False 

Est-ce que quelqu'un a une idée sur la façon d'envoyer une feuille de style?

Answer 1

Vous pouvez essayer la solution décrite dans cette question SO: Sending formatted Lotus Notes rich text email from Excel VBA

Cordialement,

Max