Excel宏使用LotusNotes發送富郵件

Question

我正在研究一個使用Lotus Notes會話從Excel 2007發送郵件的小宏。 發送郵件部分工作正常。 現在我需要發送正文部分樣式表的一部分（例如A1：B20的區域）。該區域具有顏色，粗體字體。 這裏給我的電子郵件是代碼：

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 

是否有人在如何發送一個樣式表的想法？

Answer 1

您可以嘗試在這太問題描述的解決方案：Sending formatted Lotus Notes rich text email from Excel VBA

問候，

最大