Отправка форматированного письма Lotus Notes rich text из Excel VBA

У меня мало Lotus Script или Notes/Domino knowledge, но у меня есть процедура, скопированная откуда-то давно, которая позволяет мне отправлять по электронной почте заметки из VBA. Обычно я использую это только для внутренних уведомлений, где форматирование не имеет большого значения.

теперь я хочу использовать это для отправки внешних писем клиенту, и корпоративные типы предпочли бы, чтобы электронная почта соответствовала нашему руководству по стилю (в основном шрифт без засечек).

Я хотел сказать они, что код работает только с простым текстом, но затем я заметил, что подпрограмма ссылается на какой-то объект CREATERICHTEXTITEM. Означает ли это, что я могу применить какое-то форматирование к текстовой строке после он был передан в почтовый режим? Помимо поддержания наших драгоценных ценностей бренда, это было бы очень удобно для меня для выделения определенных мест в электронной почте.

я покопался в сети, чтобы узнать, можно ли адаптировать этот код, но незнание объектной модели Notes и тот факт, что онлайн-ресурсы Notes, похоже, отражают собственную тупость приложения, означали, что я не очень далеко продвинулся.

код:

Sub sendEmail(EmailSubject As String, EMailSendTo As String, EMailBody As String, MailServer as String)

    Dim objNotesSession As Object
    Dim objNotesMailFile As Object
    Dim objNotesDocument As Object
    Dim objNotesField As Object
    Dim sendmail As Boolean

    'added for integration into reporting tool
    Dim dbString As String

    dbString = "mail" & Application.UserName & ".nsf"

On Error GoTo SendMailError
    'Establish Connection to Notes
    Set objNotesSession = CreateObject("Notes.NotesSession")
On Error Resume Next
    'Establish Connection to Mail File
    Set objNotesMailFile = objNotesSession.GETDATABASE(MailServer, dbString)
    'Open Mail
    objNotesMailFile.OPENMAIL
On Error GoTo 0

    'Create New Memo
    Set objNotesDocument = objNotesMailFile.createdocument

    Dim oWorkSpace As Object, oUIdoc As Object
    Set oWorkSpace = CreateObject("Notes.NotesUIWorkspace")
    Set oUIdoc = oWorkSpace.CurrentDocument

    'Create 'Subject Field'
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject)

    'Create 'Send To' Field
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EMailSendTo)

    'Create 'Copy To' Field
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)

    'Create 'Blind Copy To' Field
    Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)

    'Create 'Body' of memo
    Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body")

    With objNotesField
        .APPENDTEXT emailBody
        .ADDNEWLINE 1
    End With

    'Send the e-mail

    Call objNotesDocument.Save(True, False, False)
    objNotesDocument.SaveMessageOnSend = True
    'objNotesDocument.Save
    objNotesDocument.Send (0)

    'Release storage
    Set objNotesSession = Nothing
    Set objNotesMailFile = Nothing
    Set objNotesDocument = Nothing
    Set objNotesField = Nothing

    'Set return code
    sendmail = True

    Exit Sub

SendMailError:
    Dim Msg
    Msg = "Error # " & Str(Err.Number) & " was generated by " _
                & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
    sendmail = False
End Sub