如何在VBA宏代码中嵌入CC和BCC向唯一人发送行集

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    
    ' 创建Outlook应用对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的收件人
    OutlookMail.To = "recipient@example.com"
    ' 设置邮件的抄送
    OutlookMail.CC = "cc@example.com"
    ' 设置邮件的密送
    OutlookMail.BCC = "bcc@example.com"
    
    ' 设置邮件的主题
    OutlookMail.Subject = "邮件主题"
    ' 设置邮件的内容
    OutlookMail.Body = "邮件内容"
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub