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

您可以尝试此SO问题中描述的解决方案：Sending formatted Lotus Notes rich text email from Excel VBA

此致

最高

Excel宏使用Lotus Notes发送富邮件

1 个答案: