#HowItSolved #Howto
Code:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecipient As Recipient
Dim strMsgErr As String
Dim result As Integer
Dim strBccEmailAdd As String
On Error Resume Next

strBccEmailAdd = /”[email protected]/”

Set objRecipient = Item.Recipients.Add(strBccEmailAdd)
objRecipient.Type = olBCC
If Not objRecipient.Resolve Then
strMsgErr = /”Could not resolve the Bcc recipient. /” & _
/”Do you want still to send the message?/”
result = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
/”Could Not Resolve Bcc Recipient/”)
If result = vbNo Then
Cancel = True
End If
End If

Set objRecipient = Nothing
End Sub

►Have a video Suggestion? Post it in the Comments Section, Contact me through my Facebook page or Tweet me!

Connect with me!
Facebook ► http://www.facebook.com/HowItSolved
Twitter ► http://www.twitter.com/HowItSolved

► Don’t forget to Like, Share and Subscribe!

Please take the opportunity to connect and share this video with your friends and family if you find it useful.