Not receiving message when bcc vba

Posted on 2008-10-09
Last Modified: 2013-11-27
Hello experts,

I am trying to send email via VBA from Access.  Everything works find except for Bcc.  I am not getting the message on Bcc.  Please help.  Here is the code I am using.  Thank you.
Private Sub SendEmail(strEmailAdd As String, strFrom As String, strBody As String, _

                      strSubject As String, strCc As Variant, strBcc As Variant)

On Error GoTo errHandler

Dim objOutlook As Outlook.Application

Dim objOutlookMsg As Outlook.MailItem

Dim objOutlookRecip As Outlook.Recipient

Dim objOutlookAttach As Outlook.Attachment

Dim objOutlookFrom As Outlook.MailItem

Dim objOutlookInbox As Outlook.MAPIFolder

' Create the Outlook session.

Set objOutlook = CreateObject("Outlook.Application")

' Create the message.

Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

With objOutlookMsg

' Set sender

.SentOnBehalfOfName = strFrom

' Add the To recipient(s) to the message. This can be a variable or pulled form a table if desired.

Set objOutlookRecip = .Recipients.Add(strEmailAdd)

objOutlookRecip.Type = olTo

' Add the Cc recipient(s) to the message.

If Not ISNULL(strCc) Then

   .CC = strCc

End If

' Add the Bcc recipient(s) to the message.

If Not ISNULL(strBcc) Then

    .BCC = strBcc

End If

' Set the Subject, Body, and Importance of the message.

.Subject = strSubject

.HTMLBody = strBody

.Importance = olImportanceNormal  'Normal importance

' Resolve each Recipient's name.

        For Each objOutlookRecip In .Recipients



        If Not .Recipients.ResolveAll Then

            For Each objOutlookRecip In .Recipients

                If Not objOutlookRecip.Resolved Then

                    MsgBox "Error on e-mail name " & objOutlookRecip & ". I will open the e-mail so you can correct it before you send it."

                End If






        End If

    End With



    Set objOutlook = Nothing

    Exit Sub


    Select Case Err

        Case Else

            MsgBox "Error Number: " & Err.Number & vbNewLine & "Description: " & Err.Description, vbCritical, "Error"

        GoTo exitHere

    End Select

End Sub

Open in new window

Question by:fcoit
LVL 16

Expert Comment

by:Chuck Wood
ID: 22682985
According to the Outlook help, the BCC property contains the display names only. The recipients collection should be used modify the BCC recipients.

Here is an example:

I hope that help you.

Public Sub TestBCC()

    Dim item As MailItem, rcp As Recipient

    Set item = Application.CreateItem(olMailItem)

    Set rcp = item.Recipients.Add("John Grande<>")

    rcp.Type = olBCC


End Sub

Open in new window


Accepted Solution

fcoit earned 0 total points
ID: 22683033
Hi Chuck,

Thank you for your response.  I think it is working now.  I using the same address for both the CC and BCC.  I changed that and it is working.  Thank you.

Featured Post

Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Join & Write a Comment

Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now