Auto BCC VBA macro: how to add exceptions?

Status
Not open for further replies.

boppy2010

Senior Member
Thanks Diane, Outlook is showing BCC to zoho for all mails, even personal categories, but the bcc mails are not arriving in Zoho. This is how it looks currently:
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.Categories <> "Personal" Then

' #### USER OPTIONS ####

' address for Bcc -- must be SMTP address

' or resolvable to a name in the address book

strBcc = "1kawa9@mails.zohocrm.com"

Else

Exit Sub

End If

Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc")
If res = vbNo Then
Cancel = True
End If
End If

Set objRecip = Nothing
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
capital P or lower case? Category names may be case sensitive.

Actually, if the message arrived correctly, then the only problem is with the If statement. If its not the Category name, try rearranging the 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
If Item.Categories = "Personal" Then
Exit Sub
Else

strBcc = "1kawa9@mails.zohocrm.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc")
If res = vbNo Then
Cancel = True
End If
End If
End If
Set objRecip = Nothing
End Sub
 

boppy2010

Senior Member
Yup, tried that rearrangement and made "personal" lower case and still it applied the bcc to a personal category and showed up in Zoho.

I wondered if the fact my categories are being applied as a rule after sending is the problem as the BCC will have already kicked in by the time the category is applied. But looking in my Address Book, the personal category is already applied to those addresses so I guess that's not the issue.

And again, thanks for hanging in here with me.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
if you have a rule that sets categories, yes, it could be the cause. You can try a subject filter - if right(item.subject,1) = "-" then... you can use any non-intrusive character at the end of the subject that is unlikely to be used at the end of a typical subject - or use both if category... AND if subject then...
 

boppy2010

Senior Member
Thanks Diane, the problem with that is that I need to remember to add the character to those emails. I'm really hoping to find a way to automate the process. Meantime I will keep deleting those contacts from Zoho ...
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Unless there is something that is always identical in the messages, it's going to be tough to automate - outlook needs to know what to look for. The other option is a custom form or template with the 'don't bcc' flag set. But you'll need to remember to use it.
 

raraceb

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
Hello Diane,

I really impress about all the knowledge you have into VB.

I want to request your help for build a script to Bcc my sent emails but I need to add an exception as follow. I use two signatures into my sent emails, one is to be used into the emails I sent to the customers and the other one is used to any other email I send. I used a rule in outlook that works but it sent a Cc instead of Bcc. Below are my signatures...

Customer's signature Any other email signature

***************************************************

Randall. Randall Arce

Company Dept. Contact number

Company name email address
Company Dept.
Company name

With the rule I used as exception my name, therefore, if the email body has "Randall." outlook send a copy to my inbox, otherwise no copy is send.

I used the script you posted and it works fine but for all my emails sent. Therefore, if you can help me to add this exception it will be much appreciated.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You'll want to try something like

If instr(1, Item.body, "Randall") Then

strBcc = "1kawa9@mails.zohocrm.com"
Else

exit sub

end if

' rest of the code here

or you can switch the exit sub and the lines between else and the last end if, so all of the lines that bcc the message are in the if statement together.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S Rule to Auto-forward/re-direct a specific incoming email to a group via BCC? Using Outlook 1
nmanikrishnan Auto-reply from default account Using Outlook 1
A Imap account not auto syncing inbox at startup Using Outlook 0
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S Auto forward for multiple emails Outlook VBA and Custom Forms 0
DDB VBA to Auto Insert Date and Time in the signature Outlook VBA and Custom Forms 2
V Auto-complete stopped working Using Outlook 4
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
R Auto Forwarding with different "From" Outlook VBA and Custom Forms 0
P auto-complete is hopelessly broken Using Outlook 0
R Auto Assign Category colours to Incoming Emails based on whom the email is addressed Outlook VBA and Custom Forms 3
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
V Auto-Submitted: auto-replied in header Using Outlook 0
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
B Outlook 2016 Auto-archive creates new folder Using Outlook 3
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
P Auto assign shared mailbox Outlook VBA and Custom Forms 1
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 16
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
Q Prompt button to auto turn on Out of Office Outlook VBA and Custom Forms 3
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
S Messages moved / deleted by auto-archive are not synchronized to exchange Exchange Server Administration 8
B Outlook 2010 is Auto Purging when not configured for that Using Outlook 1
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
A Auto Accept Meetings from the General Calendar Using Outlook 3
R auto send email when meeting closes from a shared calendar only Outlook VBA and Custom Forms 2
S auto-mapping mailboxes in outlook impacting an ost file? Exchange Server Administration 2
M Auto expand Distribution List Before Sending Email Outlook VBA and Custom Forms 1
M Auto-export mail to Excel Outlook VBA and Custom Forms 2
Ms_Cynic Auto-pasting email content in calendar appt? Using Outlook 2
R How Do I insert images in and Auto Reply Using Outlook 3
S Received mail as part of DL, need to auto-CC the same when replying Outlook VBA and Custom Forms 5
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 10
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 0
P Auto scroll to specific folder in Folder Pane Outlook VBA and Custom Forms 3
C Auto categorize duplicate subjects Outlook VBA and Custom Forms 11
N Auto-complete - block select emails Using Outlook 3
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
S BCM Auto Backup Data and Customizations BCM (Business Contact Manager) 6
G Auto accept meeting request for non primary account Outlook VBA and Custom Forms 1
J Outlook Rules - Changing auto-submit address in multiple rules, according to rule name Outlook VBA and Custom Forms 0
E Outlook Form - Voting Responses Not Auto Processing If Form Contains Any Code Outlook VBA and Custom Forms 0
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
K Extract email address from body and auto-reply outlook Using Outlook 1

Similar threads

Top