From VB Create Recipients as "BCC" not "To" 1

[redgate]

Hi All

The code below works and creates an email with all my recipients in the "To" area of the message.

How can I write these email addresses to the "BCC" area rather.
---
Set golApp = New Outlook.Application
Set objNewMail = golApp.CreateItem(olMailItem)
With objNewMail

Dim strCheck As String
For Each obj In astrRecip
strCheck = obj
If (strCheck <> &quot;&quot Then
.Recipients.Add obj
End If
Next obj

.Subject = strSubject
.Body = strMessage

For Each obj In astrAttachments
.Attachments.Add obj
Next obj

If (blnSave = True) Then
.Save
Else
.Send
End If
End With
---
Where astrRecip and astrAttachments are arrays I pass.


Thanks in advance

 

[combo]

You should set the Recipient Type property to olBCC

 

[redgate]

Thank you

It took me a while but I got it right. For reference here is the code I changed.

For Each obj In astrRecip
strCheck = obj
If (strCheck <> &quot;&quot Then
.Recipients.Add(obj).Type = olBCC
End If
Next obj