在Outlook中如何实现自动密抄给多个人？

sam.wu

在Outlook中如何实现自动密抄给多个人？在Outlook中如何实现自动密抄给多个人,实现密抄给一个人的就可以，但如何给多个人密抄我就不知了。有哪位大侠知道？实现密抄给一个人代码如下：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next

    strBcc = "xxx@xxx.com"

    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "不能解析密件抄送人邮件地址， " & _
                 "请确认是否仍然发送邮件？"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "不能解析密件抄送人邮件地址")
        If res = vbNo Then
            Cancel = True
        End If
    End If

    Set objRecip = Nothing

End Sub

aaaaabbbbb

我记得有人问过这个问题，请先搜索一下此论坛。

sam.wu

我查过了，都是bcc给一个邮箱的。怎么bcc给多少邮箱的就没人知！好苦恼！

sam.wu

找到了。明天试试。谢谢各位大侠的热心帮助！看看是不是这个
再加一个密件抄送人。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc, strBcc1 As String
    On Error Resume Next

    strBcc = "***@sina.com" '请改成你要密送的邮件地址
   
    strBcc1 = "***@gmail.com" '请改成你要密送的邮件地址

    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "不能解析密件抄送人邮件地址， " & _
                 "请确认是否仍然发送邮件？"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "不能解析密件抄送人邮件地址")
        If res = vbNo Then
            Cancel = True
        End If
    End If

    Set objRecip = Item.Recipients.Add(strBcc1)
    objRecip.Type = olBCC
    If Not objRecip.Resolve Then
        strMsg = "不能解析密件抄送人邮件地址， " & _
                 "请确认是否仍然发送邮件？"
        res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                "不能解析密件抄送人邮件地址")
        If res = vbNo Then
            Cancel = True
        End If
    End If
   
    Set objRecip = Nothing

End Sub