Adding CC & BCC to Email VBA

[abbaddon223]

Hi all,

Still a bit of a novice with VBA and could d with a hand please..

I've got some VBA code working to take information from a loaded form and create an outlook event without any major issues. I'm really struggling to get it to add a CC & BCC field.

The code I'm using is:

Dim Olk As Outlook.Application
Set Olk = CreateObject("Outlook.application")
Dim OlkMsg As Outlook.MailItem
Set OlkMsg = Olk.CreateItem(olMailItem)
With OlkMsg

Dim OlkRecip As Outlook.Recipient
Set OlkRecip = .Recipients.Add(Me![To])
OlkRecip.Type = olTo


.Subject = Me![Subject]
.Body = Me![Body]
.Display

End With
Set Olk = Nothing
Set OlkMsg = Nothing
Set OlkRecip = Nothing

End Sub

I just need to know how to add a CC & BCC please (the control source where the values for the outlook event are called CC & BCC)

Thanks for any assistance!!!

 

[pbaldy]

Try

.CC = Me!CC

and the second is BCC.

 

[abbaddon223]

You Sir, are a star!!

Thanks so much for the assistance!

 

[pbaldy]

Happy to help (but "star" is a big stretch!).