从Excel VBA发送格式化的Lotus Notes富文本电子邮件

从Excel VBA发送格式化的Lotus Notes富文本电子邮件需要以下步骤：

首先，确保已经安装了Lotus Notes客户端，并且已经正确配置了邮件服务器。
在Excel VBA中，使用CreateObject方法创建一个Lotus Notes会话对象。
使用Lotus Notes会话对象打开一个新的邮件文档。
使用Lotus Notes邮件文档对象设置邮件的收件人、主题、正文等信息。
使用Lotus Notes邮件文档对象的Save方法保存邮件。
使用Lotus Notes邮件文档对象的Send方法发送邮件。

以下是一个示例代码：

Sub SendLotusNotesEmail()
    Dim notesSession As Object
    Dim notesEmail As Object
    Dim notesDatabase As Object
    Dim notesDocument As Object

    ' 创建Lotus Notes会话对象
    Set notesSession = CreateObject("Notes.NotesSession")

    ' 打开Lotus Notes邮件数据库
    Set notesDatabase = notesSession.GETDATABASE("", "mail\user.nsf")
    If notesDatabase.IsOpen = False Then
        notesDatabase.OPENMAIL
    End If

    ' 创建新的邮件文档
    Set notesDocument = notesDatabase.CREATEDOCUMENT
    Set notesEmail = notesDocument.CREATERICHTEXTITEM("Body")

    ' 设置邮件信息
    notesDocument.FORM = "Memo"
    notesDocument.SENDTO = "user@example.com"
    notesDocument.SUBJECT = "Test email from Excel VBA"
    notesEmail.APPENDTEXT "This is a test email sent from Excel VBA."

    ' 保存并发送邮件
    notesDocument.SAVEMESSAGEONSEND = True
    notesDocument.Send 0, "user@example.com"
End Sub

这个示例代码将会创建一个新的Lotus Notes邮件，并将其发送到指定的收件人。请注意，这个代码需要在安装了Lotus Notes客户端的计算机上运行，并且需要正确配置邮件服务器。