Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Not receiving message when bcc vba

Posted on 2008-10-09
2
Medium Priority
?
540 Views
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
            objOutlookRecip.Resolve
        Next
        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
            Next
        .Display
        Else:
            .Save
            .Send
        End If
    End With
    
exitHere:
    Set objOutlook = Nothing
    Exit Sub
 
errHandler:
    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

0
Comment
Question by:fcoit
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
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.

-Chuck
Public Sub TestBCC()
    Dim item As MailItem, rcp As Recipient
    Set item = Application.CreateItem(olMailItem)
    Set rcp = item.Recipients.Add("John Grande<jgrande@somewhere.com>")
    rcp.Type = olBCC
    item.Display
End Sub

Open in new window

0
 

Accepted Solution

by:
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.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…

715 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