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
Dim intresponse As Integer
On Error Resume Next

intresponse = MsgBox("Do you want to send to Pipedrive?", _
vbYesNo + vbQuestion, _
"Email Privacy")
If intresponse = vbYes Then

strBcc = "xcerionz@pipedrivemail.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC

If Not objRecip.Resolve Then
strMsg = ("Oops")
If res = vbNo Then
Cancel = True
End If
End If
End If
End Sub