如何在Excel中调用两个变量来抄送outlook电子邮件？

Sub SendEmail()
    Dim OutlookApp As Object
    Dim OutlookMail As Object
    Dim EmailAddress As String
    Dim CCAddress As String
    
    ' 设置收件人和抄送人的变量值
    EmailAddress = "recipient@example.com"
    CCAddress = "cc@example.com"
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 创建新的邮件对象
    Set OutlookMail = OutlookApp.CreateItem(0)
    
    With OutlookMail
        ' 设置邮件的收件人、抄送人和主题
        .To = EmailAddress
        .CC = CCAddress
        .Subject = "这是一封测试邮件"
        ' 设置邮件的正文内容
        .Body = "这是一封测试邮件的正文内容。"
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub