VBA:通过IBM Notes发送电子邮件，添加签名？

Sub SendEmailWithSignature()
    Dim NotesApp As Object
    Dim MailDB As Object
    Dim MailDoc As Object
    Dim Signature As String
    
    ' 创建NotesSession对象
    Set NotesApp = CreateObject("Notes.NotesSession")
    
    ' 连接到本地的邮件数据库
    Set MailDB = NotesApp.GetDatabase("", "")
    
    ' 打开邮件数据库
    Call MailDB.OpenMail
    
    ' 创建邮件文档
    Set MailDoc = MailDB.CreateDocument
    
    ' 设置邮件主题、收件人、发件人等信息
    MailDoc.Subject = "邮件主题"
    MailDoc.SendTo = "收件人邮箱地址"
    MailDoc.From = "发件人邮箱地址"
    
    ' 添加邮件正文内容
    MailDoc.Body = "邮件正文内容"
    
    ' 添加签名
    Signature = "这是我的签名"
    MailDoc.Body = MailDoc.Body & vbCrLf & vbCrLf & Signature
    
    ' 发送邮件
    Call MailDoc.Send(False)
    
    ' 释放对象
    Set MailDoc = Nothing
    Set MailDB = Nothing
    Set NotesApp = Nothing
End Sub