Looking at the code, nothing is really jumping out at me. Here is a code snippit I use. You can add your stReqEmail
to the olMailItem object with .cc. There is not a .cc in the example.
I am not convinced focussing on the code is crucial at the moment. Seems like other questions should be addressed.
Code:
Dim bolSend As Boolean 'Toggle to ask user if they want to view Email before sending
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim strRecip As String 'Email address of recipient
Dim strBody As String 'Text to compose the body of the email
Dim strSubject As String 'Text to compose the subject line of the email
Dim strPath As String 'Path to file to be used as attachment. Include file extension in full path
bolSend = False 'If true then user will send email without user first reviewing email
strRecip = ""
strBody = ""
strSubject = ""
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
' Add the To recipient(s) to the message.
If Not IsNull(Me.ContEmailAddress.Value) Then
strRecip = Me.ContEmailAddress.Value
objOutlookMsg.To = strRecip
End If
' Set the Subject, Body, and Importance of the message.
objOutlookMsg.Subject = strSubject
objOutlookMsg.Body = strBody
objOutlookMsg.Importance = olImportanceNormal 'Normal importance
' Add attachments to the message.
Set objOutlookAttach = objOutlookMsg.Attachments.Add(strPath)
If bolSend = False Then 'Previous code sets variable according to user input
objOutlookMsg.Display
Else
If strRecip = "" Then
MsgBox "There is not an email address associated with this client. Aborted."
GoTo Exit_Now
Else
objOutlookMsg.Save
objOutlookMsg.Send
End If
End If
Exit_Now:
Set objOutlook = Nothing
MsgBox "Email aborted"
Exit Sub