VBA:通过IBM notes发送电子邮件(带附件)？

Sub SendEmailWithAttachment()
    Dim Maildb As Object
    Dim UserName As String
    Dim MailDbName As String
    Dim MailDoc As Object
    Dim AttachME As Object
    Dim Session As Object
    
    ' 设置IBM Notes客户端的用户名和邮件数据库名称
    UserName = "YourUserName"
    MailDbName = "YourMailDatabase.nsf"
    
    ' 创建IBM Notes会话
    Set Session = CreateObject("Notes.NotesSession")
    
    ' 打开邮件数据库
    Set Maildb = Session.GetDatabase("", MailDbName)
    If Not Maildb.IsOpen Then Maildb.OPENMAIL
    
    ' 创建邮件文档
    Set MailDoc = Maildb.CREATEDOCUMENT
    
    ' 设置邮件文档的发送者、接收者和主题
    MailDoc.Form = "Memo"
    MailDoc.sendto = "recipient@example.com"
    MailDoc.Subject = "邮件主题"
    
    ' 创建附件对象并添加附件
    Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
    Call AttachME.EMBEDOBJECT(1454, "", "C:\Path\To\Attachment.pdf", "Attachment")
    
    ' 发送邮件
    MailDoc.PostedDate = Now()
    MailDoc.SAVEMESSAGEONSEND = True
    MailDoc.SEND 0, "recipient@example.com"
    
    ' 释放对象
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
End Sub