Hello,
I’d like to email recipients from excel and BCC the recipients instead of having the email addresses in the ‘To’ field. I’m not very savvy figuring out how to change it myself as I’m quite a novice.
I found a code to email multiple recipients from excel, it works great, however does anyone know how I need to tweek the code below so that the email addresses are in the BCC field instead?
The following is the code I’m using:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim OlApp As Object, M As Object, c As Range
If Target.Address <> “$A$3” Then Exit Sub
Cancel = True
‘ Creates an instance of Outlook
Set OlApp = CreateObject(“Outlook.application”)
‘Creation of the message
Set M = OlApp.CreateItem(olMailItem)
With M
.Subject = “Subject”
.Body = “Body”
‘ Adding the recipients
For Each c In Range(“B6”, Range(“B60000”).End(xlUp))
.Recipients.Add c.Value
Next c
.display ‘ Use this line instead of the next one if you want to see / edit
‘ the Message
.Send
End With
End Sub
Any help/direction would be much appreciated!!!