title: Add bcc recipients using Outlook VBA
body: <p>I need to add bcc recipients to an email loaded from a template. The recipients should be all of the contacts in a certain category. I have the following so far, except it is extremely inefficient and causes Outlook to become unresponsive:</p>
  
  <pre><code>Sub Distribute_Newsletter()
  Set newItem = Application.CreateItemFromTemplate("P:\Subscription Templates\subscription template.oft")
  newItem.Display
  
  Set oNS = Application.GetNamespace("MAPI")
  Set oContacts = oNS.Folders(1).Folders("Contacts")
  Dim emailAddress As String
  
  For Each oContactItem In oContacts.Items
      If oContactItem.Class = olContact Then
          emailAddress = oContactItem.Email1Address
          If Not emailAddress = "" Then 'And oContactItem.Categories
              Set objRecip = newItem.Recipients.Add(emailAddress)
              objRecip.Type = olBCC
          End If
      End If
  Next
  
  Set oNS = Nothing
  Set oContacts = Nothing
  Set objRecip = Nothing
  Set newItem = Nothing
  End Sub
  </code></pre>