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

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