OUTLOOK2003中发送邮件时同时自动BCC给多个人

phuawei

按论坛里的vba代码只能实现bcc一个地址。但不能同时BCC给多人。请版主帮助。
vba本人不懂，苦学中。

phuawei

请求帮助，跪求。

aaaaabbbbb

再加一个密件抄送人。

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

phuawei

非常感谢版主，但是又有个问题。现在设定有2个邮箱，我只想指定一个邮箱发送时BCC，请问如何判断呢。