Just to let everyone know I have solved this auto BCC issue. This is the code you need to use to auto BCC AND if you are using more than 1 box. If not, just use the IF code 1 time.
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
If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If
If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If
If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If
If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If
If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If
If Item.SentOnBehalfOfName = "THIS MUST BE THE DISPLAY NAME OF THE EMAIL" Then
strBcc = "BCC Email Goes Here"
End If
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub
|