title: Add BCC to email with VBA in Outlook 2013
body: <p>I can't figure out the correct VBA code for Outlook 2013 to add a fixed email address to the BCC field of an email while it is open for editing. I have the following code, which creates the email and then sets the BCC. </p>
  
  <p>I want to add BCC to emails that I am replying to, so the message will already be in 'draft' form.</p>
  
  <pre><code>Sub sendcomment_click()
  Set oMsg = Application.CreateItem(olMailItem)
  
  With oMsg
      .Recipients.Add ("email address")
      'Set objRecip = Item.Recipients.Add("email address")
      'objRecip.Type = olBCC
      'objRecip.Resolve
  
      ' Join Email addresses by "; " into ".BCC" as string
      .BCC = "Person.A@somewhere.com; Person.B@somewhere.com"
  
      .Subject = "New Comment by"
      .Body = "sdfsdfsdf"
      .Display ' Comment this to have it not show up
      '.Send ' Uncomment this to have it sent automatically
  End With
  
  Set oMsg = Nothing
  End Sub
  </code></pre>
  
  <p><strong>* Update *</strong></p>
  
  <p>I implemented the great advice from Dmitry</p>
  
  <p>My code now reads:</p>
  
  <pre><code>Sub BCC()
  Dim objRecip As Recipient
  Set oMsg = Application.ActiveInspector.CurrentItem
  
  With oMsg
  
  Set objRecip = item.Recipients.add("XXX@example.com")
  objRecip.Type = olBCC
  objRecip.Resolve
  
  End With
  
  Set oMsg = Nothing
  
  End sub
  </code></pre>
  
  <p>However, when I try to run it I get an error "Run Time error '424' Object required" and it highlights the line:</p>
  
  <pre><code>Set objRecip = item.Recipients.Add("xxx@example.com")
  </code></pre>