Generate email with multiple TO recipients and multiple BCC recipients

Function CreateMail(astrRecip As Variant, astrBCC As Variant, _
                    strSubject As String, _
                    strMessage As String, _
                    Optional astrAttachments As Variant) As Boolean
 
    ' This procedure illustrates how to create a new mail message
    ' and use the information passed as arguments to set message
    ' properties for the subject, text (Body property), attachments,
    ' and recipients.
 
    Dim objNewMail          As Outlook.MailItem
    Dim varRecip            As Variant
    Dim varBCC              As Variant
    Dim varAttach           As Variant
    Dim blnResolveSuccess   As Boolean
    
    On Error GoTo CreateMail_Err
    
    ' Use the InitializeOutlook procedure to initialize global
    ' Application and NameSpace object variables, if necessary.
    If golApp Is Nothing Then
        If InitializeOutlook = False Then
            MsgBox "Unable to initialize Outlook Application " _
                & "or NameSpace object variables!"
            Exit Function
        End If
    End If
 
    Set golApp = New Outlook.Application
    Set objNewMail = golApp.CreateItem(olMailItem)
    With objNewMail
        ClickYes (True)
        For Each varRecip In astrRecip
            .Recipients.Add varRecip
        Next varRecip
        blnResolveSuccess = .Recipients.ResolveAll
ADD THE EXTRACODE FOR BLIND COPIES HERE...
        ClickYes (False)
        If Not IsMissing(astrAttachments) Then
            For Each varAttach In astrAttachments
                .Attachments.Add varAttach
            Next varAttach
        End If
'        If strFrom <> "" Then
'            .From = strFrom
'        End If
        .Subject = strSubject
        .Body = strMessage
        If blnResolveSuccess Then
            .Display
'            .Send
        Else
            MsgBox "Unable to resolve all recipients. Please check " _
                & "the names."
            .Display
        End If
    End With
    
    CreateMail = True
 
CreateMail_End:
    Exit Function
CreateMail_Err:
    CreateMail = False
    Resume CreateMail_End
End Function