title: How can I make Outlook 2007 auto BCC messages to a specific email with specific words in subject using VBA?
body: <blockquote>
    <p><strong>Possible Duplicate:</strong><br>
    <a href="https://stackoverflow.com/questions/2522884/outlook-vba-to-bcc-emails-sent-not-working-in-outlook-2007">Outlook VBA to BCC emails sent not working in Outlook 2007</a>  </p>
  </blockquote>
  
  
  
  <p>So far I have this code from outlookcode.com which I can get to work sending all emails I send to the BCC email. I am not a developer, so I don't have a lot of context to go about editing this myself, or even approaching researching this. If anyone knows how to make this check for words in the subject, or check if the subject equals a certain string, I'd really appreciate it.</p>
  
  <pre><code>Private Sub Application_ItemSend(ByVal Item As Object, _
                                   Cancel As Boolean)
      Dim objRecip As Recipient
      Dim strMsg As String
      Dim res As Integer
      Dim strBcc As String
      On Error Resume Next
  
      ' #### USER OPTIONS ####
      ' address for Bcc -- must be SMTP address or resolvable
      ' to a name in the address book
      strBcc = "someone@somewhere.dom"
  
      Set objRecip = Item.Recipients.Add(strBcc)
      objRecip.Type = olBCC
      If Not objRecip.Resolve Then
          strMsg = "Could not resolve the Bcc recipient. " &amp; _
                   "Do you want still to send the message?"
          res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
                  "Could Not Resolve Bcc Recipient")
          If res = vbNo Then
              Cancel = True
          End If
      End If
  
      Set objRecip = Nothing
  End Sub
  </code></pre>