title: Add a "CC recipient" to Outlook 2010 VBA
body: <p>Can someone please show me how to add a "Cc recipient" to this code? The "To Recipient" and code all work as intended. Thank you for your time.</p>
  
  <pre><code>Sub ForwardEmail(item As Outlook.MailItem)
  ' Dim oExplorer As Outlook.Explorer
  Dim oMail As MailItem
  ' Set oExplorer = Application.ActiveExplorer
  
  On Error GoTo Release
  
  ' If oExplorer.Selection.item(1).Class = olMail Then
  
  Set oMail = item.Forward
  oMail.Subject = oMail.Subject
  oMail.HTMLBody = "Have a nice day." &amp; vbCrLf &amp; oMail.HTMLBody
  oMail.Recipients.Add "email address here"
  
  ' oMail.Save
  oMail.Send
  
  ' End If
  
  Release:
  Set oMail = Nothing
  ' Set oExplorer = Nothing
  End Sub
  </code></pre>