在 Excel 中创建富文本电子邮件，以动态创建的 RTF 通过 Lotus Notes 7 发送

我正在尝试以编程方式在 Lotus Notes 7 客户端中生成电子邮件，其中的内容是我专门为要发送的每一封电子邮件在 Excel 中构建的 RTF 代码块。

我能够构建，填充和发送电子邮件。但是正文是我的 RTF 代码的 ascii 文本，而不是我期望的格式化版本。

我感觉是因为我的 emailer 函数(从以前的开发人员继承)正在将其作为纯文本传递。如何将其作为富文本格式传递？

相关的电子邮件程序代码：(邮箱名称是公司特定的，因此已更改)另外，请注意，我希望 RichText 作为正文，而不是附件。

Public Sub SendNotesMail(sSubject, sTo, sCC, sBCC, sAttachment, sMessage, Optional sSaveSent As Boolean = True)

'Set up the objects required for Automation into lotus notes
Dim Maildb                              'The mail database
Dim UserName As String                  'The current users notes name
Dim MailDbName As String                'THe current users notes mail database name
Dim MailDoc                             'The mail document itself
Dim RichTextitem As Object              'The RichText Item
Dim AttachME                            'The sAttachment richtextfile object
Dim Session                             'The notes session
Dim EmbedObj                            'The embedded object (sAttachment)
Dim rAttach() As String
Dim x As Integer

'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
Session.ConvertMime = False

'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string
UserName = Session.UserName
MailDbName = "XXXXX.nsf"

'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", "XXXXXX.nsf")

' Is Mail file already open?
If Maildb.IsOpen = False Then
    Maildb.OPENMAIL
End If

'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.form = "Memo"
MailDoc.sendto = sTo
MailDoc.CopyTo = sCC
MailDoc.BlindCopyTo = sBCC
MailDoc.Subject = sSubject
Set RichTextitem = MailDoc.Createrichtextitem("Body")
Call RichTextitem.appendtext(sMessage)
MailDoc.SaveMessageOnSend = sSaveSent

'Set up the embedded object and Attachment and attach it
If sAttachment <> "" Then
    ParseWords rAttach(), sAttachment, ";"
    For x = 0 To UBound(rAttach) Step 1
        Set AttachME = MailDoc.Createrichtextitem("Attachment")
        Set EmbedObj = AttachME.EmbedObject(1454, "", rAttach(x), "Attachment")
    Next x
End If

'Send the document
MailDoc.SaveMessageOnSend = True
MailDoc.SEND 0, sTo

'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing

End Sub

这是我的 RTF 文本的一部分。它不呈现任何内容，这只是为了显示我的意思是文本格式。

{\rtf1\adeflang1025\ansi\ansicpg1252\uc1\adeff31507\deff0\stshfdbch31505\stshfloch31506\stshfhich31506\stshfbi31507\deflang1033\deflangfe1033\themelang1033\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fbidi \fswiss\fcharset0\fprq2{\*\panose 020b0604020202020204}Arial;}
{\f34\fbidi \froman\fcharset1\fprq2{\*\panose 02040503050406030204}Cambria Math;}        {\flomajor\f31500\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}
{\fdbmajor\f31501\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fhimajor\f31502\fbidi \froman\fcharset0\fprq2{\*\panose 02040503050406030204}Cambria;}
{\fbimajor\f31503\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\flominor\f31504\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}
{\fdbminor\f31505\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fhiminor\f31506\fbidi \fswiss\fcharset0\fprq2{\*\panose 020f0502020204030204}Calibri;}
{\fbiminor\f31507\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f39\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\f40\fbidi \froman\fcharset204\fprq2 Times New Roman Cyr;}
{\f42\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\f43\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\f44\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f45\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}
{\f46\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\f47\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f49\fbidi \fswiss\fcharset238\fprq2 Arial CE;}{\f50\fbidi \fswiss\fcharset204\fprq2 Arial Cyr;}
{\f52\fbidi \fswiss\fcharset161\fprq2 Arial Greek;}{\f53\fbidi \fswiss\fcharset162\fprq2 Arial Tur;}{\f54\fbidi \fswiss\fcharset177\fprq2 Arial (Hebrew);}{\f55\fbidi \fswiss\fcharset178\fprq2 Arial (Arabic);}