Excel VBA为多个收件人、抄送和密件抄送撰写电子邮件

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim Recipients As Object
    Dim CCRecipients As Object
    Dim BCCRecipients As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    
    ' 创建新的邮件项
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    ' 设置邮件的收件人
    Set Recipients = OutlookMail.Recipients
    Recipients.Add "recipient1@example.com"
    Recipients.Add "recipient2@example.com"
    
    ' 设置邮件的抄送
    Set CCRecipients = OutlookMail.CC
    CCRecipients.Add "ccrecipient1@example.com"
    CCRecipients.Add "ccrecipient2@example.com"
    
    ' 设置邮件的密件抄送
    Set BCCRecipients = OutlookMail.BCC
    BCCRecipients.Add "bccrecipient1@example.com"
    BCCRecipients.Add "bccrecipient2@example.com"
    
    ' 设置邮件的主题和内容
    OutlookMail.Subject = "邮件主题"
    OutlookMail.Body = "邮件内容"
    
    ' 发送邮件
    OutlookMail.Send
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub