send mail cc open contacts

[wilg]

Is there code to pull up outlook contacts and which ever contact you choose the cc in using the send mail method?


Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "Test"
Email_Send_From = ""
Email_Send_To = ""
Email_Cc = ""
Email_Bcc = ""
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc