如何在VBA excel中将发件人添加到发送电子邮件的宏中

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim MailBody As String
    Dim Recipient As String
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置收件人
    Recipient = "recipient@example.com"
    OutlookMail.Recipients.Add Recipient
    
    ' 设置邮件主题
    OutlookMail.Subject = "邮件主题"
    
    ' 设置邮件内容
    MailBody = "邮件内容"
    OutlookMail.Body = MailBody
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub