How To Automatically Bcc All Emails Sent In Outlook?

#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 ► facebook.com/HowItSolved
Twitter ► twitter.com/HowItSolved

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