你可以使用 VBA 编写代码来根据人名追加 Outlook 邮件的 CC（抄送）收件人。下面是一个示例代码，演示了如何根据人名列表追加 CC 收件人：

你可以使用 VBA 编写代码来根据人名追加 Outlook 邮件的 CC（抄送）收件人。下面是一个示例代码，演示了如何根据人名列表追加 CC 收件人：

Sub AddCCToEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim ccRecipients As Object
    Dim ccRecipient As Object
    Dim name As String
    
    ' 创建 Outlook 应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    
    ' 创建邮件对象
    Set olMail = olApp.CreateItem(0)  ' 0表示邮件
    
    ' 设置邮件属性
    With olMail
        .Subject = "这是一封测试邮件"
        .Body = "这是邮件的正文内容。"
        .Recipients.Add "recipient@example.com"  ' 添加主要收件人
        
        ' 创建 CC 收件人集合
        Set ccRecipients = .Recipients.Add("cc1@example.com")  ' 添加初始 CC 收件人
        
        ' 根据人名列表追加 CC 收件人
        Dim names() As String
        names = Split("name1,name2,name3", ",")  ' 替换为你的人名列表
        
        For Each name In names
            ' 根据人名查找收件人地址
            Dim email As String
            email = FindEmailAddress(name)  ' 替换为你的查找收件人地址的方法
            
            If email <> "" Then
                ' 添加 CC 收件人
                Set ccRecipient = ccRecipients.Add(email)
                ccRecipient.Type = 2  ' 设置收件人类型为 CC
            End If
        Next name
        
        ' 发送邮件
        .Send
    End With
    
    ' 释放对象引用
    Set ccRecipient = Nothing
    Set ccRecipients = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

Function FindEmailAddress(name As String) As String
    ' 根据人名查找收件人地址的方法
    ' 这里可以根据你的需求自定义实现
    ' 可以是使用 Outlook 联系人列表，或者自定义的人名-邮箱地址映射关系等
    
    ' 假设这里简单地返回固定的邮箱地址
    Dim email As String
    
    Select Case name
        Case "name1":
            email = "cc1@example.com"
        Case "name2":
            email = "cc2@example.com"
        Case "name3":
            email = "cc3@example.com"
        Case Else:
            email = ""  ' 如果找不到对应的邮箱地址，返回空字符串
    End Select
    
    FindEmailAddress = email
End Function

在上述示例代码中，我们首先创建了 Outlook 应用程序对象（olApp）和邮件对象（olMail）。

然后，我们设置了邮件的主题、正文和主要收件人。

接着，我们创建了一个 CC 收件人集合（ccRecipients），并添加了初始的 CC 收件人。

然后，我们使用人名列表循环追加 CC 收件人。在每次循环中，我们调用自定义的 FindEmailAddress 函数，根据人名查找收件人地址。你可以根据自己的需求自定义该函数的实现方式，可以是使用 Outlook 联系人列表、自定义的人名-邮箱地址映射关系等。

最后，我们发送邮件，并释放对象引用。

请注意，在示例代码中的 FindEmailAddress 函数只是一个简单的示例实现，根据你的实际情况，你可能需要修改该函数以适应你的需求。

希望这个示例对你有所帮助！如果还有其他问题，请随时提问。