使用Excel VBA通过Lotus Notes发送电子邮件

Sub SendEmail()
    Dim Maildb As Object
    Dim UserName As String
    Dim MailDbName As String
    Dim MailDoc As Object
    Dim AttachME As Object
    Dim Session As Object
    
    ' Lotus Notes数据库文件名
    MailDbName = "mail\yourmail.nsf"
    
    ' 邮件接收者的姓名
    UserName = "Recipient Name"
    
    ' 创建Lotus Notes会话
    Set Session = CreateObject("Notes.NotesSession")
    
    ' 打开Lotus Notes数据库
    Set Maildb = Session.GetDatabase("", MailDbName)
    
    If Not Maildb.IsOpen Then
        Maildb.OPENMAIL
    End If
    
    ' 创建邮件文档
    Set MailDoc = Maildb.CREATEDOCUMENT
    
    With MailDoc
        ' 设置邮件主题
        .Subject = "邮件主题"
        
        ' 设置邮件接收者
        .SendTo = UserName
        
        ' 设置邮件正文
        .Body = "邮件正文"
        
        ' 添加附件（可选）
        Set AttachME = .CREATERICHTEXTITEM("Attachment")
        AttachME.EmbedObject 1, "", "文件路径"
        
        ' 发送邮件
        .Send 0, UserName
    End With
    
    ' 释放对象
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    
    MsgBox "邮件发送成功！"
End Sub